<% Server.ScriptTimeout = 22000 %> <% 'Dim Conn Conn = "DSN=gcnphone" Dim pConn pConn = "DSN=phone;UID=phone;PASSWORD=!qaz@wsx" Dim action action = Request("action") Select Case action Case "download" Dim tabText Set rs = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT * FROM Numbers ORDER BY State ASC, City ASC" rs.Open SQL, pConn, 1, 3 tabText = tabText & "City" & vbTab tabText = tabText & "State" & vbTab tabText = tabText & "AccessNumber" & vbCr While not rs.EOF tabText = tabText & UCase(rs("City")) & vbTab tabText = tabText & rs("State") & vbTab tabText = tabText & rs("Areacode") & "-" & rs("Number") & vbCr rs.Movenext Wend Response.ContentType = "text/tab" Response.AddHeader "Content-Disposition", "attachment;filename=" & chr(34) & "phonenumbers.slk" & chr(34) Response.Write tabText Set rs = Nothing Response.End Case "search" 'Response.Write Request("Area") & "
" 'Response.Write Request("City") & "
" 'Response.Write Request("State") & "
" 'Response.End %> Hypercon.net - Local Access Numbers
Access Number Search
Area Code ">
State ">
City ">

<% Dim HasWhere HasWhere = False Set rs = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT * FROM Numbers" If Request("Area") <> "" Then SQL = SQL & " WHERE (Areacode = '" & Request("Area") & "')" HasWhere = True End If If Request("State") <> "" Then If HasWhere Then SQL = SQL & " AND (State = '" & Request("State") & "')" Else SQL = SQL & " WHERE (State = '" & Request("State") & "')" HasWhere = True End If End If If Request("City") <> "" Then If HasWhere Then SQL = SQL & " AND (City LIKE '%" & Request("City") & "%')" Else SQL = SQL & " WHERE (City LIKE '%" & Request("City") & "%')" HasWhere = True End If End If SQL = SQL & " ORDER BY City ASC" rs.Open SQL, pConn, 1, 3 If rs.BOF and rs.EOF Then %>

Nothing could be found, please try again.
<% Else %>
<% Dim bgDark While not rs.EOF bgDark = not bgDark If bgDark Then bg = "#efefef" Else bg = "#ffffff" End If %> <% rs.MoveNext Wend %>
City State Number
<% = UCase(rs("City")) %> <% = rs("State") %> <% = rs("Areacode") %>-<% = rs("Number") %>
©<% = Year(Date()) %> Hypercon.net
<% End If Response.End End Select %> <% Header %>
Hypercon.net - Access Numbers


Access Number Search
Area Code ">
State ">
City ">

Please disable any popup blocking software in order to use our local access number search.
Verify, with your local telephone operator, that a number is local to you before connecting. Hypercon.net is not responsible for any toll charges you may inncur.
<% Footer %>