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%>Habitaciones<%end if%><%if tp=2 then%>Salón hotel<%end if%><%if tp=3 then%>Sala de conferencias<%end if%><%if tp=4 then%>Sala de juntas<%end if%><%if tp=5 then%>Sala de catas<%end if%><%if tp=6 then%>Club del vino<%end if%><%if tp=7 then%>Restaurante<%end if%><%if tp=8 then%>Tienda<%end if%><%if tp=9 then%>Interiores<%end if%><%if tp=10 then%>Exteriores<%end if%><%if tp=11 then%>Paisajes<%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%> No hay fotos disponibles <%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("Titulo")>" " then%>

<%=RSGaleria("Titulo")%>

<%end if%>

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

" border="0">

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

<%=RSGaleria("Titulo")%>

<%end if%>

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

" border="0">

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

<%=RSGaleria("Titulo")%>

<%end if%>

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

" border="0">

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

<%=RSGaleria("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



	· Habitaciones · Salones · Salón hotel · Sala de Conferencias · Sala de Juntas · Sala de catas · Club del vino · Restaurante · Tienda · Interiores · Exteriores · El Priorato · Paisajes · Torroja del Priorat