Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No wo

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

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

Guest

จะ assign value จาก form to table ค่ะ แต่มันขึ้น error แบบนี้

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

หน้า booking form คือ memas_pack.asp

<% @language=vbscript%>
<%
dim con,rs
set con=server.createobject("ADODB.connection")
con.connectionstring="DSN=tour"
con.open
set rs=server.createobject("adodb.recordset")
rs.open "select * from package where category='Asia' ",con,2,3
%>
<html>
<form action="check_book.asp" method="post" name="book">
<%
rs.MoveFirst
Response.Write"<table align=center border=1 width=700 cellspacing=5 cellpadding=5>"&_
"<tr align=center>"&_
"<td>Package ID</td>"&_
"<td>Package Name</td>"&_
"<td>Duration (days)</td>"&_
"<td>Date Of Travel</td>"&_
"<td>Place covered</td>"&_
"<td>Tariff (Rs.)</td>"&_
"<td>Available seats</td>"&_
"<td>Booking?</td></tr>"
Do Until rs.EOF
Response.Write"<tr align=center><td>"
Response.Write rs.Fields(0)
Response.Write"</td><td>"
Response.Write rs.Fields(1)
Response.Write"</td><td>"
Response.Write rs.Fields(3)
Response.Write"</td><td>"
Response.Write rs.Fields(4)
Response.Write"</td><td>"
Response.Write rs.Fields(5)
Response.Write"</td><td>"
Response.Write rs.Fields(6)
Response.Write"</td><td>"
Response.Write rs.Fields(7)
Response.Write"</td><td>"%>
<a href="booking.asp?a=<%=rs.fields(0)%>">Booking</a>
<%
Response.Write"</td>"
rs.MoveNext
Loop
Response.Write"</tr></table>"
%>
</tr>
</table>
</form>
</body>
<%
set con=nothing
set cmd=nothing
set rs=nothing
%>

</html>

แล้วนี่คือหน้าที่คิดว่ามีปัญหานะค่ะ
<% @language=vbscript%>
<%
dim con,npp
set con=server.createobject("ADODB.connection")
con.connectionstring="DSN=tour"
con.open
set rs=server.createobject("adodb.recordset")
rs.open "select * from booking",con,2,3
npp=Request.Form("nopl")
amt=CInt(npp)*CInt(request.form("pktar"))
rs.AddNew
rs("bkID")=Request.Form("bookid")
rs("pkid")=Request.Form("pid")
rs("pk_name")=Request.Form("pname")
rs("DOBK")=Request.Form("dateb")
rs("seat")=npp
rs("amount")=amt
rs("user_name")=session("uname")
rs("status")="book"
rs.Update
response.redircet "mem_home.asp"
set con=nothing
set cmd=nothing
set rs=nothing
%>