Would like to be added to mailing list: " & Maillist & "
" & Chr(13)
BodyText = BodyText & "Name: " & Request.form("FromName") & Chr(13)
BodyText = BodyText & "Phone: " & Request.form("Phone") & Chr(13)
BodyText = BodyText & "Email: " & Request.form("From") & Chr(13)
BodyText = BodyText & "Interest: " & Request.form("Interest") & Chr(13)
BodyText = BodyText & "Comments/Questions: " & Request.form("Comments") & Chr(13)
Mail.Body = BodyText
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
response.redirect ("http://www.blairmorganphoto.com/thanks.html")
End If
%>
|