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%>Habitacions<%end if%><%if tp=2 then%>Sala de l’ Hotel<%end if%><%if tp=3 then%>Sala de conferències <%end if%><%if tp=4 then%>Sala de juntes<%end if%><%if tp=5 then%>Sala de tasts<%end if%><%if tp=6 then%>Club del vi<%end if%><%if tp=7 then%> Restaurant <%end if%><%if tp=8 then%>Botiga<%end if%><%if tp=9 then%>Interiors<%end if%><%if tp=10 then%>Exteriors<%end if%><%if tp=11 then%>Paisatges<%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("C_Titulo")>" " then%>

<%=RSGaleria("C_Titulo")%>

<%end if%>

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

" border="0">

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

<%=RSGaleria("C_Titulo")%>

<%end if%>

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

" border="0">

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

<%=RSGaleria("C_Titulo")%>

<%end if%>

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

" border="0">

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

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



	· Habitacions · Salons · Sala de l’ Hotel · Sala de tasts · Club del vi · Restaurant · Botiga · Interiors · Exteriors · El Priorat · Paisatges · Torroja del Priorat