Click Here

<% '''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Phone Code Functions ' ' ' GetAvailablePhoneNumberStates() - Retrieves the available states for available phone numbers ' GetAvailablePhoneNumberAreaCodes(state) - Retrieves the areacodes associated with a state ' GetAvailablePhoneNumberRateCenters(state,areacode) - Retrieves the rate centers for the available state and areacode ' GetAvailablePhoneNumbers(state,areacode,ratecenter) - Retrieves the phone number in the state, areacode and ratecenter specified ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''' if request("action") = "t1" then call GetAvailablePhoneNumberStates() elseif request("action") = "t2" then call GetAvailablePhoneNumberAreaCodes(request("t1")) elseif request("action") = "t3" then call GetAvailablePhoneNumberRateCenters(request("t1"),request("t2") ) elseif request("action") = "t4" then call GetAvailablePhoneNumbers(request("t1"),request("t2"),request("t3")) else response.write "" call GetAvailablePhoneNumberStates() response.write "


" end if function GetAvailablePhoneNumberStates() '''''''''''''''''''''''''''''''''''''''''''''''' ' Decription: Retrieves the available states for available phone numbers ' '''''''''''''''''''''''''''''''''''''''''''''''' VarString = "ApiKey=E%2f11z2VE1rTwTDC7GcHwHh%2fLDUPrMOYh70veOUqWayQ3I51fn%2fm3%2fD5PTOS7Cz5YznurUJ1fIKfVBZwQg%2bVPsaxncDzR6WE4gfyRLLvLJnw%3d" set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttp.open "POST", "https://connect.voicepulse.com/secure/services/Api0605.asmx/GetAvailablePhoneNumberStates",false objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXmlHttp.send VarString ResponseString = split(objXmlHttp.responseText, vblf) ResponseString = filter(ResponseString,"") %> <% response.write "" response.write "Select a State" i = 0 do while i < UBound(ResponseString)+1 slen = instr( mid(ResponseString(i),2,len(ResponseString(i))) ,"") svariable = mid(ResponseString(i),instr(ResponseString(i),">") + 1,slen ) response.write ""&svariable&"" i = i + 1 loop response.write "" end function function GetAvailablePhoneNumberAreaCodes(state) '''''''''''''''''''''''''''''''''''''''''''''''' ' Decription: Retrieves the areacodes associated with a state ' '''''''''''''''''''''''''''''''''''''''''''''''' VarString = "ApiKey=E%2f11z2VE1rTwTDC7GcHwHh%2fLDUPrMOYh70veOUqWayQ3I51fn%2fm3%2fD5PTOS7Cz5YznurUJ1fIKfVBZwQg%2bVPsaxncDzR6WE4gfyRLLvLJnw%3d&State="&state set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttp.open "POST", "https://connect.voicepulse.com/secure/services/Api0605.asmx/GetAvailablePhoneNumberAreaCodes",false objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXmlHttp.send VarString ResponseString = split(objXmlHttp.responseText, vblf) ResponseString = filter(ResponseString,"") response.write "" response.write "Select an AreaCode" i = 0 do while i < UBound(ResponseString)+1 slen = instr( mid(ResponseString(i),2,len(ResponseString(i))) ,"") svariable = mid(ResponseString(i),instr(ResponseString(i),">") + 1,slen ) response.write ""&svariable&"" i = i + 1 loop response.write "
" end function function GetAvailablePhoneNumberRateCenters(state,areacode) '''''''''''''''''''''''''''''''''''''''''''''''' ' Decription: Retrieves the available ratecenters for the available state & areacode ' '''''''''''''''''''''''''''''''''''''''''''''''' VarString = "ApiKey=E%2f11z2VE1rTwTDC7GcHwHh%2fLDUPrMOYh70veOUqWayQ3I51fn%2fm3%2fD5PTOS7Cz5YznurUJ1fIKfVBZwQg%2bVPsaxncDzR6WE4gfyRLLvLJnw%3d&State="&state&"&AreaCode="&areacode set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttp.open "POST", "https://connect.voicepulse.com/secure/services/Api0605.asmx/GetAvailablePhoneNumberRateCenters",false objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXmlHttp.send VarString RateCenterString = split(objXmlHttp.responseText, vblf) RateCenterString = filter(RateCenterString,"") CityString = split(objXmlHttp.responseText, vblf) CityString = filter(CityString,"") response.write "" response.write "Select a City" i = 0 do while i < UBound(RateCenterString)+1 slen1 = instr( mid(RateCenterString(i),2,len(RateCenterString(i))) ,"") svariable1 = mid(RateCenterString(i),instr(RateCenterString(i),">") + 1,slen1 ) slen2 = instr( mid( CityString(i),2,len( CityString(i))) ,"") svariable2 = mid( CityString(i),instr( CityString(i),">") + 1,slen2 ) ' if svariable1 = svariable2 then response.write ""&svariable2&"" 'else ' response.write ""&svariable1&" - "&svariable2&"" 'end if i = i + 1 loop response.write "
" end function function GetAvailablePhoneNumbers(state,areacode,ratecenter) '''''''''''''''''''''''''''''''''''''''''''''''' ' Decription: Retrieves the phone number in the state, areacode and ratecenter specified ' '''''''''''''''''''''''''''''''''''''''''''''''' VarString = "ApiKey=E%2f11z2VE1rTwTDC7GcHwHh%2fLDUPrMOYh70veOUqWayQ3I51fn%2fm3%2fD5PTOS7Cz5YznurUJ1fIKfVBZwQg%2bVPsaxncDzR6WE4gfyRLLvLJnw%3d&State="&state&"&AreaCode="&areacode&"&RateCenter="&ratecenter set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttp.open "POST", "https://connect.voicepulse.com/secure/services/Api0605.asmx/GetAvailablePhoneNumbers",false objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXmlHttp.send VarString ResponseString = split(objXmlHttp.responseText, vblf) ResponseString = filter(ResponseString,"") 'response.write "" 'response.write "Available Numbers" 'i = 0 response.write "

" do while i < UBound(ResponseString)+1 slen = instr( mid(ResponseString(i),2,len(ResponseString(i))) ,"") svariable = mid(ResponseString(i),instr(ResponseString(i),">") + 1,slen ) response.write svariable&"
" i = i + 1 loop if i = 0 then response.write "Nothing Available
" end if response.write "

" '--------------------------------------- ' old code below' '--------------------------------------- 'response.write "" 'response.write "Available Numbers" 'i = 0 'do while i < UBound(ResponseString)+1 ' slen = instr( mid(ResponseString(i),2,len(ResponseString(i))) ,"") ' svariable = mid(ResponseString(i),instr(ResponseString(i),">") + 1,slen ) ' response.write ""&svariable&"" ' i = i + 1 'loop ' if i = 0 then ' response.write "***Nothing Available***" ' end if 'response.write "
" end function %>