Hi,
I am a little new to ASP (I have made some stuff that works).
I am having this problem with a script where I want to add just some fields from an online form to a database. It is very simple,
The error that I keep getting isI will post the code so that you can have a look at it and I have marked line 173 where the error is.Quote:
[Microsoft][ODBC Microsoft Access Driver] Two Few parameters. Expected 4.
Line 173
Any help would be much appreciated.
Code:<html>
<head>
<title>Add To Lan Reg Database1</title>
</head>
<body bgcolor="black" text="#C5BE60" topmargin=0 leftmargin=0>
<center>
<%
Flag = request.form("Flag")
If IsEmpty(Flag) or Flag = "" then
%>
<font face="times new roman">
<i><h1>ADD TO LAN REG</h1></i>
<font face="arial" size=2>
<b><i>Note:</i> * indicates a required field</b>
</font>
</font>
<p>
<table width=500 border=0>
<tr>
<td width=100>
<font face="arial" size=2>
<b>*First Name:</b>
</font>
</td>
<td width=400>
<form action="add1.asp" method="post">
<input type="text" name="FirstName" size=20>
</td>
</tr>
<tr>
<td width=100>
<font face="arial" size=2>
<b>*Last Name:</b>
</font>
</td>
<td width=400><input type="text" name="LastName" size=20></td>
</tr>
<tr>
<td width=100>
<font face="arial" size=2>
<b> Handel:</b>
</font>
</td>
<td width=400><input type="text" name="Handel" size=20></td>
</tr>
<tr>
<td width=100>
<font face="arial" size=2>
<b>Age:</b>
</font>
</td>
<td width=400><input type="text" name="Age" size=20></td>
</tr>
<tr>
<td width=100>
<font face="arial" size=2>
<b> Email:</b>
</font>
</td>
<td width=400><input type="text" name="Email" size=50></td>
</tr>
<tr>
<td width=100> </td>
<td width=400><br>
<input type="submit" value="Submit">
<input type="hidden" name="Flag" value=1>
<input type="reset" value="Clear"></form>
</td>
</tr>
</table>
<%
End If
If Flag = 1 then
If IsEmpty(request.form("FirstName")) or request.form("FirstName")="" then
response.write "<center><font face='arial' size=4>"
response.write "<p><br><b>You must enter a First Name.</b></font>"
response.write "<form>"
response.write "<input type='button' value='Retry' onclick=history.back()>"
response.write "</form>"
response.end
Else
FirstName = request.form("FirstName")
End If
If IsEmpty(request.form("LastName")) or request.form("LastName")="" then
response.write "<center><font face='arial' size=4>"
response.write "<p><br><b>You must enter a Last Name.</b></font>"
response.write "<form>"
response.write "<input type='button' value='Retry' onclick=history.back()>"
response.write "</form>"
response.end
Else
LastName = request.form("LastName")
End If
Handel = request.form("Handel")
Age = request.form("Age")
Email = request.form("Email")
Flag = request.form("Flag")
%>
<table width=400 border=0>
<tr>
<td width=400>
<font face="arial" size=2>
<br>Here is the information you're submitting. If you would like to
make changes, please use the appropriate button below, or use the other
button to submit this entry as it is.
<br>
<br><b>First Name:</b> <%= FirstName %>
<br><b>Last Name: </b> <%= LastName %>
<br><b>Handel: </b> <%= Handel %>
<br><b>Age: </b> <%= Age %>
<br><b>Email: </b> <%= Email %>
<form action="add1.asp" method="post">
<input type="hidden" name="FirstName" value="<%= FirstName %>">
<input type="hidden" name="LastName" value="<%= LastName %>">
<input type="hidden" name="Handel" value="<%= Handel %>">
<input type="hidden" name="Age" value="<%= Age %>">
<input type="hidden" name="Email" value="<%= Email %>">
<input type="hidden" name="Flag" value=2>
<input type="submit" value="Yes, Submit it!">
<input type="button" value="Let's Try Again" onClick="history.go(-1)">
</form></font>
</td>
</tr>
</table>
<%
End If
If Flag = 2 then
Today = Now()
FirstName = request.form("FirstName")
FirstName = Replace(FirstName, "'", "''")
FirstName = Replace(FirstName, Chr(34), "''")
LastName = request.form("LastName")
LastName = Replace(LastName, "'", "''")
LastName = Replace(LastName, Chr(34), "''")
Handel = request.form("Handel")
Handel = Replace(Handel, "'", "''")
Handel = Replace(Handel, Chr(34), "''")
Email = request.form("Email")
Age = request.form("Age")
Session.timeout = 15
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "lan"
Set Session("MyDB_conn") = conn
'SQLstmt = "INSERT INTO lanreg (First,Last,Handel,Age,Email) VALUES ("& FirstName &" , "& LastName &" , " & Handel & " , " & Age & " , " & Email & ")"
strSQLQuery = "INSERT INTO lanreg (First, Last, Handel, Age, Email) VALUES ("& FirstName &", "& LastName &", " & Handel & ", " & Age & ", " & Email & ")"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQLQuery, conn, 3, 3 <!-- This Is Where the Error Is. Line 173 -->
If err.number>0 then
response.write "VBScript Errors Occured:" & "<P>"
response.write "Error Number=" & err.number & "<P>"
response.write "Error Descr.=" & err.description & "<P>"
response.write "Help Context=" & err.helpcontext & "<P>"
response.write "Help Path=" & err.helppath & "<P>"
response.write "Native Error=" & err.nativeerror & "<P>"
response.write "Source=" & err.source & "<P>"
response.write "SQLState=" & err.sqlstate & "<P>"
end if
IF conn.errors.count> 0 then
response.write "Database Errors Occured" & "<P>"
response.write SQLstmt & "<P>"
for counter= 0 to conn.errors.count
response.write "Error #" & conn.errors(counter).number & "<P>"
response.write "Error desc. -> " & conn.errors(counter).description & "<P>"
next
else
response.write "<br><br><font face='arial' size=4><b>"
response.write "Thank you! Your entry has been added.</font><p>"
response.write "<font face='arial' size=2>"
response.write "<a href='default.asp'>View Guestbook</a>"
end if
Conn.Close
Set conn = nothing
End If
%>
</center>
</body>
</html>
I have tried both DSN and DSN-Less but they both seem to have the same error, on the webserver mentioned above it uses DSN.
I used an Access 2000 Database - do I need to get an updated odbc driver or something??
I am using Microsoft Personal Web Server on Windows 98.
Thanks For Any Help
Hurgh
