Forums :: Advanced Mail :: DwZone Forum

DwZone Forum
Welcome to the DwZone-it Forum

FAQ

Memberlist

Usergroups

Advanced Mail

DwZone Forum Index -> Advanced Mail

Moderators: Administrators, Moderators

Mark all topics read

Hint: For improved responsiveness, use Internet Explorer 4 (or above) with Javascript enabled, choose 'Dynamic' from the View dropdown and hit 'Set Options' to save your changes.

	Search for
View Per page Messages Since

Messages 91 to 100 of 781 (Total: 224)

First | Prev | Next | Last

Subject

Author

Date

Cannot send e-mails or upload with CS4

[email protected]

12:35 18 Feb 2009

I just purchased the AdvancedMail extension and I was trying to get it to work but so far I have no positive results.
I'm running 2003 srvr with IIS6
When using two test pages, one for CDONTS and CDOSYS, I do receive e-mail with no problem.
When I insert the AdvancedMail, or the AdvancedMailUpload, the page submits with no issues, but there is nothing else after. I used the redirectmail.asp page as you've indicated in another topic but I get no error messages. The only output is the two tables and no erros or any other info.
I've been doing some coding with commands in CS4 and I know as a fact that CS4 has a bug when inserting commands.
It appends some @@ characters in the code and the commands will only work after removing those @@ characters.
This is the code for my test page. It has many of those @@ but I'm not sure what the real code should look like for this extension.
Can someone take a look and tell me what is wrong?
The test page is available at [url]http://jj.pvtc.ca/test.asp
The test page can be as well provided if needed.

And now, here is a part of the code with all those @@ characters

--------------------------------------------------------------------------------------------------------

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
'*********************************
'* ADVANCED MAIL *
'*********************************
deleteProgressMail session.SessionID
'*********************************
'* ADVANCED MAIL *
'*********************************
%>
<%
'*********************************
'* *
'* ADVANCED MAIL *
'* http://www.DwZone-it.com *
'* *
'*********************************
server.ScriptTimeout = 5400
Dim RG_altVal, RG_columns, RG_Cong, RG_dbValues, RG_dbValuesTmp, RG_delim, RG_editCmd, RG_editQuery, RG_editQueryTmp, RG_emptyVal, RG_Ext, RG_Extensions, RG_fields, RG_FieldValueTmp, RG_FileDel, RG_FileExt, RG_formVal, RG_FS, RG_i, RG_L, RG_Len, RG_Max, RG_Name, RG_New, RG_newName, RG_Num, RG_Path, RG_Rec, RG_ret, RG_Save, RG_tableValues, RG_tableValuesTmp, RG_tst, FileMatch
Dim RG_Connection, RG_editColumn, RG_recordId, Form, editAction, editRedirectUrl, RG_Files, RG_formName, UploadType, ParamVal, ParamList, MaxFieldNumber, TmpVal, x, y, Key, ProgressBar, RG_typeArray, RG_z, UploadStatus, NumFile, RG_MailParameter
Dim OnLoadStart,ProgressMail,RG_BodyText,BodyFromFile,ImagesList,FilesList,StrSql,ReplaceList,sendAllFilesInFolder,sendAllFilesType,Rs,Parametri,SendMailID,Risposta,Cong,TotalMail,NumMail,TimeStart,Mailer,MailPar_1,MailPar_2,MailPar_3,MailPar_4,MailPar_5,FromName,FromMail, ReplyName, ReplyMail, ToName, ToMail, CcList, BccList, ReturnReceipt, MailFormat, Priority, MailObject, Message,Cc,Bcc,Comando,Conn,Fs,TempFolder,TempFileName,retStr,Risp,IsMailSend,newPage,ListToReplace,valori,ListFile,Folder,File,ListImage,UploadID,StatusFile,NewFileName,VerLen,VerExt,ItemCounter,Ris,FileToDelete,separ,ThisPage,tmpFile,LineaFile
Dim tmpField_Name(), tmpValue_Name(), tmpField_Size(), tmpValue_Size(), QtyRecord, ParamVal_AdvMail, TotalFileSize, NoSendFileExceed, UploadMailError, valueToRedirectSend, MaxFieldNumberAdv, newPassword

