<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Dettagli__MMColParam Dettagli__MMColParam = "1" If (Request.QueryString("id") <> "") Then Dettagli__MMColParam = Request.QueryString("id") End If %> <% Dim Dettagli Dim Dettagli_numRows Set Dettagli = Server.CreateObject("ADODB.Recordset") Dettagli.ActiveConnection = MM_UAI_STRING Dettagli.Source = "SELECT * FROM Iniziative WHERE IDEvento = " + Replace(Dettagli__MMColParam, "'", "''") + "" Dettagli.CursorType = 0 Dettagli.CursorLocation = 2 Dettagli.LockType = 1 Dettagli.Open() Dettagli_numRows = 0 %> Programma delle iniziative realizzate il giorno <%=(Dettagli.Fields.Item("giorno").Value)%> <% =MonthName((Dettagli.Fields.Item("mese").Value)) %> <% =((Dettagli.Fields.Item("anno").Value)) %>

 

UNIONE ASTROFILI ITALIANI

AstroIniziative

 

 

<%=(Dettagli.Fields.Item("giorno").Value)%> <% =MonthName((Dettagli.Fields.Item("mese").Value)) %> <% =((Dettagli.Fields.Item("anno").Value)) %>   ore <%=(Dettagli.Fields.Item("ore").Value)%>.<%=(Dettagli.Fields.Item("minuti").Value)%>
L'associazione: <%=(Dettagli.Fields.Item("asso_organizzatrice").Value)%>
Organizza presso: <%=(Dettagli.Fields.Item("luogo").Value)%> a <%=(Dettagli.Fields.Item("localita").Value)%>, (<%=(Dettagli.Fields.Item("provincia").Value)%>)
 Descrizione: <%=(Dettagli.Fields.Item("descrizione_lunga").Value)%>

Per informazioni contattare: <%=(Dettagli.Fields.Item("persona_rif").Value)%> al numero: <%=(Dettagli.Fields.Item("telefono").Value)%>
Oppure inviare una mail all'indirizzo: "><%=(Dettagli.Fields.Item("email").Value)%>

Maggiori informazioni le puoi trovare sul sito web: " target="_blank">http://<%=(Dettagli.Fields.Item("sito").Value)%>

Prenotazione: <%=(Dettagli.Fields.Item("prenotazione").Value)%>

Torna alla pagina precedente

 

<% If Dettagli.EOF And Dettagli.BOF Then %>

Non esiste nessuna iniziativa con queste caratteristiche!

Torna alla home page

<% End If ' end Dettagli.EOF And Dettagli.BOF %> <% Dettagli.Close() Set Dettagli = Nothing %>