<%@ Language=VBScript %>
 <!--#INCLUDE VIRTUAL="/common/header.inc" --> 
  <!--#INCLUDE VIRTUAL="/common/CaptchasDotNet.asp" --> 
<%
  ' Construct the captchas object.
  ' Required Parameters
  ' You receive this values upon registration at http://captchas.net.
  ' client: "demo"
  ' secret: "secret"
  ' Optional Parameters and defaults
  ' repository_prefix: "captchas_net_random/" (path to repository)
  ' cleanup_time: "3600" (max 1 hour between query and check)
  ' alphabet: "abcdefghijklmnopqrstuvwxyz" (Used characters in captcha)
  ' letters: "6" (Number of characters in captcha)
  ' width: "240" (image width)
  ' height: "80" (image height)

  Dim captchas
  Set captchas = CaptchasDotNet ("houseviewonline","W1n0OfCZydKr6CvY8yni94kGz945ohLaGDpD05E9","","","abcdefghkmnopqrstuvwxyz","6","240","80")

  ' We recommend small letters without mistakable ijl:
  ' Set captchas = CaptchasDotNet ("demo","secret","","","abcdefghkmnopqrstuvwxyz","","","")
  ' Don't forget same settings in check.asp


	Const strHeader = "Request For Advertisement!"
	Const strFooter = "Form mailer created by Scott houseviewonline.com"

	strTo = stremail
	
	Dim strFrom, strSubject, strRedirectURL, strFromPath
	
	strFrom = "website@" & strtitle

        strSubject = "Request For Advertisement!"

	
	strRedirectURL = Request.Form("urlSendTo")
	if Len(strRedirectURL) = 0 then strRedirectURL = "/"
	
	strFromPath = straddress & "/advertise.asp"

	Dim strBody
	strBody = strHeader & vbCrLf & vbCrLf
	strBody = strBody & "FORM: " & strFromPath & vbCrLf & _
			  "FORM submitted at " & Now() & vbCrLf & vbCrLf

	Dim myElement	
	For Each myElement in Request.Form
		Select Case Left(myElement,3)
			Case "txt","sel","rad":
				strBody = strBody & Replace(Mid(myElement,4,len(myElement)),"."," ") & _
						  ": "
				if Len(Request.Form(myElement)) = 0 then
					strBody = strBody & "UNANSWERED"
				else
					strBody = strBody & Request.Form(myElement)
				end if
				
				strBody = strBody & vbCrLf
				
			Case "chk":
				strBody = strBody & Replace(Mid(myElement,4,len(myElement)),"."," ") & _
					": " & Request.Form(myElement) & vbCrLf
		End Select	
	Next
	
	strBody = strBody & vbCrLf & strFooter
	

'Captcha Post Check~~~
If Not captchas.validate (Request.Form("random")) Then
  Response.Redirect("/advertise.asp?E=1")
ElseIf Not captchas.verify (Request.Form("password")) Then
  Response.Redirect("/advertise.asp?E=2")
Else
        ' set sm = Server.CreateOBject("JMail.Message")
        ' sm.Logging = True
        ' sm.silent = False
        ' sm.From = strFrom
        ' sm.FromName = "Houseviewonline"
        ' sm.AddRecipient strTo
        ' sm.Subject = strSubject
        ' sm.Body = strBody
        ' sm.Send("mail.sitewerkz.com")
        ' set sm = Nothing	
	Response.Redirect strRedirectURL
End If
Set captchas = Nothing
%>