<% dim vname dim vaddress dim vaddress2 dim vphone dim vemail dim vfax dim vcomment dim vaction dim verror vname = Trim(Request.Form("name")) vaddress = Trim(Request.Form("address")) vaddress2 = Trim(Request.Form("address2")) vphone = Trim(Request.Form("phone")) vemail = Trim(Request.Form("email")) vfax = Trim(Request.Form("fax")) vcomment = Trim(Request.Form("comment")) vaction = Trim(Request.Form("action")) If vaction = "SEND" Then SendMail DisplayResult Else DisplayForm End If '------------------------------------------------------------------------------------- Sub DisplayForm %>Feedback Form

We value your feedback. Please provide your comments below. Your contact information is optional, but necessary if you would like a reply.

Name:
Address:
City/State/Zip:
Phone:
E-mail:
Fax:
Comments:

   

<%end sub '---------------------------------------------------------------------------------- sub sendmail if len(vname) = 0 Then vError = "Please enter your name" Exit Sub End If If Len(vemail) = 0 Then vError = "Please enter your email address" Exit Sub End If If Len(vcomment) = 0 Then vError = "Please enter your question or comment" Exit Sub End If Dim oBody oBody = "Feedback Form" & vbCrLf oBody = oBody & "Name: " & vname & vbCrLf oBody = oBody & "Address: " & vaddress & vbCrLf oBody = oBody & "City/State/Zip: " & vaddress2 & vbCrLf oBody = oBody & "Phone: " & vphone & vbCrLf oBody = oBody & "Email: " & vemail & vbCrLf oBody = oBody & "Fax: " & vfax & vbCrLf oBody = oBody & "Comment: " & vcomment & vbCrLf Dim oMail Set oMail = Server.CreateObject ("CDONTS.NEWMAIL") oMail.From = "infopros@infopros.com" oMail.Subject = "Feedback Form" oMail.Body = oBody oMail.To = "klyman@cmspcounties.org" oMail.Bcc = "maintenance@infopros.com" oMail.Send End Sub '---------------------------------------------------------------------------------- Sub DisplayError(errorMessage) %><%=errorMessage%>

<% end sub '---------------------------------------------------------------------------------- sub displayresult if len(verror) = 0 Then %>

Thank you for submitting your comment.

<% else call displayerror(verror) call displayform end if end sub '---------------------------------------------------------------------------------- %>