<%@ Language=VBScript %> <%Option Explicit Dim Conn, fs Dim User Dim strTesto Dim strMsg1 Dim sql, ImgSrc Dim rsAzienda User = Session("User") strMsg1 = "Errore nella creazione della pagina" Set Conn = Server.CreateObject("ADODB.Connection") Set rsAzienda = Server.CreateObject("ADODB.Recordset") Conn.Open Application("ConnectionString") sql = "SELECT Testi.TestoITA FROM Testi WHERE Testi.TipoTesto = 1" with rsAzienda .Open sql, Conn if .EOF then err.Raise vbObjectError + 513, "Errore", "Azienda non trovata!" else strTesto = .Fields("TestoITA") end if .Close end with Conn.Close set rsAzienda = Nothing Set Conn = Nothing %> chisiamo

Fuori Giri

FUORIGIRI a Parma è sinonimo di fuoristrada ENDURO. Il gruppo è nato dalla fusione del Motoclub Fuorigiri di Palanzano con lo storico MotoClub Azimut.

Grazie all'unione dei gruppi sportivi, oggi si può contare su una base di iscritti numericamente importante.

QUESTO IL CONSIGLIO DIRETTIVO 2009:

Presidente: Pietro Pellinghelli

Vice Presidente : Fausto Pigoni

Segretario : Enrico Barilla

Revisore dei Conti : Ivan Canali

Direttori Sportivi : Pier Francesco Fontechiari e Marco Sciaboni

Cassiere Economo : Andrea Belletti

Consigliere : Sandro Serventi

La storia

<% 'Recupero immagine Set fs = Server.CreateObject ("Scripting.FileSystemObject") Imgsrc = Application("Dirphoto") & "001" & ".gif" if fs.FileExists(server.MapPath (Imgsrc)) = False then Imgsrc = Application("Dirphoto") & "001" & ".jpg" if fs.FileExists(server.MapPath (Imgsrc)) = False then Imgsrc = "" else Imgsrc = "

" Response.Write Imgsrc end if else Imgsrc = "

" Response.Write Imgsrc end if Set fs = nothing 'Scrivo la descrizione dell'azienda Response.Write strTesto %>