viewpreviousorder.asp

来自「online sales system of texttile mill was」· ASP 代码 · 共 55 行

<!-- #include file="conn.asp" -->
<%

Dim  ObjRS , buyerid

buyerid = CInt(Session("LoginBuyer"))


IF Session("LoginBuyer") = "" OR Session("LoginUser") = "" Then
Response.Redirect("Login.asp")
END IF

StrSelBookQuery = "Select * from qry_orders Where Buyerid=" & buyerid
Set ObjRS = ObjCon.Execute(StrSelBookQuery)
%>

<table border="0">
	<tr>
		<td><h3><font face="verdana, arial" color="darkblue">your order has been processed as soon as possible ?</font></h3></td>
	</tr>
</table>
<table border="0">
	<tr>
		<td class="SimpleText">You are  <b><%= Session("LoginUser")  %></b> User.</td>
	</tr>
</table>
<table border="2" bordercolor="lightgrey" style="border-collapse:collapse">

         <tr>
		<b><td class="SimpleText">Product Name</td>
                <td class="SimpleText">OrderDate</td> 
                <td class="SimpleText">Quantity</td>
                              <td class="SimpleText">Description</td> 
                <td class="SimpleText">Total Price</td> </b>
	</tr>
	
<%
do while not objrs.eof %>

         <tr>
		<td class="SimpleText"><% = ObjRS("cartitems")%></td>
               <td class="SimpleText"><% = ObjRS("OrderDate") %></td>
               <td class="SimpleText"><% = ObjRS("Quantity") %></td>
               <td class="SimpleText"><% = ObjRS("act_Desc") %></td>
               <td class="SimpleText"><% = ObjRS("totalprice") %></td>
	</tr>
<%
objrs.movenext
loop

%>
	</table>

<% objrs.close %>