You
are visitor number
<%
if request.querystring("Action") = "Send" then
dim msgBody
msgBody = ""
for each item in Request.Form
msgBody = msgBody & item & "=" & Request.Form(item) & Chr(13)
next
msgTo = "info@" & mid(strServerName,5,45)
Dim myCDO
Set myCDO = Server.CreateObject("CDONTS.NewMail")
myCDO.Send "My Web Page", msgTo,"Web Page Status", msgBody
Set myCDO = nothing
Select Case Err.number
Case 0:
'EVERYTHING IS GOOD
Response.Write("
")
Case Else:
'ERROR PROCESSING
Response.Write("Your inquiry has been received & you will be contacted shortly.
")
End Select
end if
%>There has been an error in processing your request, please try again.
Sample contact form, this form mails results to the webmaster