<% CarPrice = request.QueryString("Price") ' response.write "Price brought fwd (CarPrice)= " & CarPrice & "
" dim oRS1, strSQL1 Set objErr = Server.CreateObject("ADODB.Error") Set oRS1=Server.CreateObject("ADODB.Recordset") ' strSQL1 = "SELECT tbl_FinanceRates.*, tbl_FinanceRates.FinanceRateDate " ' strSQL1 = strSQL1 & "FROM tbl_FinanceRates " ' strSQL1 = strSQL1 & "ORDER BY tbl_FinanceRates.FinanceRateDate DESC;" 'oRS1.Open strSQL1, "dsn=JohnLambeCar2" %>

 

© Copyright johnlambe.co.uk 2008