Sign in:
Username:
Password:  
»Forgot your password?

Home | Forum | How to Protect Your Web Form | How to Protect Your Email | Sign Up

Insure yourself from spam! The Anti Spam Insurance Company - ProtectWebForm!

Forum - Microsoft VBScript compilation error '800a0401'

PostMessage
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
Name: 
Email: 
Url: 




Registered users: 86653

Forms protected: 48551

Further Reading & Anti Spam Resources:

Directory


    ©Copyright 2006 ProtectWebForm.com. All rights reserved. Read our Privacy Policy

Page copy protected against web site content infringement by Copyscape