Polisportiva Msp - gruppo podistico

<% Const ForReading = 1 Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile(server.MapPath("/cgi-bin/server.log"), ForReading) indirizzo_server = ts.ReadLine ts.close 'response.write(indirizzo_server) %>

HOME

4 CAMPANILI

CLASSIFICHE

FOTO

L'ANGOLO DI..

LINK

CONTATTI

CLASSIFICA CAMMINATE

PUNTI

<% if Request("report")="km" then Set conn = server.CreateObject ("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb-database/dati.mdb") & ";" Set rs = Server.CreateObject("adodb.recordset") rs.ActiveConnection = conn rs.source = "select * from MyUploadTable where filename='km.htm'" rs.open pdffile=rs("filedata") rs.close conn.close 'Response.ContentType = "application/html" Response.BinaryWrite(pdffile) End if if report="punti" then Set conn = server.CreateObject ("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb-database/dati.mdb") & ";" Set rs = Server.CreateObject("adodb.recordset") rs.ActiveConnection = conn rs.source = "select * from MyUploadTable where filename='punti.htm'" rs.open pdffile=rs("filedata") rs.close conn.close 'Response.ContentType = "application/html" Response.BinaryWrite(pdffile) End if %>

area privata