% Option Explicit dim DBPath, Conn, RS, RecCnt, SQL Response.Buffer = True session.timeout = 60*2 If request.servervariables("Server_Name") = "broomhilda" then DBPath = Server.MapPath("..\N4ZR\fpDB\WCSD.mdb") Else DBPath = Server.MapPath("\fpdb\wcsd.mdb") End If Set Conn = server.createobject("adodb.connection") Conn.Open "provider=Microsoft.Jet.OLEDB.4.0;" & "data source=" & DBPath Set rs = Server.CreateObject ("ADODB.Recordset") SQL="SELECT COUNT(*) as ccount from stations" set rs=Conn.execute(SQL) RecCnt = RS("ccount") 'Response.write RS("ccount") Conn.Close Set Conn = nothing %>
World HF Contest Station Database
Web hosting donated by Jamie Punderson W2QO
ASP programming by Mike Reublin, NF4L
concept and data collection by Scott Tuthill, K7ZO
Effective September 4, 2013, the WCSD is temporarily closed. Bruce Horn, WA7BNM is taking it over, and will deploy it on his server at the same URL - http://www.conteststations.com. I have forwarded all the current data to him, so nothing will be lost.
73, Pete N4ZR