<%if request.form("action") = "send" then
Dim body
Body = "Feedback form from website" & vbCRLF & vbCRLF
Body = body & "First Name: " & Request.form("firstname") & vbCRLF
Body = body & "Last Name: " & Request.form("lastname") & vbCRLF
Body = body & "Address: " & Request.form("address") & vbCRLF
Body = body & "City: " & Request.form("city") & vbCRLF
Body = body & "State: " & Request.form("state") & vbCRLF
Body = body & "Zip: " & Request.form("zip") & vbCRLF
Body = body & "Phone: " & Request.form("phone") & vbCRLF
Body = body & "TTY: " & Request.form("TTY") & vbCRLF
Body = body & "Email: " & Request.form("Email") & vbCRLF
Body = body & "I am: " & Request.form("Iam") & vbCRLF
Body = body & "Comments: " & Request.form("comments") & vbCRLF & vbCRLF
Body = body & "IP: " & Request.ServerVariables("REMOTE_ADDR") & vbCRLF
If Request.form("Email") <> "" Then
sendmessage "forms@silentblessings.org", Request.form("Email"), "Feedback Form", body
Else
sendmessage "forms@silentblessings.org", "webmaster@silentblessings.org", "Feedback Form", body
End If
if request.form("email") <> "" then
autorespond request.form("email"), request.form("firstname")
end if
%>
|