<% @Language = "VBScript" %>
<% Option Explicit %>
New York Skeet Shooting Assoication - Main Page
<%
'--------------------
' Local Variables
'--------------------
Dim rstRec1
Dim strQuery1
Dim lCount
If Session("currentcount")= "" Then
OpenNYSkeetDatabase()
Set rstRec1 = Server.CreateObject("ADODB.Recordset")
strQuery1 = "SELECT currentcount FROM SiteCounter"
rstRec1.Open strQuery1, SQLNYSkeetConn, adOpenDynamic, adLockOptimistic, adCmdText
If (rstRec1.BOF=False) And (rstRec1.EOF=False) Then
lCount = CLng(rstRec1("currentcount"))
lCount = lCount + 1
rstRec1("currentcount") = lCount
rstRec1.Update
Session("currentcount")="" & CStr(lCount) & " Visitors Since 04/01/2004
"
End If ' If (rstRec1.BOF=False) And (rstRec1.EOF=False) Then
rstRec1.Close
Set rstRec1 = Nothing
CloseNYSkeetDatabase()
End If ' If Session("currentcount") <> "" Then
Response.Write Session("currentcount")
'Response.Redirect("index.asp")
%>