<% If request("submit") <> "" THEN for each Item in Request.Form execute("Dim " & Item) execute(Item & " = replace(request.form(""" & Item & """), ""'"", ""''"")") next strReferer = request.servervariables("HTTP_REFERER") If InStr(strReferer, "jericho-road.net/funrunreg.asp") = 0 THEN Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "error@kesseltech.com" objMail.Subject = "Invalid Form Entry on Jericho-Road.net Fun Run registration." objMail.To = "ekessel@kesseltech.com" objMail.Body = "Someone tried to use your form." & vbCrLf & "The request came from " & strReferer & vbCrLf & vbCrLf & "Name: " & vbCrLf & Name & vbCrLf & vbCrLf & "Position:" & vbCrLf & Position & vbCrLf & vbCrLf & "Email:" & vbCrLf & Email & vbCrLf & vbCrLf & "Your Phone:" & vbCrLf & YourPhone & vbCrLf & vbCrLf & "Club Name:" & vbCrLf & ClubName & vbCrLf & vbCrLf & "Club Street Address:" & vbCrLf & ClubStreetAddress & vbCrLf & vbCrLf & "Club City:" & vbCrLf & ClubCity & vbCrLf & vbCrLf & "Club State:" & vbCrLf & ClubState & vbCrLf & vbCrLf & "Club Zip Code:" & vbCrLf & ClubZip & vbCrLf & vbCrLf & "Club Phone:" & vbCrLf & ClubPhone & vbCrLf & vbCrLf & "Source:" & vbCrLf & whichRace objMail.Send set objMail = nothing Response.Write("

Error!

You seem to be sending a request that isn't valid.

") else Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = Email objMail.Subject = "Fun Run Registration on Jericho-road.net" objMail.To = "ekessel@kesseltech.com" objMail.Body = "Name: " & vbCrLf & Name & vbCrLf & vbCrLf & "Position:" & vbCrLf & Position & vbCrLf & vbCrLf & "Email:" & vbCrLf & Email & vbCrLf & vbCrLf & "Your Phone:" & vbCrLf & YourPhone & vbCrLf & vbCrLf & "Club Name:" & vbCrLf & ClubName & vbCrLf & vbCrLf & "Club Street Address:" & vbCrLf & ClubStreetAddress & vbCrLf & vbCrLf & "Club City:" & vbCrLf & ClubCity & vbCrLf & vbCrLf & "Club State:" & vbCrLf & ClubState & vbCrLf & vbCrLf & "Club Zip Code:" & vbCrLf & ClubZip & vbCrLf & vbCrLf & "Club Phone:" & vbCrLf & ClubPhone & vbCrLf & vbCrLf & "Source:" & vbCrLf & whichRace objMail.Send set objMail = nothing Response.Write("

Confirmation

Now that we have your information, Please click the DONATE link below to complete your Fun Run registration.

") end if Else <% If request("submit") <> "" THEN for each Item in Request.Form execute("Dim " & Item) execute(Item & " = replace(request.form(""" & Item & """), ""'"", ""''"")") next strReferer = request.servervariables("HTTP_REFERER") If InStr(strReferer, "jericho-road.net/funrunreg.asp") = 0 THEN Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "error@kesseltech.com" objMail.Subject = "Invalid Form Entry on Jericho-Road.net Fun Run registration." objMail.To = "ekessel@kesseltech.com" objMail.Body = "Someone tried to use your form." & vbCrLf & "The request came from " & strReferer & vbCrLf & vbCrLf & "Name: " & vbCrLf & Name & vbCrLf & vbCrLf & "Position:" & vbCrLf & Position & vbCrLf & vbCrLf & "Email:" & vbCrLf & Email & vbCrLf & vbCrLf & "Your Phone:" & vbCrLf & YourPhone & vbCrLf & vbCrLf & "Club Name:" & vbCrLf & ClubName & vbCrLf & vbCrLf & "Club Street Address:" & vbCrLf & ClubStreetAddress & vbCrLf & vbCrLf & "Club City:" & vbCrLf & ClubCity & vbCrLf & vbCrLf & "Club State:" & vbCrLf & ClubState & vbCrLf & vbCrLf & "Club Zip Code:" & vbCrLf & ClubZip & vbCrLf & vbCrLf & "Club Phone:" & vbCrLf & ClubPhone & vbCrLf & vbCrLf & "Source:" & vbCrLf & whichRace objMail.Send set objMail = nothing Response.Write("

Error!

You seem to be sending a request that isn't valid.

Confirmation

Now that we have your information, Please click the DONATE link below to complete your Fun Run registration.

") end if Else %> <% End If %>