<% if request("sub1")="Submit" then totbody="" totbody=totbody & "Feedback" & chr(13) & chr(13) & "Date : " & date & chr(13) & "Time : " & time() & chr(13) & "Visitors Name : " & request("visitorsname") & chr(13) & "Profession : " & request("profession") & chr(13) & "Email : " & request("email") & chr(13) & "Phone : " & request("phone") & chr(13) & "Institute : " & request("institute") & chr(13) & "Designation : " & request("designation") & chr(13) & "Address : " & request("address") & chr(13) & "Pin : " & request("pin") & chr(13) & "Country : " & request("country") & chr(13) & "Query : " & request("message") & chr(13) set rsmail=server.CreateObject ("CDONTS.NewMail") with rsmail .From=request("email") .To="envis@cal2.vsnl.net.in" .Subject="Feedback from " & request("visitorsname") .Body=totbody .Send end with end if %> ENVIS

FEED  BACK

   
Date <%=date()%>
Time <%=time()%>
Visitor's Name
Profession
Email
Phone
Institute
Designation
Address
Pin
Country
Query Regarding
 

TEST  PAGE