<%Set OggettoFile = Server.CreateObject("Scripting.FileSystemObject")%> <% Dim anno Dim mese Dim dataindicativa Dim datafinale Dim SQLCongressi Dim RSCongressi Dim stringacongresso Dim SQLPdf Dim RSPdf stringacongresso = "" anno = Year(Date) mese = Month(Date) If mese < 10 Then mesestr = "0" & CStr(mese) Else mesestr = CStr(mese) End If dataindicativa = CDate(CreaDataServer(anno & mesestr & "01")) + 50 datafinale = CreaDataNostra(dataindicativa) mesefinale = CInt(Mid(CStr(datafinale), 5,2)) 'If mesefinale = 1 Then ' mesefinale = 12 'End If annofinale = Cint(Left(CStr(datafinale), 5)) If anno = annofinale Then concatenatore = "AND" Else concatenatore = "OR" End If SQLCongressi = "SELECT * FROM Congressi WHERE (Congressi_Anno=" & anno & " AND Congressi_Mese>=" & mese & ") " & concatenatore & " (Congressi_Anno=" & annofinale & " AND Congressi_Mese<=" & mesefinale & ") ORDER BY Congressi_Anno, Congressi_Ordine;" Set RSCongressi = ApriRecordSet(SQLCongressi) %> <%Do While Not RSCongressi.EOF stringacongresso = "%aprelink%" & RSCongressi("Congressi_Titolo") & "%chiudelink%
" If RSCongressi("Congressi_Link") <> "-1" Then aprelink = "" chiudelink = "" Else aprelink = "" chiudelink = "" End If stringacongresso = Replace(stringacongresso, "%aprelink%", aprelink) stringacongresso = Replace(stringacongresso, "%chiudelink%", chiudelink) If RSCongressi("Congressi_Luogo") <> "-1" Then stringacongresso = stringacongresso & RSCongressi("Congressi_Luogo") End If If RSCongressi("Congressi_Sede") <> "-1" Then stringacongresso = stringacongresso & ", " & RSCongressi("Congressi_Sede") End If If RSCongressi("Congressi_Sede") <> "-1" OR RSCongressi("Congressi_Luogo") <> "-1" Then stringacongresso = stringacongresso & "
" End If stringacongresso = stringacongresso & RSCongressi("Congressi_Date") & "
" If RSCongressi("Congressi_Note") <> "-1" Then stringacongresso = stringacongresso & "" & RSCongressi("Congressi_Note") & "" End If SQLPdf = "SELECT Pdf_Pdf, Pdf_Testo FROM Pdf WHERE Pdf_CongressoID=" & RSCongressi("Congressi_CongressoID") & ";" Set RSPdf = ApriRecordSet(SQLPdf) If Not RSPdf.EOF Then Do While Not RSPdf.EOF stringacongresso = stringacongresso & "" & RSPdf("Pdf_Testo") & " " & dimensionefile("Pdf/" & RSPdf("Pdf_Pdf"), 0) & "
" RSPdf.MoveNext Loop End If ChiudiOggetto(RSPdf) stringacongresso = stringacongresso %> <%stringacongresso = "" RSCongressi.MoveNext Loop%>

<%=stringacongresso%>

<% ChiudiOggetto(RSCongressi) ChiudiOggetto(Conn) Set OggettoFile = Nothing%>