<% @LANGUAGE = VBScript%> <% Dim objConn, ObjRS, strQ, strConnection, blnHighlightRow Set objConn = Server.CreateObject("ADODB.Connection") strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\GeneralAccounts\sherba\htdocs\sherba.mdb" objConn.Open strConnection Set objRS = Server.CreateObject("ADODB.Recordset") Set objRS.ActiveConnection = objConn strQ = "SELECT * from tblMain Where ProductLine = 'FinniganMatTSSola';" objRS.Open strQ Response.Write "" Response.Write "

Finnigan Mat TS Sola Products

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" While Not objRS.EOF ' Select color for this row If blnHighlightRow Then strRowColor = "CLASS=AltRow" Else strRowColor = "bgcolor=white" End If Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" objRS.MoveNext ' Reverse highlight color for next loop blnHighlightRow = Not blnHighlightRow Wend Response.Write "

	Item Number	Description	Picture	Price
	" & objRS("ItemNumber") & "	" & objRS("Description") & "	" & objRS("Picture") & "	$" & objRS("Price") & ".00

" Response.Write "

" Response.Write "

" objRS.close objConn.close Set objRS = Nothing Set objConn = Nothing %>