<% @language=vbscript%>
<% Response.Buffer=true%>
<%
dim name,email,comments,objCdo,errflag,strerror,dbconnection,dbrecordset,datetime,ipaddress
function checkinput()
if trim(Request.Form("txtname"))="" then
strerror=strerror & "Please enter your name" & " "
errflag="1"
end if
if trim(Request.Form("txtemail"))="" then
strerror=strerror & "Please enter your email address" & " "
errflag="1"
end if
if trim(Request.Form("txtcomments"))="" then
strerror=strerror & "Please give us your comments" & " "
errflag="1"
end if
end function
datetime=now()
ipaddress=Request.ServerVariables("remote_addr")
name=Request.Form("txtname")
email=Request.Form("txtemail")
comments=Request.Form("txtcomments")
%>
Your Feedback
