Festa del maggio 2004

<% Dim thisURL, cnnl, openStr, SQL thisURL = Request.ServerVariables("PATH_INFO") Set cnn1 = Server.CreateObject("ADODB.Connection") openStr = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Domains\centrotradizioneorale.net\db\maggio.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 Els curCount = rsHits("hitcnt") + 1 End If rsHits("hitcnt") = curCount rsHits.update rsHits.Close Set rsHits = Nothing ora = now() SQL = "Insert Into viste (pagina, Data) Values('"&thisURL&"', '"&ora&"')" cnn1.Execute(SQL) cnn1.Close Set cnn1 = Nothing %> Festa del maggio 2004

DSC00825.JPG	DSC00827.JPG	DSC00828.JPG	DSC00833.JPG
DSC00835.JPG	DSC00836.JPG	DSC00837.JPG	DSC00838.JPG
DSC00840.JPG	DSC00841.JPG	DSC00842.JPG	DSC00843.JPG
DSC00844.JPG	DSC00845.JPG	DSC00846.JPG	DSC00847.JPG
DSC00848.JPG	DSC00849.JPG	DSC00850.JPG	DSC00851.JPG

Generated with Arles Image Web Page Creator