<% ' MAXMIND TELEPHONE VERIFICATION ' ' CREATED BY BRIAN REPETTI ' FUNCTION THAT POSTS A REQUEST TO ' A SPECIFIED HOST AND RETURNS ANY INFO THERE Function SendXml(Host,Data) set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.open "POST", Host & Data & "", false xml.send "" 'strStatus = xml.Status SendXml = xml.responseText set xml = nothing End Function '------------------------------------ ' THE MAXMIND INTERFACE URL ' DEFAULT IS: https://www.maxmind.com/app/telephone_http '------------------------------------ strHost = "https://www.maxmind.com/app/telephone_http" '------------------------------------ ' YOUR LISCENCE MAXMIND GAVE U '------------------------------------ strLic = "xxxxxxxxxxx" '------------------------------------ ' PERSON TO CALL '------------------------------------ strPhone = "5555555555" '------------------------------------ ' THE VERIFICATION CODE YOU WANT ' COMMENT OUT TO LET MAX MIND ' CREATE A RANDOM CODE '------------------------------------ strVCode = "1234" '------------------------------------ ' DONT TOUCH THIS STUFF HERE, NO NEED TO '------------------------------------ strData = "?l=" & strLic & "&phone=" & strPhone if not strVCode = "" then strData = strData & "&verify_code=" &strVCode end if strResult = SendXml(strHost, strData) if Not strResult = "" Then If InStr(strResult, "err") = 0 then if strVCode = "" Then strVCode = Split(Split(strResult, ";")(1), "=")(1) strRefId = Split(Split(strResult, ";")(0), "=")(1) else strRefId = Split(strResult, "=")(1) end if else strError = Split(strResult, "=")(1) end if else strError = "NO RESULTS" end if If strError = "" then Response.Write "

SUCCESS!

" Response.Write "REFERENCE ID:" & strRefId & "
" Response.Write "VERIFICATION CODE:" & strVCode & "
" else Response.Write "

ERROR!

" Response.Write strError end if %>