|
<%
Dim IPA,OverAll
OverAll = "overall"
IPA = Request.ServerVariables("SCRIPT_NAME")
strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("../DB/counter.mdb")
Set dbc = Server.CreateObject("ADODB.Connection")
dbc.open strConn
SQL = "SELECT * FROM counters WHERE counterpage = '"&OverAll&"'"
Set RS=Server.CreateObject("adodb.Recordset")
RS.Open SQL, dbc, 1, 3
RS("hits") = RS("hits") + 1
RS.Update
Response.Write "" & RS("hits") & " visited, "
RS.Close
Set RS=Nothing
dbc.Close
Set dbc=Nothing
%>
>
Since : 15 August 2000
Last update : 31 December 2020
|
http://www.bangsaenchurch.org
เว็บไซต์วัดแรกของสังฆมณฑลจันทบุรี
Mailto: wichai@buu.ac.th
|
