MyPrepaidInternet.com has more than 22,000 access numbers across the continental United States. These access numbers serve more than 65,000 cities with local access to our dialup Internet service. If you are traveling and not familiar with the local area of the city you are in, you might want to print out the list of numbers in the area code you are visiting and ask a local resident which number or numbers is local to where you are at. In most cases one number will be local to several cities close by.

<% ElseIf Request.Form("areacode") <> "" Then dim sqlcode sqlcode = Request.Form("areacode") %> " rs.MoveNext Wend %>

<% Set cn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") cn.Open session("connectstring") dim strSQL strSQL = "SELECT DISTINCT city=pop_city, state=pop_state, num=pop_number FROM pop WHERE (left(pop_number,3)='" & sqlcode & "')" rs.Open strSQL, cn, 1, 2 While Not rs.EOF Response.Write "
"& rs("city") &"	" & rs("state") & "	" & mask(rs("num")) & "

<% ElseIf request.form("areacode") = "" and request.form("state") <> "" Then dim sqlCity sqlCity = request.form("city") dim sqlState sqlState = request.form("state") %> " rs.MoveNext Wend %>

<% Set cn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") cn.Open session("connectstring") dim SQLstr if sqlCity <> "" then sqladd = "(pop_city='" & sqlCity & "') and " else sqladd = "" end if SQLstr = "SELECT DISTINCT city=pop_city, state=pop_state, num=pop_number FROM pop WHERE " & sqladd & " (pop_state='" & sqlState & "')" rs.Open SQLstr, cn, 1, 2 While Not rs.EOF Response.Write "
"& rs("city") &"	" & rs("state") & "	" & mask(rs("num")) & "

<% End If %>