<%@LANGUAGE="VBSCRIPT"%> [an error occurred while processing this directive] <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_connection_STRING Recordset1_cmd.CommandText = "SELECT * FROM thespir_itofhope.sponsors" Recordset1_cmd.Prepared = true Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% Dim Recordset2__MMColParam Recordset2__MMColParam = "1" If (Request.QueryString("BlogID") <> "") Then Recordset2__MMColParam = Request.QueryString("BlogID") End If %> <% Dim Recordset2 Dim Recordset2_cmd Dim Recordset2_numRows Set Recordset2_cmd = Server.CreateObject ("ADODB.Command") Recordset2_cmd.ActiveConnection = MM_connection_STRING Recordset2_cmd.CommandText = "SELECT * FROM thespir_itofhope.Blog WHERE BlogID = ? ORDER BY DateStamp DESC" Recordset2_cmd.Prepared = true Recordset2_cmd.Parameters.Append Recordset2_cmd.CreateParameter("param1", 5, 1, -1, Recordset2__MMColParam) ' adDouble Set Recordset2 = Recordset2_cmd.Execute Recordset2_numRows = 0 %> <% Dim Recordset3 Dim Recordset3_cmd Dim Recordset3_numRows Set Recordset3_cmd = Server.CreateObject ("ADODB.Command") Recordset3_cmd.ActiveConnection = MM_connection_STRING Recordset3_cmd.CommandText = "SELECT * FROM thespir_itofhope.Blog ORDER BY BlogID DESC" Recordset3_cmd.Prepared = true Set Recordset3 = Recordset3_cmd.Execute Recordset3_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 20 Repeat1__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 5 Repeat2__index = 0 Recordset3_numRows = Recordset3_numRows + Repeat2__numRows %> <% Dim rrSource_Recordset1, rrRecCount_Recordset1, re_Recordset1 Set re_Recordset1 = New regexp re_Recordset1.Pattern = "SELECT (.*) FROM " re_Recordset1.Global = False re_Recordset1.IgnoreCase = True rrSource_Recordset1="Select Count(*) as RecCount From " & re_Recordset1.Replace(Recordset1.Source,"") rrRecCount_Recordset1=CInt(Recordset1.ActiveConnection.Execute(rrSource_Recordset1)("RecCount")) Set rrSource_Recordset1 = Nothing Set re_Recordset1 = Nothing %> <%=(Recordset2.Fields.Item("Title").Value)%> - The Spirit of Hope Foundation
Accessibility Options: Small Text | Large Text | No Graphics

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

Recent Postings: <% While ((Repeat2__numRows <> 0) AND (NOT Recordset3.EOF)) %> "><%=(Recordset3.Fields.Item("Title").Value)%> | <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 Recordset3.MoveNext() Wend %> Back to Blogs

<% While ((Repeat1__numRows <> 0) AND (NOT Recordset2.EOF)) %>
<% if (Recordset2.Fields.Item("Thumbimage").Value) <> "" then %>">" alt="<%=(Recordset2.Fields.Item("AlternateText").Value)%>" border="0" /> <% End If %>

<%=(Recordset2.Fields.Item("DateStamp").Value)%> - <%=(Recordset2.Fields.Item("body").Value)%>

 

"><%=(Recordset2.Fields.Item("LinkTitle").Value)%> | &title=<%=(Recordset2.Fields.Item("Title").Value)%> at the Spirit of Hope Blog">Add To Del.icio.us | ">Add To DIGG.com |


 


<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset2.MoveNext() Wend %>
Check This Out...
Help Kick Multiple Sclerosis

Help Kick Multiple Sclerosis by Talking About Carlo's Trip in the MS Express from Seattle, WA to New York, NY in Your School, Place of Worship, Workplace and More.

Map of The MS Express Tour From Seattle to New York

Where is the MS Express Today? Check out the Travel Map and Calendar to Find Out Where Carlo is!


<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %> <% Recordset3.Close() Set Recordset3 = Nothing %>