<%@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=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
Home
Festa del maggio 2004
DSC00802.JPG
DSC00802.JPG
DSC00803.JPG
DSC00803.JPG
DSC00805.JPG
DSC00805.JPG
DSC00806.JPG
DSC00806.JPG
DSC00807.JPG
DSC00807.JPG
DSC00808.JPG
DSC00808.JPG
DSC00809.JPG
DSC00809.JPG
DSC00810.JPG
DSC00810.JPG
DSC00811.JPG
DSC00811.JPG
DSC00813.JPG
DSC00813.JPG
DSC00815.JPG
DSC00815.JPG
DSC00816.JPG
DSC00816.JPG
DSC00817.JPG
DSC00817.JPG
DSC00818.JPG
DSC00818.JPG
DSC00819.JPG
DSC00819.JPG
DSC00821.JPG
DSC00821.JPG
DSC00822.JPG
DSC00822.JPG
DSC00823.JPG
DSC00823.JPG
   

 

Generated with Arles Image Web Page Creator