Appuntamenti e Manifestazioni

<% Session.Abandon Set Conn = Server.CreateObject("ADODB.Connection") MyConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; " MyConnStr = MyConnStr & "DBQ=C:\Inetpub\rifondazione\savona\dati\appunt.mdb; " 'MyConnStr = MyConnStr & "PWD=eldb;" Conn.Open(MyConnStr) ora = FormatDateTime(Date, vbLongDate) dom = FormatDateTime(Date + 20, vbLongDate) Response.Write "

da oggi " & DataLung(ora) & " a " & DataLung(dom) & "

" lim = FormatDateTime(Date + 20, vbShortDate) stslq = "SELECT data, luogo, titolo, ora, testo1, testo2 FROM appunt WHERE ((data >= #" & Date & "#) AND (data < #" & lim & "#)) ORDER BY data" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open stslq, Conn If objRS.EOF = True Then Response.Write("

") Response.Write("

non é pervenuta in redazione alcuna notizia riguardante nuovi appuntamenti di Rifondazione Comunista in Provincia di Savona

") End If Do Until objRS.EOF = True dt = objRS("data") dtl = FormatDateTime(dt, vbLongDate) quando = DataLung(dtl) & ", " & objRS("ora") Response.Write "

" & quando & "

" Response.Write "

" & objRS("luogo") & "

" Response.Write "

" & objRS("titolo") & "

" Response.Write "

" & objRS("testo1") & "

" If objRS("testo2") <> "(vuoto)" Then Response.Write "

" & objRS("testo2") & "

" objRS.MoveNext Loop objRS.Close Set objRS = Nothing Conn.Close Set Conn = Nothing %>

Si invitano sia i responsabili, sia i militanti dei circoli che siano a conoscenza di iniziative di Rifondazione nella nostra provincia a mettersi in contatto o con la Federazione Provinciale di Savona o direttamente con la redazione del sito inviando una e-mail all'indirizzo: marcoravera@netscape.net.