%
'Web_Cars interface to the webcars table.
' Prevent caching
Response.Buffer = True
'Response.ExpiresAbsolute = Now() - 1
Response.Expires = -1440
Response.AddHeader "cache-control", "must-revalidate"
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "P3P", "CP='NOI DSP COR NID CUR OUR NOR'"
Session("dbWeb_CarsPath") = "http://www.webcars.co.uk/"
Session("dbExitPage") = "http://www.webcars.co.uk/"
Session("dbTitle") = "Webcars Vehicle Database"
Session("dbType") = "Access"
'Session("dbConn") = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=e:\domains\w\webcars.co.uk\user\private\webcars.mdb"
Session("dbConn") = "Provider=Microsoft.Jet.OLEDB.4.0;data source=e:\domains\w\webcars.co.uk\user\private\webcars.mdb"
Session("dbRs") = "webcars"
Session("dbKey") = 1
If request("SortOrder") <> "" Then
Session("dbOrder") = request("SortOrder")
Else
Session("dbOrder") = -43
End If
Session("dbStartRec") = request("StartRecord")
Session("dbRecsPerPage") = 6
Session("dbHeader") = 0
Session("dbFooter") = 1
Session("dbFieldNames") = "ID,Picture,Headline,New/Used,Make,Model,Description,Variant,Registration,Mileage,Date of Registration,Sat Nav,Air Con,CD Player,Alloys,Leather,Alarm,Gearbox,Fuel Type,MPG,CO2 Figure,Euro 3/4,Insurance Group,P11D,Business Contract Hire,Personal Contract,Period,Rental Profile,Maintenance,Contract Miles per Annum,Hire Purchase,Deposit,Period,Payment Profile,Balloon / Final Payment,Notes,Business / Personal,Category,Financing Model,Type of Vehicle,Money Matters,Short and Sweet,Quickfleet,Something Special,Directors Cut,Short Circuit,Fleetwise,Best Seller,HP Page,Enquiry Button,Date Added,Edited By,Funder"
Session("dbDispList") = "01000010000000000000000010000010000000000000000000000"
Session("dbDispView") = "01110010111111111111111110111111111100000000000001000"
Session("dbSearchFields") = "00111111111111111111000000000000000011110000000000000"
Session("dbDispEdit") = "0111111111111111111111111111111111111111111111111111"
Session("dbSearchPos") = "BOTTOM"
Session("dbSearchAdvanced") = 0
Session("dbSearchEnhanced") = 1
Session("dbChangeRecsPerPage")="YES"
Session("dbWhere") = request("WhereString")
Session("dbDebug") = 0
Session("dbCanEdit") = 0
Session("dbCanAdd") = 0
Session("dbCanDelete") = 0
Session("dbBuildCart") = 0
Session("dbConfirmDelete") = 1
Session("dbViewPage") = Request.ServerVariables("PATH_INFO")
Session("dbFontSize") = 1
Session("dbBorderColor") = "02412C"
Session("dbMenuColor") = "04845A"
Session("dbMenuTextColor") = "036344"
Session("dbExitPageText") = "Special Offers"
Session("dbMaxImageSize") = 150
'Session("dbUpdateField6") = ""
'Session("dbURLfor3") = 22
Response.Buffer = True
Response.Clear
'Response.Redirect Session("dbWeb_CarsPath") & "Web_CarsList.asp"
%>
Managing Your Fleet - VAT and Direct Taxation - webcars.co.uk