Boutique: Email Validation in Asp3.0

ASP3 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 = MB Then
Dim ODOM
Set ODOM = Oxmlhttp.responsexml
Dim ONL
Dim OCN
Dim OCC
Set ONL = Odom.getelementsbytagname ("Returnindicator")
For each OCN in ONL
For the all OCC in Ocn.childnodes
Select case LCase (occ.nodename)
Case "ResponseText"
Emaildata = Emaildata & "Codetxt:" & Occ.text & "<br>"
Case "Responsecode"
Emaildata = Emaildata & "Code:" & Occ.text & "<br>"
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