<% set con=server.createobject("adodb.connection") set rs=server.createobject("adodb.recordset") strprovider = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="& Server.Mappath("cgi-bin\counter1.mdb") & ";" con.Open strprovider%> <% rs.LockType = adLockOptimistic rs.Open "select * from counter1 where code=999",con if not rs.eof then hit = rs(1) + 1 rs(1) = hit rs.Update end if %>
You Are Visitor No
<%=rs(1)%> 
Today's Date
Home
Yellow Pages
Finance
Weather
News
Government


Hotels
Tour Agencies
Shopping Malls


Attraction


Altavista
Infoseek
Lycos
Webcrawler
Yahoo

.

 
Google
 
Web Shanghai Yellow Pages Portal
 




bussiness guide Bizweb Communication classification A

 

Copyright © 2000 Bizweb Communications Pte Ltd. All rights reserved.
Reproduction in whole or in part without permission is prohibited.