<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim rec_fotog__MMColParam rec_fotog__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then rec_fotog__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rec_fotog Dim rec_fotog_cmd Dim rec_fotog_numRows Set rec_fotog_cmd = Server.CreateObject ("ADODB.Command") rec_fotog_cmd.ActiveConnection = MM_olivetano_STRING rec_fotog_cmd.CommandText = "SELECT * FROM gallery WHERE gall_chk = ?" rec_fotog_cmd.Prepared = true rec_fotog_cmd.Parameters.Append rec_fotog_cmd.CreateParameter("param1", 5, 1, -1, rec_fotog__MMColParam) ' adDouble Set rec_fotog = rec_fotog_cmd.Execute rec_fotog_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -3 Dim HLooper1__index HLooper1__index = 0 rec_fotog_numRows = rec_fotog_numRows + HLooper1__numRows %> <% Response.Expires = 60 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" %> Agriturismo Olivetano

olivetano.it

Agriturismo Olivetano - Cucina tipica Umbra

Galleria fotografica

<% startrw = 0 endrw = HLooper1__index numberColumns = 3 numrows = -1 while((numrows <> 0) AND (Not rec_fotog.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rec_fotog.EOF)) %> <% startrw = startrw + 1 rec_fotog.MoveNext() Wend %> <% numrows=numrows-1 Wend %>

" onclick="dmxAdvLayerPopup('Dettaglio','imm_dett.asp?gall_code=<%=(rec_fotog.Fields.Item("gall_code").Value)%>','fine1','','iPod','center','center',450,380,0,true,false,false,0,'SlideInTop','Linear',2,true,'SlideOutBottom','Linear',2,true,'',1,5,true,false,'');return document.MM_returnValue" />
<%=(rec_fotog.Fields.Item("gall_note").Value)%>

<% rec_fotog.Close() Set rec_fotog = Nothing %>