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

Re:Cannot send e-mails or upload with CS4

gianluigi

12:48 18 Feb 2009

Re:Cannot send e-mails or upload with CS4

[email protected]

13:03 18 Feb 2009

Re:Cannot send e-mails or upload with CS4

[email protected]

13:13 18 Feb 2009

This is the code for the AdvancedMail (no upload)
The result was identical as before. NO errors, but nothing was sent out
--------------------------------------------------------

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

<%
'*********************************
'* http://www.DwZone-it.com
'* ADVANCED MAIL
'* Version 2.4.1
'* Without Upload Files
'*********************************
dim AdvMailUpload
AdvMailUpload = "yes"
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"

ProgressBar = ""
ProgressMail = ""
editRedirectUrl = "RedirectMail.asp"
RG_Files = "@_@_@0@_@_@ @_@_@ @_@_@./"
RG_formName = "form1"
RG_MailParameter = "3@@@_@@@_@@@localhost@@@_@@@_@@@25@@@_@@@_@@@1200@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@Admin@@@_@@@_@@@email@_form_@@@@_@@@_@@@Admin@@@_@@@_@@@ @@@_@@@_@@@Adrian@@@_@@@_@@@[email protected]@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@2@@@_@@@_@@@subject@_form_@@@@_@@@_@@@0@@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@0@@@_@@@_@@@us-ascii;20127;US-ASCII@@@_@@@_@@@@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@post@@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0@@@_@@@_@@@0@@@_@@@_@@@ @@@_@@@_@@@0@@@_@@@_@@@"
RG_BodyText = "Dear, visitor, this is just a testmyErremyCrLf<br>myErremyCrLfsubject = #subject#myErremyCrLf<br>myErremyCrLf"
BodyFromFile = ""
UploadType = "AdvancedMail"
ImagesList = ""
FilesList = ""
RG_Connection = MM_HolmesGroup_STRING
ReplaceList = "#subject#;subject@_form_@"
sendAllFilesInFolder = ""
sendAllFilesType = 0
UploadStatus = ""
NumFile = 0

if OnLoadStart = "-1" then
StrSql = "select * from contactmsg"
Set Rs = Server.CreateObject("ADODB.RecordSet")
BodyFromDynamicPage = ""
IsMailSend = SendMail()
Set RS = nothing
response.write(getRedirectForMail(IsMailSend))
response.end
else
if (Request.QueryString <> "") Then
editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?" & Request.QueryString
else
editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
End If
if request.Form("DW_Form_Name") = "form1" then
StrSql = "select * from contactmsg"
verifyUserExists()
Set Rs = Server.CreateObject("ADODB.RecordSet")
BodyFromDynamicPage = ""
IsMailSend = SendMail()
Set RS = nothing
response.write(getRedirectForMail(IsMailSend))
response.end
End If
End If
%>
---------------------------------------------------