I'm a novice at ASP and am trying learn it by taking tutorials. I'm getting an error on one my tutorials and I can't figure out why I'm getting it as the code I have is exactly the same as it is in the tutorial. Essentially there are two pages, one has a form that asks for a user to input a number and another page tells the user if he's made an error, i.e. if he's entered letters instead of a number. I've posted the error message I receive below and below that I've posted the code for both pages. Any help is much appreciated:
No Letters
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'Transfer'
/learnasp/check.asp, line 9
code for enter page:
<HTML>
<HEAD>
<TITLE>Userproof Page</TITLE>
</HEAD>
<BODY>
<FORM NAME="Form1" ACTION="check.asp" METHOD="POST">
Please enter a whole number from one to five (1-5)<BR>
<INPUT TYPE=TEXT NAME=TextBox1>
<BR>
<BR>
<INPUT TYPE=SUBMIT>
</FORM>
</BODY>
</HTML>
Code for check page
<HTML>
<HEAD>
<TITLE>Check Page</TITLE>
</HEAD>
<BODY>
<% varTest = Request.Form("TextBox1"
If IsNumeric(varTest) = False Then
Response.Write "No Letters<BR>"
Server.Transfer "enter.asp"
End If
If varTest<1 Then
Response.Write "Too Small<BR>"
Server.Transfer "enter.asp"
End If
If varTest>5 Then
Response.Write "Too Large<BR>"
Server.Transfer "enter.asp"
End If
If CDbl(varTest) <> CInt(VarTest)then
Response.Write "No decimals<BR>"
Server.Transfer "enter.asp"
End If
varTest = varTest * 10
Response.Write "<BR>Your lucky number is " & varTest
%>
</BODY>
</HTML>
No Letters
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'Transfer'
/learnasp/check.asp, line 9
code for enter page:
<HTML>
<HEAD>
<TITLE>Userproof Page</TITLE>
</HEAD>
<BODY>
<FORM NAME="Form1" ACTION="check.asp" METHOD="POST">
Please enter a whole number from one to five (1-5)<BR>
<INPUT TYPE=TEXT NAME=TextBox1>
<BR>
<BR>
<INPUT TYPE=SUBMIT>
</FORM>
</BODY>
</HTML>
Code for check page
<HTML>
<HEAD>
<TITLE>Check Page</TITLE>
</HEAD>
<BODY>
<% varTest = Request.Form("TextBox1"
If IsNumeric(varTest) = False Then
Response.Write "No Letters<BR>"
Server.Transfer "enter.asp"
End If
If varTest<1 Then
Response.Write "Too Small<BR>"
Server.Transfer "enter.asp"
End If
If varTest>5 Then
Response.Write "Too Large<BR>"
Server.Transfer "enter.asp"
End If
If CDbl(varTest) <> CInt(VarTest)then
Response.Write "No decimals<BR>"
Server.Transfer "enter.asp"
End If
varTest = varTest * 10
Response.Write "<BR>Your lucky number is " & varTest
%>
</BODY>
</HTML>