<%@ Language=VBScript %>
<% Option Explicit %>
<%

	Const strHeader = "Error Broken Link Report for: HouseView"
	Const strFooter = "Form mailer created by Scott Slinkard/houseviewonline.com, 2000"

	Const strTo = "scott@houseviewonline.com"
	
	Dim strFrom, strSubject, strRedirectURL, strFromPath
	
	strFrom = "website@HouseviewOnline.com"

        strSubject = "Error or Broken Link Report!"

	
	strRedirectURL = Request.Form("urlSendTo")
	if Len(strRedirectURL) = 0 then strRedirectURL = "/"
	
	strFromPath = "http://www.houseviewonline.com/errorreport.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
	

         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
%>