<%Option Explicit %> <% dim username,loguser username = Request.Form("username") %><% Dim RandNumb 'Dimension variables Dim adoCon 'Holds the Database Connection Object Dim rsUpdateEntry,rs1 'Holds the recordset for the record to be updated Dim strSQL 'Holds the SQL query for the database Dim lngRecordNo ,xmsg,flag,flag1,xm,xno,xnumrec 'Holds the record number to be updated Dim max,min max=1000 min=1 Randomize xno = (Int((max-min+1)*Rnd+min)) Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("kvoparichay.mdb") Set rsUpdateEntry = Server.CreateObject("ADODB.Recordset") randnumb = (CInt(1000 * Rnd) + 1) * -1 strSql = "SELECT gno FROM chk ;" rsUpdateEntry.CursorType = 2 rsUpdateEntry.LockType = 3 rsUpdateEntry.Open strSQL, adoCon rsupdateentry.Move xno xnumrec = rsupdateentry.fields("gno") %> Welcome to the wonderful world of KVO PARICHAY.....www.kvoparchay.org
Home About Us Committee Photo Gallery Feedback Contact Us

FEEDBACK

Your name
Village  Name :
Address :
Pin code :
City : State

Country :

Office Telephone : Fax
E-mail : Mobile No :
Your Feedback Details

Verified Code : <% response.write xnumrec%>

Enter the Verified Code shown above

 

      
 

Please Send/mail your photo ( passport size) to admin@kvoparichay.org with your username & full name

Best work on Internet Explorer
Copyrights 2007 KVO Parichay All Rights Reserved.                                                                Powered By