<% '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

 

 

If

Payment Calculator

 

 

 

 

<% 'Clean up... RS.Close Set RS = Nothing Conn.Close Set Conn = Nothing %>
# of
Payments
Interest
Rate
Principal
Monthly
Payment