%@LANGUAGE="VBSCRIPT"%>
<%
'*********************************
'* *
'* ADVANCED MAIL *
'* http://www.dwzone.it *
'* *
'*********************************
server.ScriptTimeout = 5400
response.buffer = false
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 = "contactus_thankyou.asp"
RG_Files = "@_@_@0@_@_@ @_@_@ @_@_@./"
RG_formName = "form1"
RG_MailParameter = "2@@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@ @@@_@@@_@@@Name@_form_@@@@_@@@_@@@Email@_form_@@@@_@@@_@@@Trinity-On-Main@@@_@@@_@@@jkgbray@yahoo.com@@@_@@@_@@@Trinity-On-Main@@@_@@@_@@@jkgbray@yahoo.com@@@_@@@_@@@getgary@aol.com@@@_@@@_@@@dpattenaude@goodbait.com@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@2@@@_@@@_@@@Support Trinity: Donations / Volunteering@@@_@@@_@@@0@@@_@@@_@@@1@@@_@@@_@@@ @@@_@@@_@@@1@@@_@@@_@@@-1@@@_@@@_@@@us-ascii;20127;US-ASCII@@@_@@@_@@@@@@_@@@_@@@@@@_@@@_@@@1@@@_@@@_@@@post"
RG_BodyText = "Name = #Name#myErremyCrLf
myErremyCrLfCompany = #Company#myErremyCrLf
myErremyCrLfAddress = #Address#myErremyCrLf
myErremyCrLfCity = #City#myErremyCrLf
myErremyCrLfZip = #Zip#myErremyCrLf
myErremyCrLfEmail = #Email#myErremyCrLf
myErremyCrLfPhone = #Phone#myErremyCrLf
myErremyCrLf
myErremyCrLfPlease Send me Trinity-On-Main calendar / newsletter of events: myErremyCrLf
myErremyCrLfBy Email = #emailYN#myErremyCrLf
myErremyCrLfBy Mail = #mailYN#myErremyCrLf
myErremyCrLfBoth = #bothYN#myErremyCrLf
myErremyCrLf
myErremyCrLfI would like to learn about helping to support Trinity-On-Main: myErremyCrLf
myErremyCrLfIndividual Donation = #individualYN#myErremyCrLf
myErremyCrLfFamily Donation = #familyYN#myErremyCrLf
myErremyCrLfCompany Donation = #companyYN#myErremyCrLf
myErremyCrLf
myErremyCrLfI would like to learn about volunteering in the following area(s): myErremyCrLf
myErremyCrLfEvent Support = #EventYN#myErremyCrLf
myErremyCrLfRenovations = #renovationsYN#myErremyCrLf
myErremyCrLfCommunity Development = #communityYN#myErremyCrLf
myErremyCrLfEducation = #educationYN#myErremyCrLf
myErremyCrLfMarketing = #marketingYN#myErremyCrLf
"
BodyFromFile = ""
UploadType = "AdvancedMail"
ImagesList = ""
FilesList = ""
RG_Connection = MM_Void_STRING
ReplaceList = "#Address#;Address@_form_@|#bothYN#;bothYN@_form_@|#City#;City@_form_@|#communityYN#;communityYN@_form_@|#Company#;Company@_form_@|#companyYN#;companyYN@_form_@|#educationYN#;educationYN@_form_@|#Email#;Email@_form_@|#emailYN#;emailYN@_form_@|#EventYN#;EventYN@_form_@|#familyYN#;familyYN@_form_@|#individualYN#;individualYN@_form_@|#mailYN#;mailYN@_form_@|#marketingYN#;marketingYN@_form_@|#Name#;Name@_form_@|#Phone#;Phone@_form_@|#renovationsYN#;renovationsYN@_form_@|#Zip#;Zip@_form_@"
sendAllFilesInFolder = ""
sendAllFilesType = 0
UploadStatus = ""
NumFile = 0
if OnLoadStart = "-1" then
StrSql = ""
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 = ""
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 "
Some form error.
Error code: " & Form.State & "
Error List:
0 Form was successfully processed.
1 Request method is NOT post
2 Zero length request (there are no data in a source form)
3 Form is in a middle of process.
5 Initial form state
11 Boundary of multipart/form-data is not specified.
12 Unknown source form (Content-type must be multipart/form-data)
15 Client was disconnected before upload was completted.
16 Unexpected error from Request.BinaryRead method (ASP error).
"
End If
End If
function GetFolderName(str): GetFolderName = Ris : end function
%>