Too few parameters. Expected 1. Error Type: Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)

	Sponsor
	www.EasySoftSolution.Com Web Package หางาน

เริ่มหัวข้อใหม่

Guest

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/da/check_cat.asp, line 10

โค้ดจาก form นี้นะค่ะ

<form action="check_cat.asp" method="post" name="category" id="category">
<td width=238><select name="cate" id="selectcate">
<option value="India">India</option>
<option value="Asia">Asia</option>
<option value="Andaman">Andaman</option>
<option value="America">America</option>
<option value="Europe">Europe</option>
<option value="Australia">Australia</option>
<option value="Africa">Africa</option>
</select>  
<input name="category1" type="submit" id="catego" value="Go!">
</td>
<td></td>
</form>

แล้วก็ display ที่นี่ค่ะ

<% @language=vbscript%>
<%
dim con,rs
set con=server.createobject("ADODB.connection")
con.connectionstring="DSN=tour"
con.open
set rs=server.createobject("adodb.recordset")
cat=request.Form("cate") ---> คิดว่าตรงนี้ผิดค่ะ หรือ
sql = "select * from package where category=" & cat ---> ตรงนี้ผิดค่ะ
rs.open sql,con,2,3
%>

<html>
<%
rs.MoveFirst
Response.Write"<table align=center border=1 width=700 cellspacing=5 cellpadding=5>"&_
"<tr align=center>"&_
"<td><font color=hotpink size=4>Package ID</font></td>"&_
"<td><font color=hotpink size=4>Package Name</font></td>"&_
"<td><font color=hotpink size=4>Duration (days)</font></td>"&_
"<td><font color=hotpink size=4>Date Of Travel</font></td>"&_
"<td><font color=hotpink size=4>Place covered</font></td>"&_
"<td><font color=hotpink size=4>Tariff (Rs.)</font></td>"&_
"<td><font color=hotpink size=4>Available seats</font></td></tr>"
Do Until rs.EOF
Response.Write"<tr align=center><td><font color=hotpink size=4>"
Response.Write rs.Fields(0)
Response.Write"</font></td><td><font color=hotpink size=4>"
Response.Write rs.Fields(1)
Response.Write"</font></td><td><font color=hotpink size=4>"
Response.Write rs.Fields(3)
Response.Write"</font></td><td><font color=hotpink size=4>"
Response.Write rs.Fields(4)
Response.Write"</font></td><td><font color=hotpink size=4>"
Response.Write rs.Fields(5)
Response.Write"</font></td><td><font color=hotpink size=4>"
Response.Write rs.Fields(6)
Response.Write"</font></td><td><font color=hotpink size=4>"
Response.Write rs.Fields(7)
Response.Write"</font></td>"
rs.MoveNext
Loop
Response.Write"</tr></table>"
%>