<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_iqra_STRING Recordset1.Source = "SELECT * FROM hit" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% set Command1 = Server.CreateObject("ADODB.Command") Command1.ActiveConnection = MM_iqra_STRING Command1.CommandText = "UPDATE hit SET id =id+1 " Command1.CommandType = 1 Command1.CommandTimeout = 0 Command1.Prepared = true Command1.Execute() %> :::... Welcome to IQRA University Peshawar Campus website ...:::
 

Set as homepage

Web mail
 
 

Web Search :

     

 

 

   

  Home | Webmaster | Faculty Login | Iqra Web mail | Contact us | Site Login | Site Search
  11 -B, Old Jamrud Road, University Town Peshawar. Site Designed & Developed by Kamran Zahid
<% Recordset1.Close() Set Recordset1 = Nothing %>