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

DSC00972.JPG	DSC00973.JPG	Dsc00974.jpg	Dsc00975.jpg
Dsc00976.jpg	Dsc00977.jpg	DSC00978.JPG	DSC00980.JPG
DSC00982.JPG	DSC00984.JPG	DSC00985.JPG	DSC00986.JPG
DSC00987.JPG	DSC00988.JPG	DSC00991.JPG	DSC00992.JPG
DSC00993.JPG	DSC00994.JPG	DSC00995.JPG	DSC00997.JPG

Generated with Arles Image Web Page Creator