|
|
<%
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)
%>
<%
set rs = conn.execute("SELECT var_value FROM siteconfig where var_name = 'page_count' ")
if not rs.eof then
page_count = rs("var_value")
end if
%>
<%
conn.close
set conn= Nothing
%>
أنت
الزائر رقم
: <%= page_count%>
|
|
|