<% dim hitsno,sql1,objohits,objors,URL,Referer, DSNtest URL = Request.ServerVariables("SERVER_NAME") referer= Request.ServerVariables("HTTP_REFERER") if (InStr(referer,URL )<>0) then set objohits = Server.CreateObject( "ADODB.Connection" ) set objors = Server.CreateObject( "ADODB.Recordset" ) objohits.Open("UID=vyapam;PWD=Hiy*74#SxP;DATABASE=i4vyapam;SERVER=10.1.52.44;DRIVER={SQL SERVER}" ) sql1 = "select * from hits_f1" objors.Open sql1,objohits, adlockoptimistic, adcmdtable objors.movelast hitsno = objors("hits_no") hitsno = hitsno + 1 objors("hits_no") = hitsno objors.update objors.close objohits.close set objors = Nothing set objohits = Nothing if objrs.eof then objconn.close set objrs = Nothing set objohits = Nothing response.redirect "error.htm" end if end if %>
INFORMATION ABOUT ENTRANCE TEST CONDUCTED BY
MADHYA PRADESH PROFESSIONAL EXAMINATION BOARD, BHOPAL