<%@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 %> Trinity On Main :. Arts Education Community Center :. Performance Hall :. Private Events :. Receptions :. New Britain Connecticut
The Committee To Save 69 Main Street was formed to prevent the demolition of this historic landmark in the center of New Britain. The committee, a project group of Vision New Britain, seeking funds to restore the building to its original beauty. Once restored the building will become a center for the evolving heritage of the people of the greater New Britain area. It is but one element in the continuation of the re-establishment of our downtown as the heart and soul of our community.

Your generosity and that of other friends and benefactors is necessary to maintain this property until it can be restored.

SUPPORT TRINITY-ON-MAIN
Fill out the form below to inquire about donating / volunteering

Name
Company
Address
City
Zip
Email
Phone
   
Newsletter / Calendar

Please send me Trinity-On-Main calendar / newsletter of events
Email to me
Mail to my house / office
Both email and mail

   
Donation

I would like to learn about helping to support Trinity-On-Main
Individual Donation
Family Donation
Company Donation

   
Volunteer

I would like to learn about volunteering in the following area(s)
Event Support / Programming
Renovations
Community Development
Education / Teaching
Marketing

   
 

 

 

 

Thank You For You Support