dim email

dim status

dim emaildata

dim LicenseKey

licensekey = 0

if Request.Form.Count > 0 then

email = Request.Form("email")

Dim oXMLHTTP

Set oXMLHTTP = server.CreateObject("MsXML2.ServerXMLHTTP")

oXMLHTTP.Open "POST", _

"http://ws.cdyne.com/emailverify/ev.asmx/VerifyEmail", _

False

oXMLHTTP.setRequestHeader "Content-Type", _

"application/x-www-form-urlencoded"

oXMLHTTP.send "email=" & server.URLEncode(email) & "&LicenseKey=" & server.URLEncode(LicenseKey)

Response.Write oXMLhttp.status

If oXMLHTTP.Status = 200 Then

Dim oDOM

Set oDOM = oXMLHTTP.responseXML

Dim oNL

Dim oCN

Dim oCC

Set oNL = oDOM.getElementsByTagName("ReturnIndicator")

For Each oCN In oNL

For Each oCC In oCN.childNodes

Select Case LCase(oCC.nodeName)

Case "responsetext"

emaildata = emaildata & "CodeTxt: " & occ.text & "
"

Case "responsecode"

emaildata = emaildata & "Code: " & occ.text & "
"

End Select

Next

Next

if status = "" then status = "OK"

Set oCC = Nothing

Set oCN = Nothing

Set oNL = Nothing

Set oDOM = Nothing

else

Status = "Service Unavailable. Try again later"

End If

Set oXMLHTTP = Nothing

end if