%@ Language=VBScript %>
<% Response.Buffer = true %>
<% Server.ScriptTimeout=150 %>
<%
'on error resume next
'for each thing in Request.Form
' Response.Write "
" & thing & ":::" & Request.Form(thing)
'next
msubmit = Request.Form("Submit3")
success = "N"
if ( msubmit = "Submit" ) then
set mymail = server.CreateObject("CDONTS.NewMail")
mymail.To = ""
mymail.from = Request.Form("email")
if not ( Request.Form("email") = "" ) then
mymail.From = Request.Form("email")
end if
if not ( Request.Form("name") = "" ) then
mymail.Subject = "Suggestions from : " & Request.Form("name")
else
mymail.Subject = "Suggestion Form : on-lyne.info"
end if
mbody = ""
mbody = "
NAME : " & Request.Form("name") & "
" end if if not ( Request.Form("sex") = "M" ) then mbody = mbody & "SEX : " & "MALE
" end if if not ( Request.Form("sex") = "F" ) then mbody = mbody & "SEX : " & "FEMALE
" end if if not ( Request.Form("email") = "" ) then mbody = mbody & "EMAIL : " & Request.Form("email") & "
" end if if not ( Request.Form("city") = "" ) then mbody = mbody & "CITY : " & Request.Form("city") & "
" end if if not ( Request.Form("country") = "" ) then mbody = mbody & "COUNTRY : " & Request.Form("country") & "
" end if if not ( Request.Form("navigate") = "E" ) then mbody = mbody & "NAVIGATE : " & "EASY
" end if if not ( Request.Form("navigate") = "D" ) then mbody = mbody & "NAVIGATE : " & "DIFFICULT
" end if if not ( Request.Form("comment") = "" ) then mbody = mbody & "COMMENT : " & Request.Form("comment") & "
" end if if not ( Request.Form("inclusion") = "" ) then mbody = mbody & "TO INCLUDE : " & Request.Form("inclusion") & "
" end if if not ( Request.Form("suggestion") = "" ) then mbody = mbody & "SUGGESTION " & Request.Form("suggestion") & "
" end if mymail.Body = mbody mymail.Importance = 1 mymail.BodyFormat = 0 mymail.MailFormat = 0 mymail.Send success = "Y" set mymail = nothing end if %>