<%
IF Request.Form("orderDetails") <> "" THEN
Dim messageBody
messageBody = "
Order information:
Order From: " & Request.Form("fullname") & " Email Address " & Request.Form("emailAddress") & " Telephone Number " & Request.Form("telephoneNumber") & " Address I " & Request.Form("addressOne") & " Address II " & Request.Form("addressTwo") & " County " & Request.Form("county") & " Town/City " & Request.Form("townCity") & " Post Code " & Request.Form("postCode") & " Country " & Request.Form("country") & " Delivery Option " & Request.Form("deliveryOption") & "
"
messageBody = messageBody & "" & Request.Form("orderDetails") & "
"
Dim mail
set mail = Server.CreateObject("CDONTS.NewMail")
mail.From = "webmaster@netmanufacturers.co.uk"
mail.To = "admin@netmanufacturers.co.uk"
mail.Bcc = "si@yotech.co.uk"
mail.Subject = "!! WEB SITE ORDER !!"
mail.Body = messageBody
mail.MailFormat = 0
mail.BodyFormat = 0
mail.Send
Response.Write "You order has been sent successfully. Thank you for your order, you will be contacted shortly.
Click here to clear your cart.
"
set mail=nothing
ELSE
Dim itemIDarray, Counter, SQLstring
IF Instr(Request.Cookies("itemIDstring"), ",") THEN
itemIDarray = split(Request.Cookies("itemIDstring"), ",")
ELSE
IF Request.Cookies("itemIDstring") <> "" THEN
itemIDarray = Array(Request.Cookies("itemIDstring"), "")
ELSE
itemIDarray = Array(Request.Cookies("itemIDstring"))
END IF
END IF
'************************************************************************
connectionString = "DBQ=" & Server.MapPath("..\database\NETMANSHOP.MDB") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set shopInfo = Server.CreateObject("ADODB.Connection")
shopInfo.Open connectionString
' GET ALL COLLECTION DATA...
dim collectionArrayCounter ' counter for collection array data
'
'
' CREATE ARRAYS....
Dim arrCollectionData()
Dim collectionPrimaryLength
collectionPrimaryLength = 2
Redim arrCollectionData(collectionPrimaryLength,0)
collectionArrayCounter = 0
arrCollectionData(0, collectionArrayCounter) = "collection ID"
arrCollectionData(1, collectionArrayCounter) = "collection Name"
arrCollectionData(2, collectionArrayCounter) = "Details"
SQLstring = "SELECT * FROM shopTable WHERE entryType = 'collection'"
Set shopfront = shopInfo.Execute(SQLstring)
shopFront.MoveFirst
Do while Not shopFront.EOF
IF shopfront("entryType") = "collection" THEN
'ADD COLLECTION INFO TO COLLECTION ARRAY
collectionArrayCounter = UBound(arrCollectionData,2) + 1
ReDim Preserve arrCollectionData(collectionPrimaryLength, collectionArrayCounter)
arrCollectionData(0, collectionArrayCounter) = shopfront("ID")
arrCollectionData(1, collectionArrayCounter) = shopfront("Name")
arrCollectionData(2, collectionArrayCounter) = shopfront("entryDescription")
END IF
shopFront.MoveNext
Loop
Set shopfront = Nothing
' Dim lastID
lastID = ""
SQLstring = "SELECT * FROM shopTable WHERE"
For Counter = 0 to Ubound(itemIDarray)
IF itemIDarray(Counter) <> "" AND lastID <> itemIDarray(Counter)THEN
IF Counter > 0 THEN
SQLstring = SQLstring & " OR"
END IF
SQLstring = SQLstring & " ID = " & itemIDarray(Counter) & ""
END IF
lastID = itemIDarray(Counter)
Next
SQLstring = SQLstring & " ORDER BY ID"
Set shopfront = shopInfo.Execute(SQLstring)
IF shopfront.BOF THEN
Response.Write("your cart is empty")
ELSE
shopfront.MoveFirst
cartDisplay = cartDisplay & ""
cartDisplay = cartDisplay & "
