Casas De El Priorato :: Casas De Tarragona

<%on error resume next set objUpload = new xelUpload objUpload.Upload() server.ScriptTimeout = 100000000 if cint(request.QueryString("tp"))>" " then tp=cint(request.QueryString("tp")) else tp=1 end if if tp=0 then tp=1 end if strsql="select * from tbGaleria where Tipo="&tp&" order by Tipo,Id asc" Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open MM_conBD_string Set RSGaleria = Server.CreateObject("ADODB.Recordset") RSGaleria.Open strSQL, oConn,3,1 %>

<%RSGaleria.MoveNext%>

<%RSGaleria.MoveNext%>

· <%if tp=1 then%>Rooms<%end if%><%if tp=2 then%>Hotel hall<%end if%><%if tp=3 then%>Conference Room<%end if%><%if tp=4 then%>Sala de juntas<%end if%><%if tp=5 then%>Wine-tasting room<%end if%><%if tp=6 then%>Wine club<%end if%><%if tp=7 then%> Restaurant <%end if%><%if tp=8 then%>Store<%end if%><%if tp=9 then%> Interiors <%end if%><%if tp=10 then%> Exteriors <%end if%><%if tp=11 then%>Landscapes<%end if%><%if tp=12 then%>Torroja del Priorat<%end if%><%if tp=13 then%>Packs<%end if%><%if tp=14 then%>Pub<%end if%>

<%if RSGaleria.PageCount = 0 then%> There are photos no available <%else registro_mostrado = 0 columna = -1 Do While registro_mostrado > -1 And Not RSGaleria.EOF columna = columna + 1 If columna = 0 then%> <%end if if columna = 1 then registro_mostrado = registro_mostrado + 1%> <%end if if columna = 2 then registro_mostrado = registro_mostrado + 1%> <%end if if columna = 3 then columna = -1 registro_mostrado = registro_mostrado + 1%> <%RSGaleria.MovePrevious RSGaleria.MovePrevious%> <%RSGaleria.MoveNext%><%RSGaleria.MoveNext%>

','imagen','600','470','no');return false;" target="_blank">

" border="0">

<%if RSGaleria("E_Titulo")>" " then%>

<%=RSGaleria("E_Titulo")%>

<%end if%>

','imagen','600','470','no');return false;" target="_blank">

" border="0">

<%if RSGaleria("E_Titulo")>" " then%>

<%=RSGaleria("E_Titulo")%>

<%end if%>

','imagen','600','470','no');return false;" target="_blank">

" border="0">

<%if RSGaleria("E_Titulo")>" " then%>

<%=RSGaleria("E_Titulo")%>

<%end if%>

','imagen','600','470','no');return false;" target="_blank">

" border="0">

<%if RSGaleria("E_Titulo")>" " then%>

<%=RSGaleria("E_Titulo")%>

<%end if%>

<%end if%> <%RSGaleria.MoveNext Loop if columna<3 then if columna = 0 then RSGaleria.MovePrevious%>

<%end if if columna = 1 then RSGaleria.MovePrevious RSGaleria.MovePrevious%>

<%end if if columna = 2 then RSGaleria.MovePrevious RSGaleria.MovePrevious RSGaleria.MovePrevious%>

<%end if%> <%end if%> <%end if RSGaleria.Close() Set RSGaleria = Nothing%>

	Tel.: 00 34 977 054030 - Fax.: 00 34 977 054029 e-mail: hotel@abadiadelpriorat.com



	· Rooms · Halls · Hotel hall · Wine-tasting room · Wine club · Restaurant · Store · Interiors · Exteriors · The Priorato · Landscapes · Torroja del Priorat