 |
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No wo
|
| |
|
|
012623
|
จะ 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><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>"&_
"<td><font color=hotpink size=4>Booking?</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><td><font color=hotpink size=4>"%>
<a href="booking.asp?a=<%=rs.fields(0)%>">Booking</a>
<%
Response.Write"</font></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
%>
|
|
| Date :
8 มี.ค. 2550 18:21:11 |
By :
da |
View :
1236 |
Reply :
0 |
|
|
|
|
*** คลิกที่ [ ให้คะแนน ] ระบบจะส่งอีเมล์ขอบคุณไปยังสมาชิก พร้อมเพิ่มคะแนนให้กับสมาชิก 1 คะแนน
|
|
|
|
|
|
Register 
