<% exchange = request.form("exchange") area_code = request.form("area_code") If exchange = "" then %> Please enter your area code and exchange.
<% response.end end if If area_code = "" then %> Please enter your area code and exchange.
<%
response.end
end if
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\hshome\nickp\access_numbers.mdb"
if area_code = "810" then
Set objRS = objConn.Execute("SELECT * FROM 810 WHERE Customer = " & request.form("exchange") & "")
elseif area_code = "313" then
Set objRS = objConn.Execute("SELECT * FROM 313 WHERE Customer = " & request.form("exchange") & "")
elseif area_code = "517" then
Set objRS = objConn.Execute("SELECT * FROM 517 WHERE Customer = " & request.form("exchange") & "")
elseif area_code = "248" then
Set objRS = objConn.Execute("SELECT * FROM 248 WHERE Customer = " & request.form("exchange") & "")
elseif area_code = "586" then
Set objRS = objConn.Execute("SELECT * FROM 586 WHERE Customer = " & request.form("exchange") & "")
elseif area_code = "989" then
Set objRS = objConn.Execute("SELECT * FROM 989 WHERE Customer = " & request.form("exchange") & "")
elseif area_code = "269" then
Set objRS = objConn.Execute("SELECT * FROM 269 WHERE Customer = " & request.form("exchange") & "")
elseif area_code = "947" then
Set objRS = objConn.Execute("SELECT * FROM 947 WHERE Customer = " & request.form("exchange") & "")
elseif area_code = "906" then
Set objRS = objConn.Execute("SELECT * FROM 906 WHERE Customer = " & request.form("exchange") & "")
elseif area_code = "734" then
Set objRS = objConn.Execute("SELECT * FROM 734 WHERE Customer = " & request.form("exchange") & "")
elseif area_code = "616" then
Set objRS = objConn.Execute("SELECT * FROM 616 WHERE Customer = " & request.form("exchange") & "")
elseif area_code = "231" then
Set objRS = objConn.Execute("SELECT * FROM 231 WHERE Customer = " & request.form("exchange") & "")
else
%>
Sorry we do not offer dial up services in the <%=area_code%> area code.
Please enter your area code and exchange.
<%
response.end
end if
If objRS.EOF Then
%>
Sorry we do not offer dial up services in the <%=exchange%> exchange.
Please enter your area code and exchange.
<% response.end Else access_number = objRS(1) %> Your local access number is <%=access_number%>.
| You may need to dial 1+(Area Code) due to new zoning codes, even though the call would still be local. Please always contact your local telephone operator to verify the number listed above is indeed local. Mich1 is not responsible for any telephone charges. |