Star Wars: A Rising Threat

<%@LANGUAGE="VBSCRIPT"%> <% Dim Articles__MMColParam Articles__MMColParam = "Story" if (Request("MM_EmptyValue") <> "") then Articles__MMColParam = Request("MM_EmptyValue") %> <% set Articles = Server.CreateObject("ADODB.Recordset") Articles.ActiveConnection = MM_Threat_STRING Articles.Source = "SELECT * FROM Articles WHERE Section = '" + Replace(Articles__MMColParam, "'", "''") + "' ORDER BY ArticleDate DESC" Articles.CursorType = 0 Articles.CursorLocation = 2 Articles.LockType = 3 Articles.Open() Articles_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 3 Dim Repeat1__index Repeat1__index = 0 Articles_numRows = Articles_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = 7 Dim Repeat2__index Repeat2__index = 0 Articles_numRows = Articles_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Repeat3__numRows = 6 Dim Repeat3__index Repeat3__index = 0 Articles_numRows = Articles_numRows + Repeat3__numRows %> Star Wars: A Rising Threat

<% While ((Repeat1__numRows <> 0) AND (NOT Articles.EOF)) %>

" align="bottom" vspace="1" hspace="1">(<%= DoDateTime((Articles.Fields.Item("ArticleDate").Value), 1, 2057) %>)
<%=(Articles.Fields.Item("Heading").Value)%>

<%=(Articles.Fields.Item("TeaserText").Value)%> <% If Not len(Articles.Fields.Item("Body").Value)=0 Then %> ">more... <% End If%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Articles.MoveNext() Wend %>

"><%=(Articles.Fields.Item("Heading").Value)%>

<% If Articles.EOF Then %>

More articles coming soon!

<% End If ' end Articles.EOF %>

<% If Not Articles.EOF Or Not Articles.BOF Then %>

"><%=(Articles.Fields.Item("Heading").Value)%>

<% End If ' end Not Articles.EOF Or NOT Articles.BOF %> <% If Not Articles.EOF Then %>

more archives

<% End If ' end Not Articles.EOF %>

<% Articles.Close() %>