Dick Wadd Home Page

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Products1 Dim Products1_numRows Set Products1 = Server.CreateObject("ADODB.Recordset") Products1.ActiveConnection = MM_Products1_STRING Products1.Source = "SELECT * FROM [Category List]" Products1.CursorType = 0 Products1.CursorLocation = 2 Products1.LockType = 1 Products1.Open() Products1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 Products1_numRows = Products1_numRows + Repeat1__numRows %> Dick Wadd Home Page

	\| Home \| Support \| View Cart \|

\| Home \| Support \| Be A Model \|

<% While (NOT Products1.EOF) %>

"> <%=(Products1.Fields.Item("Category").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Products1.MoveNext() Wend %>

Member Name:
Password:

Not a Member? Join Now!

Forgot your password?

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