Okay, I have the form working: A person fils out a form on a website (collegereq.asp) which calls on an asp script(collegereqsubmit.asp), this then creates a page to display to the user of what he filled out and sends an email to me.
This works fine,
But now i need to inster check boxes in to the form, I can make them send me a value of either just “on” or just blank (if the check box is not selected). For the user, its easy to display for him/her by using [if…then…] in the HTML file, but because it sends me a the contents of an object (strBody) all it can send me is ‘on’ or nothing. I dont know how to change it to anything else.
The form: http://gearup.hawaii.edu/news/form/collegereq.asp
the script:
The checkboxes are:
strTV = Replace(Request.form(“TV”),"""","")
strSassy = Replace(Request.form(“Sassy”),"""","")
strRadio = Replace(Request.form(“Radio”),"""","")
strHadv = Replace(Request.form(“Hadv”),"""","")
strHoter = Replace(Request.form(“Hother”),"""","")
in the following script:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim strSName, strSchool, strClass, strSPhone, strSEmail, strSAddress, strSCity, strSState, strSZip
Dim strPName, strPPhone, strAltPhone, strPAddress, strPCity, strPState, strPZip
Dim strComments
Dim strOthert
Dim strUSMail
Dim strUPS
Dim strHoter
Dim strHadv
Dim strRadio
Dim strSassy
Dim strTV
Dim strBody, objMail
strSName = Replace( Request.Form("SName"), """", "" )
strSchool = Replace( Request.Form("School"), """", "" )
strClass = Replace( Request.Form("Class"), """", "" )
strSPhone = Replace( Request.Form("SPhone"), """", "" )
strSEmail = Replace( Request.Form("SEmail"), """", "" )
strSAddress = Replace( Request.Form("SAddress"), """", "" )
strSCity = Replace( Request.Form("SCity"), """", "" )
strSState = Replace( Request.Form("SState"), """", "" )
strSZip = Replace( Request.Form("SZip"), """", "" )
strPName = Replace( Request.Form("PName"), """", "" )
strPPhone = Replace( Request.Form("PPhone"), """", "" )
strAltPhone = Replace( Request.Form("AltPhone"), """", "" )
strPAddress = Replace( Request.Form("PAddress"), """", "" )
strPCity = Replace( Request.Form("PCity"), """", "" )
strPState = Replace( Request.Form("PState"), """", "" )
strPZip = Replace( Request.Form("PZip"), """", "" )
strComments = Replace( Request.Form("Comments"), """", "" )
strOthert = Replace( Request.Form("Othert"), """", "" )
strTV = Replace(Request.form("TV"),"""","")
strSassy = Replace(Request.form("Sassy"),"""","")
strRadio = Replace(Request.form("Radio"),"""","")
strHadv = Replace(Request.form("Hadv"),"""","")
strHoter = Replace(Request.form("Hother"),"""","")
strBody = "GEAR UP Scholars Info Update" & vbCrLf &_
"----------------------------------------" & vbCrLf & vbCrLf &_
"Name: " & strSName & vbCrLf &_
"School: " & strSchool & vbCrLf &_
"Grade or Expected Graduation: " & strClass & vbCrLf &_
"Phone: " & strSPhone & vbCrLf &_
"Email: " & strSEmail & vbCrLf &_
"Address: " & strSAddress & vbCrLf &_
"City: " & strSCity & vbCrLf &_
"State: " & strSState & vbCrLf &_
"Zip: " & strSZip & vbCrLf &_
"----------------------------------------" & vbCrLf & vbCrLf &_
"Other: " & strOthert & vbCrLf &_
"----------------------------------------" & vbCrLf & vbCrLf &_
"I heard about this through:" & vbCrLf & vbCrLf &_
"TV " &strTV & vbCrLf & vbCrLf &_
"Sassy /G magazine " &strSassy & vbCrLf & vbCrLf &_
"GEAR UP Newsletter " &strGnews & vbCrLf & vbCrLf &_
"Radio " &strRadio & vbCrLf & vbCrLf &_
"Honolulu Advertiser " &strHadv & vbCrLf & vbCrLf &_
"Other " &strHother & vbCrLf & vbCrLf &_
"----------------------------------------" & vbCrLf & vbCrLf &_
"Comments: " & strComments & vbCrLf & vbCrLf
Set objMail = Server.CreateObject("CDO.Message")
objMail.To = "[email protected]"
objMail.Cc = "[email protected]"
objMail.From = "[email protected]"
objMail.Subject = "College Planning/Financial Aid Guide Online Request Form - " & strSName
objMail.TextBody = strBody
objMail.Send
Set objMail = Nothing
if err.number > 0 then
response.write "Errors were encountered in sending your e-mail message. "&_
"Please try again, or contact the <a href='mailto:[email protected]'>webmaster</a>"
else
'You could use a JavaScript alert or write a confirmation to the screen. Sample javascript alert is shown in next line.
'Response.Write "<script language='JavaScript'>alert('Your e-mail has been sent!
Thank you for using our form!');</script>"
Response.Write "<h3>Your e-mail has been sent!! Thank you for your comment or question!</h3>"
end if
%>