TIME ZONES <%'=Request.ServerVariables("HTTP_USER_AGENT")%> <%'Main outside table%>

Formerly KG6QVB
MEMBER LOGIN

Tracy CA USA - CM97bg    
Find Me on 146.655 - pl 100 in the Tracy, Manteca,Livermore Area
Extended to santa Clara County
or on repeaters:
Tracy, CA Repeater 146.655 - PL 100.00
Manteca, CA Repeater 146.985 - PL 100.00
146.880 - PL 94.8

  Track WY6E and others on "WY6E" Sorry this is broke - working on it

  Try APRS.FI Very well done

ECHOLINK Node number 132871
SIGN GUEST BOOK

  Search California, Nevada, Oregon, Washington
   Repeaters - UPDATED
Repeater Search

F.C.C. Part 97



Icom 706MKIIG
Control Software:IC706BKT   Memory management: Management Software


Need an upgrade? - Know someone who wants to start?
HAM CRAMS - SJHAM.COM


Clubs/Groups:

Commercial Links:
Interesting Links:
 
9AM Talk Net NARCC - Repeater Listings
Ham Universe - Home Brew Antennas BUX COMM
Serial / RJ-45 Cable PinOut QRZ.com - A place to lookup call signs and take practice test






<% dim fs, f set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.GetFile(Server.MapPath("\wy6e.asp")) Response.Write "U/D " & formatdatetime(f.DateLastModified,1) & " @ " & formatdatetime(f.DateLastModified,4) 'Response.Write Server.MapPath("\") set f=nothing set fs=nothing %> <% '*********************************************************************************************** Sub guest(page) Dim AdoCon,sql,res,ConnString,ip,itemarray ConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("contact.mdb") ip = Request.ServerVariables("remote_addr") 'if mid(Request.ServerVariables("remote_addr"),1,3) = "192" or mid(Request.ServerVariables("remote_addr"),1,9) = "63.196.25" then if mid(Request.ServerVariables("remote_addr"),1,3) = "192" or mid(Request.ServerVariables("remote_addr"),1,12) = "76.220.80.14" or mid(Request.ServerVariables("remote_addr"),1,13) = "63.196.25.222" then exit sub End IF 'Response.Write request("stoptime") - request("starttime") Set AdoCon = Server.CreateObject("ADODB.Connection") ' open the ADO connection AdoCon.Open ConnString ' Check to see if this person has been here before sql ="Select ip,max(dte) as ldate from guest where ip like '" & ip & "' group by ip" set res = Server.CreateObject("ADODB.Recordset") set res = AdoCon.Execute(SQL) if not res.eof then 'if we're not at the end of the record set they have not been here itemarray = res.getrows() if isarray(itemarray) then 'if there is something in the array if datediff("H",itemarray(1,i),now()) > 1 then 'if the time from last record is greater than an hour sql="insert into guest (ldate,ltime,DTE,page,ip) values (" sql = sql & "'" & longdate & "'," sql = sql & "'" & formatdatetime(time(),4) & "'," sql = sql & "'" & now() & "'," sql = sql & "'" & page & "'," sql = sql & "'" & Request.ServerVariables("remote_addr") & "'" sql = sql & ")" AdoCon.Execute(SQL) End IF End IF Else sql="insert into guest (ldate,ltime,DTE,ip) values (" sql = sql & "'" & longdate & "'," sql = sql & "'" & formatdatetime(time(),4) & "'," sql = sql & "'" & now() & "'," sql = sql & "'" & Request.ServerVariables("remote_addr") & "'" sql = sql & ")" 'Response.Write sql 'set res = Server.CreateObject("ADODB.Recordset") AdoCon.Execute(SQL) end if %> <% adocon.Close set res = nothing set adocon = nothing End Sub '*********************************************************************************************** %>