<%@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("PhotoID") <> "") Then Recordset2__MMColParam = Request.QueryString("PhotoID") 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.Photos WHERE PhotoID = ?" 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.PhotoCategories ORDER BY CategoryID DESC" Recordset3_cmd.Prepared = true Set Recordset3 = Recordset3_cmd.Execute Recordset3_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset3_numRows = Recordset3_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 25 Repeat2__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat2__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim Recordset2_total Dim Recordset2_first Dim Recordset2_last ' set the record count Recordset2_total = Recordset2.RecordCount ' set the number of rows displayed on this page If (Recordset2_numRows < 0) Then Recordset2_numRows = Recordset2_total Elseif (Recordset2_numRows = 0) Then Recordset2_numRows = 1 End If ' set the first and last displayed record Recordset2_first = 1 Recordset2_last = Recordset2_first + Recordset2_numRows - 1 ' if we have the correct record count, check the other stats If (Recordset2_total <> -1) Then If (Recordset2_first > Recordset2_total) Then Recordset2_first = Recordset2_total End If If (Recordset2_last > Recordset2_total) Then Recordset2_last = Recordset2_total End If If (Recordset2_numRows > Recordset2_total) Then Recordset2_numRows = Recordset2_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Recordset2_total = -1) Then ' count the total records by iterating through the recordset Recordset2_total=0 While (Not Recordset2.EOF) Recordset2_total = Recordset2_total + 1 Recordset2.MoveNext Wend ' reset the cursor to the beginning If (Recordset2.CursorType > 0) Then Recordset2.MoveFirst Else Recordset2.Requery End If ' set the number of rows displayed on this page If (Recordset2_numRows < 0 Or Recordset2_numRows > Recordset2_total) Then Recordset2_numRows = Recordset2_total End If ' set the first and last displayed record Recordset2_first = 1 Recordset2_last = Recordset2_first + Recordset2_numRows - 1 If (Recordset2_first > Recordset2_total) Then Recordset2_first = Recordset2_total End If If (Recordset2_last > Recordset2_total) Then Recordset2_last = Recordset2_total End If End If %> <% 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 %> Photos - The Spirit of Hope Foundation
Accessibility Options: Small Text | Large Text | No Graphics

Photos

<% While ((Repeat1__numRows <> 0) AND (NOT Recordset3.EOF)) %> "><%=(Recordset3.Fields.Item("Category").Value)%> | <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset3.MoveNext() Wend %>

 

">

<% While ((Repeat2__numRows <> 0) AND (NOT Recordset2.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__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 %>