<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Set conn = Server.CreateObject("ADODB.Connection") sConnString="Provider = Microsoft.Jet.OLEDB.4.0; Data Source= " & Server.MapPath("/db/dbA1.mdb") & " ;Persist Security Info=False" Conn.Open(sConnString) %> <% qstr = "SELECT var_value FROM siteconfig where var_name = 'page_count' " set rs = conn.execute (qstr) max= rs("var_value") qstr= "update siteconfig set var_value= '" & max + 1 & "' where var_name = 'page_count'" conn.execute(qstr) response.write max %> <% conn.close set conn= Nothing %>