<% 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