<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("nid") <> "") Then Recordset1__MMColParam = Request.QueryString("nid") End If %> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_DickieData_STRING Recordset1_cmd.CommandText = "SELECT * FROM cutabovedb.news WHERE newsid = ?" Recordset1_cmd.Prepared = true Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% Dim Recordset2 Dim Recordset2_cmd Dim Recordset2_numRows Set Recordset2_cmd = Server.CreateObject ("ADODB.Command") Recordset2_cmd.ActiveConnection = MM_DickieData_STRING Recordset2_cmd.CommandText = "SELECT newsid, newstitle, newsbyline, newscontent FROM cutabovedb.news ORDER BY newsid DESC" Recordset2_cmd.Prepared = true Set Recordset2 = Recordset2_cmd.Execute Recordset2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat1__numRows %> Cut Above

News

<%=(Recordset1.Fields.Item("newstitle").Value)%>

<%=(Recordset1.Fields.Item("newsbyline").Value)%>

Added: <%=(Recordset1.Fields.Item("newsdate").Value)%>

<% picture=(Recordset1.Fields.Item("picture").Value) linktitle=(Recordset1.Fields.Item("linkTitle").Value) linkURL=(Recordset1.Fields.Item("linkURL").Value) if picture = "NONE" or picture ="" then %> <%else%> <%end if%> <%=(Recordset1.Fields.Item("newscontent").Value)%>

<% if linkURL <> "" then if linkTitle <> "" then %>
Weblink: <%=linkTitle%>
<%else%>
Weblink: <%=linkURL%>
<%end if%> <%end if%>
Cut Above
Owner

Other News

<% While ((Repeat1__numRows <> 0) AND (NOT Recordset2.EOF)) newsid=(Recordset2.Fields.Item("newsid").Value) %>

<%=(Recordset2.Fields.Item("newstitle").Value)%>

<%=(Recordset2.Fields.Item("newsbyline").Value)%>
 <% maxlength = 140 newscontent =(Recordset2.Fields.Item("newscontent").Value) showcontent = left(newscontent, maxlength) %>

<%=showcontent%> ...read more

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset2.MoveNext() Wend %>
<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %>