I need to redirect users from the page coded below to viewOrderDetails.asp, so basically the user doesn't have to click View Order Details. I have been trying to use:-
If InputIsValid = true Then
response.redirect("viewOrd
erDetails.
asp")
after Session.Abandon
but this didn't work.
The source code which redirect ness to be added:-
<%
Option Explicit
%>
<!--#include file="Cart_Include.asp"-->
<%
Function AddOrderToOrderTable()
dim rsOrders
dim sqlString
dim connectionString, physicalPath
dim newOrderID
connectionString = BuildConnectionString(DATA
BASE_NAME,
DATABASE_PATH)
sqlString = "select * from Orders"
set rsOrders = Server.CreateObject("ADODB
.Recordset
")
rsOrders.Open sqlString, connectionString, adOpenDynamic, adLockOptimistic
rsOrders.AddNew
rsOrders("CustomerFirstNam
e") = ConvertEmptyToNull(FName)
rsOrders("CustomerLastName
") = ConvertEmptyToNull(LName)
rsOrders("CustomerEmail") = ConvertEmptyToNull(EMail)
rsOrders("OrderDate") = Date()
rsOrders.Update
rsOrders.Close
rsOrders.Open sqlString, connectionString
rsOrders.MoveLast
newOrderID = rsOrders("OrderID")
rsOrders.Close
Set rsOrders = Nothing
AddOrderToOrderTable = newOrderID
End Function
Sub AddItemsToOrderDetails(the
NewOrderID
)
dim rsOrderItems
dim sqlString
dim connectionString, physicalPath
dim ID, price, productQuantity
dim itemsInCart
dim itemNumber
connectionString = BuildConnectionString(DATA
BASE_NAME,
DATABASE_PATH)
sqlString = "select * from OrderDetails"
set rsOrderItems = Server.CreateObject("ADODB
.Recordset
")
rsOrderItems.Open sqlString, connectionString, adOpenDynamic, adLockOptimistic
itemsInCart = Session("ItemCount")
for itemNumber = 0 to itemsInCart
if ShoppingCart(0, itemNumber) <> "" then
ID = ShoppingCart(PRODUCT_ID, itemNumber)
price = ShoppingCart(PRODUCT_PRICE
, itemNumber)
productQuantity = ShoppingCart(PRODUCT_QUANT
ITY, itemNumber)
rsOrderItems.AddNew
rsOrderItems("OrderID") = theNewOrderID
rsOrderItems("ProductID") = ID
rsOrderItems("Price") = price
rsOrderItems("Quantity") = productQuantity
rsOrderItems.Update
End If
next
rsOrderItems.Close
Set rsOrderItems = Nothing
End Sub
Function InputIsValid
dim message, result
result = True
If FName = "" Then
message = "You left First Name empty!"
result = False
ElseIf LName = "" Then
message = "You left Last Name empty!"
result = False
ElseIf EMail = "" Then
message = "You left E-Mail empty!"
result = False
End If
Session("Message") = message
InputIsValid = result
End Function
dim OrderID
dim FName, LName, Email
FName = Request.Form("txtFName")
LName = Request.Form("txtLName")
EMail = Request.Form("txtEMail")
If InputIsValid = False Then
response.redirect "AddOrderForm.asp"
End If
If IsEmpty(Session("ShoppingC
art")) Then
Session("ShoppingCart") = ShoppingCart
Session("ItemCount") = 0
End If
ShoppingCart = Session("ShoppingCart")
OrderID = AddOrderToOrderTable()
Call AddItemsToOrderDetails(Ord
erID)
Session.Abandon
%>