OnLoadStart = "0"
if OnLoadStart = "0" then
Set Form = New ASPForm
UploadID = Form.NewUploadID
end if
ProgressBar = ""
ProgressMail = ""
editRedirectUrl = "RedirectMail.asp"
RG_Files = "@_@_@0@_@_@ @_@_@ @_@_@./"
RG_formName = "form1"
RG_MailParameter = "3@@@_@@@_@@@localhost@@@_@@@_@@@25@@@_@@@_@@@3600@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@HolmesGroup@@@_@@@_@@@email@_form_@@@@_@@@_@@@HolmesGroup@@@_@@@_@@@email@_form_@@@@_@@@_@@@Adrian@@@_@@@_@@@[email protected]@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@2@@@_@@@_@@@subject@_form_@@@@_@@@_@@@0@@@_@@@_@@@1@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@-1@@@_@@@_@@@us-ascii;20127;US-ASCII@@@_@@@_@@@email@@@_@@@_@@@@@@_@@@_@@@1@@@_@@@_@@@post@@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0@@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0@@@_@@@_@@@"
RG_BodyText = "Dear, TestermyErremyCrLf<br>myErremyCrLfmyErremyCrLf<br>myErremyCrLfemail = #email#myErremyCrLf<br>myErremyCrLfmessagebd = #messagebd#myErremyCrLf<br>myErremyCrLfsubject = #subject#myErremyCrLf<br>myErremyCrLf"
BodyFromFile = ""
UploadType = "AdvancedMail"
ImagesList = ""
FilesList = ""
RG_Connection = MM_HolmesGroup_STRING
ReplaceList = "#email#;email@_form_@|#messagebd#;messagebd@_form_@|#subject#;subject@_form_@"
sendAllFilesInFolder = ""
sendAllFilesType = 0
UploadStatus = ""
NumFile = 0

if OnLoadStart = "-1" then
StrSql = "select * from contactMSG order by submitted desc"
Set Rs = Server.CreateObject("ADODB.RecordSet")
BodyFromDynamicPage = ""
IsMailSend = SendMail()
Set RS = nothing
response.write(getRedirectForMail(IsMailSend))
response.end
else
if len(Request.QueryString("UploadID"))>0 then
Form.UploadID = Request.QueryString("UploadID")
end if

if (Request.QueryString <> "") Then
editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?" & Request.QueryString & "&UploadID=" & UploadID
else
editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?UploadID=" & UploadID
End If

Const fsCompletted = 0
If Form.State = fsCompletted Then
StrSql = "select * from contactMSG order by submitted desc"
if UploadFormRequest("DW_Form_Name") = "form1" then
if Form.State = 0 then
verifyUserExists()
if RG_Files <> "" then
setExtraData()
setParamVal()
setParamVal_AdvMail()
Form.Files.Save
end if
Set Rs = Server.CreateObject("ADODB.RecordSet")
BodyFromDynamicPage = ""
IsMailSend = SendMail()
Set RS = nothing
response.write(getRedirectForMail(IsMailSend))
response.end
End If
End If
ElseIf Form.State > 10 then
response.write "<br><Font Color=red>Some form error.<br>Error code: " & Form.State & "<br>Error List:<br>0 Form was successfully processed. <br>1 Request method is NOT post <br>2 Zero length request (there are no data in a source form) <br>3 Form is in a middle of process. <br>5 Initial form state <br>11 Boundary of multipart/form-data is not specified. <br>12 Unknown source form (Content-type must be multipart/form-data) <br>15 Client was disconnected before upload was completted.<br>16 Unexpected error from Request.BinaryRead method (ASP error).<br></Font><br>"
End If
End If

function GetFolderName(str): GetFolderName = Ris : end function %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Test e-mail form</title>
</head>

<body>
<form action="<%=editAction%>" method="post" enctype="multipart/form-data" name="form1" id="form1" onsubmit="return ProgressBar()">
<table width="40%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30%" valign="top">Email</td>
<td width="70%" valign="top"><label>
<input type="text" name="email" id="email" />
</label></td>
</tr>
<tr>
<td valign="top">Subject</td>
<td valign="top"><label>
<input type="text" name="subject" id="subject" />
</label></td>
</tr>
<tr>
<td valign="top">Message</td>
<td valign="top"><label>
<textarea name="messagebd" id="messagebd" cols="45" rows="5"></textarea>
</label></td>
</tr>
<tr>
<td valign="top"> </td>
<td valign="top"> </td>
</tr>
<tr>
<td valign="top"> </td>
<td valign="top"><label>
<input type="submit" name="button" id="button" value="Submit" />
</label></td>
</tr>
</table>
<input type="hidden" name="DW_Form_Name" value="form1"/>
</form>
</body>
</html>




---------------------------------------------------------------------------------------------------------

I would appreciate any directions or thoughts.

Thanks
Adrian