|
|
|
Insure yourself from spam! The Anti Spam Insurance Company - ProtectWebForm!
Forum - Microsoft VBScript compilation error '800a0401'
cmizzi |
2009-01-16 10:40:15 |
|
The non-gateway method is not working for me.
When I submit the page, I get the following message weather I get the
code right or wrong...
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/email1.asp, line 13
Dim httpRequest As System.Net.HttpWebRequest =
CType(System.Net.WebRequest.Create("http://protectwebform.com/verify/28480_zwk2pd0386hy_"
+ Request.UserHostAddress + "/" + Request.Form("protectwebformcode") +
"/"), System.Net.HttpWebRequest)
The test html page is...
www.tracesciences.com/contact1.htm
The email1.asp scrip begins as follows...
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>
<body>
<%
If IsPostBack Then
Dim httpRequest As System.Net.HttpWebRequest =
CType(System.Net.WebRequest.Create("http://protectwebform.com/verify/28480_zwk2pd0386hy_"
+ Request.UserHostAddress + "/" + Request.Form("protectwebformcode") +
"/"), System.Net.HttpWebRequest)
Dim httpResponse As System.Net.HttpWebResponse =
CType(httpRequest.GetResponse, System.Net.HttpWebResponse)
Dim stream As System.IO.Stream = httpResponse.GetResponseStream
Dim reader As System.IO.StreamReader = New
System.IO.StreamReader(stream)
Dim resultString As String = reader.ReadToEnd
If resultString.Contains("<authorization status=""0""") Then
Response.Write("Warning. You are not authorithed to use image
protection provided by http://www.protectwebform.com. Read
http://www.protectwebform.com FAQ for more information")
Else
If resultString.Contains("<verification result=""no""/>") Then
Response.Write("The image code you have provided does not match the
actual one. Hit the 'back' button of your browser and input the
correct code please.")
Response.End()
End If
End If
End If
if request("REQUEST_METHOD") = "POST" then
dim name
dim phone
etc, etc, etc,
What am I doing wrong?
Thank you. |
seamusbealfeirste |
2009-02-03 07:25:02 |
|
i also have this problem. Can someone tell me what i should do
Thanks |
Post Reply:
You must be logged in to reply.
|
Post message
|
Registered users: 88084
Forms protected: 48551
Further Reading & Anti Spam Resources:
Directory
|
|