<%@LANGUAGE="VBSCRIPT"%> <% Dim domenica Dim domenica_cmd Dim domenica_numRows Set domenica_cmd = Server.CreateObject ("ADODB.Command") domenica_cmd.ActiveConnection = MM_amici_STRING domenica_cmd.CommandText = "SELECT * FROM domenicacorrente" domenica_cmd.Prepared = true Set domenica = domenica_cmd.Execute domenica_numRows = 0 %> <% Dim successive Dim successive_cmd Dim successive_numRows Set successive_cmd = Server.CreateObject ("ADODB.Command") successive_cmd.ActiveConnection = MM_amici_STRING successive_cmd.CommandText = "SELECT * FROM domenicacorrente" successive_cmd.Prepared = true Set successive = successive_cmd.Execute successive_numRows = 0 %> <% Dim precedenti Dim precedenti_cmd Dim precedenti_numRows Set precedenti_cmd = Server.CreateObject ("ADODB.Command") precedenti_cmd.ActiveConnection = MM_amici_STRING precedenti_cmd.CommandText = "SELECT * FROM domenicaprecedente ORDER BY [data] DESC" precedenti_cmd.Prepared = true Set precedenti = precedenti_cmd.Execute precedenti_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 10 Repeat2__index = 0 precedenti_numRows = precedenti_numRows + Repeat2__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 successive_numRows = successive_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Disabili mentali: amici senza limiti

La domenica con Gesù

<%= DoDateTime((domenica.Fields.Item("data").Value), 1, -1) %>

<%=(domenica.Fields.Item("nomedomenica").Value)%>

<%=(domenica.Fields.Item("tempo").Value)%>

 

<%=(domenica.Fields.Item("vantitolo").Value)%>

" alt="<%=(domenica.Fields.Item("titolo").Value)%>" />

 

 

Le domeniche
precedenti
<% While ((Repeat2__numRows <> 0) AND (NOT precedenti.EOF)) %>

"><%=(precedenti.Fields.Item("data").Value)%>

" width="100" />

 

<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 precedenti.MoveNext() Wend %>

 
Le domeniche
successive
<% While ((Repeat1__numRows <> 0) AND (NOT successive.EOF)) %>

"><%=(successive.Fields.Item("data").Value)%>

" width="100" />

 

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Hai stampato una pagina del sito www.santegidio.org

<% domenica.Close() Set domenica = Nothing %> <% successive.Close() Set successive = Nothing %> <% precedenti.Close() Set precedenti = Nothing %>