|
|
|
<%
ThisSession = Session.SessionID
FilePath = "\\IIS698\domains\r\rawland.co.uk\user\private\Users\" & ThisSession
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists(FilePath & "\Master_Basket.mdb"))=true Then
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Provider="Microsoft.Jet.OLEDB.4.0"
adoCon.Open FilePath & "\Master_Basket.mdb"
Set rsQtyAmt = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Sum(Quantity), Sum(Amount) FROM Basket;"
rsQtyAmt.Open strSQL, adoCon
If NOT(rsQtyAmt.EOF) OR NOT(rsQtyAmt.BOF) Then
If rsQtyAmt.Fields(0) < 2 then
response.write rsQtyAmt.Fields(0) & " Item - £" & rsQtyAmt.Fields(1)
Else
If rsQtyAmt.Fields(0) > 1 then
response.write rsQtyAmt.Fields(0) & " Items - £" & rsQtyAmt.Fields(1)
Else
response.write "0 Item - £0.00"
End If
End If
Else
response.write "0 Item - £0.00"
End If
rsQtyAmt.Close
Set rsQtyAmt = Nothing
adoCon.close
Set adoCon = Nothing
else
response.write "0 Item - £0.00"
End If
set fs=nothing
%>
View Bag / Checkout |
|
Download Catalog
Online |
|