<% 'declare some variables Dim Conn, RS, SQL SQL = "SELECT * FROM feature" Set Conn = Server.CreateObject("ADODB.Connection") 'ms access dsnless connection Conn.Open "DBQ=" & Server.Mappath("data/nca.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQL, Conn %> Northcrest Auto - Home

 

C.A.R.S. Protection Plus, Inc.
Warranty Price List

Power Train
Value
Value Plus
Ultimate Value Plus
Ultimate Plus
3 mths
$139/4,500
$150/4,500
$345*
$595*
N/A
6 mths
$179/7,500
$200/7,500
$455*
$695*
N/A
12 mths
$299/15,000
$325/18,000
$625*
$895*
$1495*
24 mths
N/A
$450/30,000
$755*
$1195*
$1795*
36 mths
N/A
$550/45,000
$855*
$1295*
$2595*
48 mths
N/A
$650/55,000
$995*
$1395*
$2795*
*Unlimited Miles

 

 

 

 

<% 'Clean up... RS.Close Set RS = Nothing Conn.Close Set Conn = Nothing %>