<%@ 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 = 'JobinYvonInstrumentsSA';" objRS.Open strQ Response.Write "" Response.Write "

Jobin / Yvon Instruments SA

" 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 "" Response.Write "" objRS.MoveNext ' Reverse highlight color for next loop blnHighlightRow = Not blnHighlightRow Wend Response.Write "

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

" Response.Write "

" Response.Write "

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