submitorderprocess.asp

online sales system of texttile mill was a project within which there was great opportunity for Lear

<%

Dim IntBuyerID, StrDate, StrCart, StrTotalPrice, IntShipped, IntCount, IntShowCounter, DblTotalPrice, DblFinalPrice, StrCartQuery, ObjRSCart

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

IntBuyerID = CInt(Session("LoginBuyer"))
StrDate = Date()


StrCart = "<cart>"
IntCount = CInt(Session("TotalItems"))
		For IntShowCounter = 1 to IntCount
		IF Session("MyItems")("Purchase" & IntShowCounter) = "yes" Then
		DblTotalPrice = CDbl(Session("MyItems")("Price" & IntShowCounter) * CInt(Session("MyItems")("Quantity" & IntShowCounter)))
		productid =  Session("MyItems")("ISBN" & IntShowCounter) 
		quantity= Session("MyItems")("Quantity" & IntShowCounter) 
		Session("MyItems")("Purchase" & IntShowCounter) = "no"
               StrCart =  Session("MyItems")("BookName" & IntShowCounter) 

      StrCartQuery = "Insert into Orders(Buyerid,orderdate,cartitems,totalprice,shipped,productid,quantity,act_id) Values(" & IntBuyerID & ", '" & StrDate & "', '" & strCart & "',"   &  dbltotalprice & ", "    & false & ","  &  productid & "," & quantity & "," & "1"  & ")"
               ObjCon.Execute(StrCartQuery)


         	END IF

                Next

//                StrCartQuery = "Insert into Orders Values ('"&IntBuyerID&"', '"&StrDate&"', '"&StrCart&"', '"&StrTotalPrice&"', '"&IntShipped&"')"
//                ObjCon.Execute(StrCartQuery)


StrTotalPrice = CStr(DblFinalPrice)
IntShipped = 0


%>

<table border="0">
	<tr>
		<td><h3><font face="verdana, arial" color="darkblue">ORDER SUBMITTED!</font</h3></td>
	</tr>
</table>
<hr color="black" noshade>
<table border="0">
	<tr>
		<td class="SimpleText">You order has been submitted.</td>
	</tr>
</table>
<hr color="black" noshade>