|
|
|
<%'---------------------------------------------%>
<%
Dim mailcontent, myMail, txtFrom
If Request.Form("txtEmail") = "" then
txtFrom = "NoAddress@NoAddress.com"
Else
txtFrom = Request.Form("txtEmail")
End If
if Request.form("posted") = "true" then
mailcontent = "From: " & Request.form("txtFirstName") & Request.form("txtLastName") & vbNewLine & _
"Address: " & Request.form("txtAddress") & vbNewLine & _
"City State, Zip: " & Request.form("txtCity") & " " & Request.form("txtState") & ", " & Request.form("txtZip") & vbNewLine & _
"Phone: " & Request.form("txtPhone") & vbNewLine & _
"Email: " & Request.form("txtEmail") & vbNewLine & _
"Date of Birth: " & Request.form("txtDOB") & vbNewLine & _
"Previous Address: " & Request.form("txtPrevAddress") & vbNewLine & _
"Family: " & Request.form("txtFamily") & vbNewLine & _
"Tell us about: " & Request.form("txtAbout") & vbNewLine & _
"Contact: " & Request.form("chkContact") & vbNewLine & _
"Member: " & Request.form("chkMember")
Set myMail = CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")
'Configuration:
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConfig.Fields(cdoSMTPServer)="smtp.1and1.com"
objConfig.Fields(cdoSMTPServerPort)=25
objConfig.Fields(cdoSMTPAuthenticate)=cdoBasic
objConfig.Fields(cdoSendUserName) = "m37951512-admin"
objConfig.Fields(cdoSendPassword) = "ptsadmin"
'Update configuration
objConfig.Fields.Update
Set myMail.Configuration = objConfig
myMail.Subject = "OCNJMuseum.org OC Native"
myMail.From = txtFrom
myMail.To = "info@ocnjmuseum.org"
myMail.TextBody = mailcontent
myMail.Send
Set objConfig = nothing
Set myMail = nothing
%>
<%else%>
<%end if%>
|
