<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsCDs Dim rsCDs_numRows Set rsCDs = Server.CreateObject("ADODB.Recordset") rsCDs.ActiveConnection = MM_Stockhausen_STRING rsCDs.Source = "SELECT * FROM CD_CATALOGUE ORDER BY CD_NUMBER ASC" rsCDs.CursorType = 0 rsCDs.CursorLocation = 2 rsCDs.LockType = 1 rsCDs.Open() rsCDs_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsCDs_numRows = rsCDs_numRows + Repeat1__numRows %> <% Dim intCD_NUMBER Dim strCD_DESCRIPTION Dim strCD_PRICE %> CD Catalogue

CD Catalogue

<% While ((Repeat1__numRows <> 0) AND (NOT rsCDs.EOF)) %> <% intCD_NUMBER = rsCDs.Fields.Item("CD_NUMBER").Value strCD_DESCRIPTION = rsCDs.Fields.Item("CD_DESCRIPTION").Value strCD_PRICE = rsCDs.Fields.Item("CD_PRICE").Value %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsCDs.MoveNext() Wend %>
CD No. Description Price  
CD <%=intCD_NUMBER%> <%=Replace(strCD_DESCRIPTION, Chr(13), "
")%>		 <%=FormatCurrency(rsCDs.Fields.Item("CD_PRICE").Value, 2)%>

Admin

<% rsCDs.Close() Set rsCDs = Nothing %>