<%@Language=VBScript%> <% Dim thisURL, cnnl, openStr, SQL thisURL = Request.ServerVariables("PATH_INFO") Set cnn1 = Server.CreateObject("ADODB.Connection") openStr = "driver={Microsoft Access Driver (*.mdb)};" & "dbq=" & Server.MapPath("../mdb-database/contatore.mdb") cnn1.Open openStr,"","" sql = "SELECT url, hitcnt " & _ "FROM hitcounts " & _ "WHERE url = '" & thisURL & "';" Set rsHits = Server.CreateObject("ADODB.Recordset") rsHits.Open sql, cnn1, adOpenDynamic, adLockPessimistic, adCmdText If rsHits.EOF Then rsHits.AddNew rsHits("url") = thisURL curCount = 1 Else curCount = rsHits("hitcnt") + 1 End If rsHits("hitcnt") = curCount rsHits.update rsHits.Close Set rsHits = Nothing cnn1.Close Set cnn1 = Nothing %> Istituto Scolastico Comprensivo di Piazza al Serchio (Lucca) - Scuola Elementare di Pieve San Lorenzo
 

Scuola dell'Infanzia di Sermezzana

Comune di Minucciano (LU)

  

Anno Scolastico 2004 /2005

 

 

13 settembre 2004

Festa di Inizio (Immagini)

1 maggio 2005 - Mostra