<% Option Explicit Response.Expires = 0 dim srchby dim srchval dim dconn dim cmddc dim rs dim sql %> Search Results <% srchby=request.querystring("srchby") srchval=request.querystring("srchval") IF srchval="" THEN%>

CHAPEL INTERNET

To Lookup a number, Choose what to search by,
type in the value of your search and press GO!
If you aren't sure of a city's spelling just type part of it
Example: 'Char' would bring up 'Charlotte' and 'Charleston'

Sign up ONLINE
or call
Toll Free 888 747-4949
(859) 623-1500

Check local calling area
OR
See what number is closest to you.
 
<%ELSE%> <% Set dconn = Server.CreateObject("ADODB.Connection") dconn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data/numbers.mdb") Set cmddc = Server.CreateObject("ADODB.Command") cmddc.ActiveConnection = dconn SQL = "Select * From Numbers WHERE " & srchby & " LIKE '%" & srchval & "%' ORDER BY city" cmddc.CommandText = SQL cmddc.CommandType = 1 Set rs=Server.CreateObject("ADODB.Recordset") rs.open cmddc,,3,1 IF NOT rs.EOF THEN%> <%While NOT rs.EOF%> <%rs.MOVENEXT WEND ELSE%>
Click Here to Search Again Here to Search Again
CHAPEL INTERNET
 
Check local Calling Area
 
City St. Number V.92 Network
<%=rs("City")%> <%=rs("State")%> (<%=rs("AreaCode")%>) <%=rs("Number")%>

<%=rs("V92")%>   

<%=rs("Network")%>
<%END IF rs.Close dconn.close %>
We do not have listings for
<%=srchval%>
Click here to close this window
<%END IF%>