%
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
<%
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
%>
City
|
State
|
Number
|
<%
Dim bgDark
While not rs.EOF
bgDark = not bgDark
If bgDark Then
bg = "#efefef"
Else
bg = "#ffffff"
End If
%>
<% = UCase(rs("City")) %>
|
<% = rs("State") %>
|
<% = rs("Areacode") %>-<% = rs("Number") %>
|
<%
rs.MoveNext
Wend
%>
|
©<% = Year(Date()) %> Hypercon.net
<%
End If
Response.End
End Select
%>
<% Header %>
Hypercon.net - Access Numbers |
|
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 %>