<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim RScase Dim RScase_numRows Set RScase = Server.CreateObject("ADODB.Recordset") RScase.ActiveConnection = MM_dearing_STRING RScase.Source = "SELECT * FROM casestudies ORDER BY caseID DESC" RScase.CursorType = 0 RScase.CursorLocation = 2 RScase.LockType = 1 RScase.Open() RScase_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RScase_numRows = RScase_numRows + Repeat1__numRows %>

Case Studies

<% Dim iCnt iCnt = -1 While ((Repeat1__numRows <> 0) AND (NOT RScase.EOF)) iCnt = iCnt + 1 %>

"><%=(RScase.Fields.Item("caseTitle").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RScase.MoveNext() Wend %>
Design and Manufacturing Image
<% RScase.Close() Set RScase = Nothing %>