<% 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 Contest Station Database Search Start

World HF Contest Station Database

Web hosting donated by Jamie Punderson W2QO

and Networks & More, Inc. (http://www.k12usa.com & http://www.isboss.com)

ASP programming by Mike Reublin, NF4L

Original concept and data collection by Scott Tuthill, K7ZO
Modified for the World Wide Web by Pete Smith, N4ZR


Temporarily Suspended - See Below

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