<%@ 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 2010-2014:

Presidente: Pietro Pellinghelli              

Vice Presidente : Fausto Pigoni

Segretario : Enrico Barilla

Revisore dei Conti : Ivan Canali

Direttori Sportivi : Pier Francesco Fontechiari

Cassiere Economo : Andrea Belletti

Consigliere : Sandro Serventi - Matteo Montali

 

 

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 %>