<%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("STD.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") %> Update From President..............www.kutchggf.org

Home About Us Committee Activities Search Photo
Gallery
Download
Forms
Feedback Contact Us
Your Update for website
Topic
Description
 
Update By
Mobile No
 
Powered By