|
|
| About US |
|
<% Dim DB Set DB = Server.CreateObject ("ADODB.Connection") DB.Mode = adModeReadWrite DB.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("..\database\counter.mdb") & "; Persist Security Info=false") Dim RS Set RS = Server.CreateObject ("ADODB.Recordset") RS.Open "SELECT * FROM visitors", DB Dim VisNo VisNo = RS.Fields("VisitorNo") + 1 Response.Write VisNo Dim nRS Set nRS = Server.CreateObject ("ADODB.Recordset") nRS.Open "UPDATE visitors SET VisitorNo = '" & VisNo & "'", DB DB.Close Set RS = Nothing Set DB = Nothing %> |
|
all rights reserved - Venecia - 2003 |
|
Designed by : Ahmed Helmy Ahmed |
|
Hosted by Internet Plus |