%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_conn_STRING MM_conn_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db\db.mdb") %> <% set Command1 = Server.CreateObject("ADODB.Command") Command1.ActiveConnection = MM_conn_STRING Command1.CommandText = "UPDATE HIT SET HIT=HIT+1 " Command1.CommandType = 1 Command1.CommandTimeout = 0 Command1.Prepared = true Command1.Execute() %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_conn_STRING Recordset1.Source = "SELECT * FROM HIT" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %>
![]() |
||||
![]() |
|
![]() |
||
|
ASHRAF
MATCH PRIVATE LIMITED
Plot # W 30/34 Industrial Estate Jamrud Road, Peshawar, PAKISTAN. Tel:- 0092-91-5825634/ 0092-91-5813951 0092-91-5814468 Fax:-0092-91-5810181 E-mail :- ashmatch@brain.net.pk Site Visited: <%=(Recordset1.Fields.Item("HIT").Value)%> |
||||