<%@LANGUAGE="VBSCRIPT"%> <% Response.Buffer=True Response.Expires = 0 flag="False" %> <% function TestCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then TestCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then TestCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then TestCaptcha = true else TestCaptcha = false end if end if end if end function %> <% mName = Request.Form("name") mLocation = Request.Form("location") mAddress = Request.Form("address") mEmail = Request.Form("email") mPhone = Request.Form("phone") mRemarks = Request.Form("remarks") %> KOHIMA DIOCESE
 
 

<% if flag="True" then set rs=Server.CreateObject("Adodb.recordset") sql="select count(*) from feedback" rs.open(sql), con ctr=0 if rs(0)=0 then ctr=1 else rs.close sql="select max(slno) from feedback" rs.open(sql), con ctr=rs(0)+1 end if rs.close con.execute "Insert into Feedback (slno,name,location,address,email,phone,remarks, feedback_date) values (" & ctr & ",'" & Request.form("name") & "','" & Request.form("location") & "','" & Request.form("address") & "','" & Request.Form("email") & "','" & Request.Form("phone") & "','" & Request.Form("remarks") & "',#" & date & "#)" %> <%end if%>
GUEST BOOK | VIEW GUEST BOOK
 
<% if not IsEmpty(Request.Form("Submit")) then Response.Write("") flag="False" end if Response.Write("" & vbCrLf) end if %>
Please provide us some valuable Comments/Suggestions or Share a news with us to provide you with service
*Name ::
Location ::
Address :: 
*E-Mail :: 
Phone :: 
*Your Remarks :: 
CAPTCHA ::
Please enter the string shown
above in the captcha image ::
") if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then Response.Write("
The code you enter verified.") flag="True" else Response.Write("You entered the wrong captcha code.


THANK YOU FOR YOUR VALUABLE FEEDBACK
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
copyright@KOHIMA DIOCESE. All rights reserved. Designed & Maintained by Dot com Services(I) Pvt. Ltd.