<%@ LANGUAGE="VBSCRIPT" %>
<% OPTION EXPLICIT %>
GM Paint Codes
<%
Dim con
Dim objrs
Dim selCID
Set con = Server.CreateObject("ADODB.Connection")
Con.ConnectionTimeout=60
con.connectionstring = "Data Source=//nawinfs04/home/users/web/b2895/rh.chevycamaro/database/camaroinfo.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
con.open
Set objrs = Server.CreateObject("ADODB.recordset")
'selcid = "SELECT * from gmpaintcodes WHERE cid LIKE '%350%'"
selcid = "SELECT * from GMpaintcodes"
objrs.open selcid, con
%>
Year
Code
Exterior Color
<%
Do until objrs.EOF %>
<% response.write objrs("Year") %>
<% response.write objrs("Code") %>
<% response.write objrs("ExteriorColor") %>
<% objrs.movenext
Loop
objrs.close
set objrs = nothing
con.Close
set con = nothing
%>