<%
'on error resume next
if request.QueryString("id")>" " then
id=request.QueryString("id")
else
id=0
end if
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open MM_conBD_STRING
strsql="select * from tbPacks order by orden asc, nombre asc"
Set RSPacks = Server.CreateObject("ADODB.Recordset")
RSPacks.Open strSQL, oConn,3,1
strsql="select * from tbPacks where id="&id&" order by orden asc, nombre asc"
Set RSPacks2 = Server.CreateObject("ADODB.Recordset")
RSPacks2.Open strSQL, oConn,3,1
'strsql="select * from tbGaleria where Tipo=13 order by Tipo,Id asc"
'Set RSGaleria = Server.CreateObject("ADODB.Recordset")
'RSGaleria.Open strSQL, oConn,3,1
strsql="select * from tbGaleria where Tipo=13 and Tpack="&id&" order by Tipo,Id asc"
Set RSGaleria = Server.CreateObject("ADODB.Recordset")
RSGaleria.Open strSQL, oConn,3,1
Function AcomodarTXT(txt)
txt = Replace (txt, vbCrLf, "
")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function
%>
|
 |
<% if request.QueryString("id")=0 then%>
<%else%>
 |
 |
<%if not RSPacks2.eof then%><%=AcomodarTXT(RSPacks2("Nombre"))%><%end if%> |
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
<%if not RSGaleria.eof then%>
 " border="0" width="160" height="120"> |
|
<%end if%>
<%if not RSPacks2.eof then%>
<%=AcomodarTXT(RSPacks2("Entradilla")&" ")%>
<%end if%>
|
|
|
|
|
|
|
|
|
|
|
|
<%if not RSPacks2.eof then%><%=AcomodarTXT(RSPacks2("Contenido"))%><%end if%> |
|
|
|
|
|
|
|
Galería Fotográfica |
|
|
|
|
| |
<%if RSGaleria.EOF 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%>
<%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%>
| |
|
|
<%RSGaleria.MoveNext%>
<%end if
if columna = 2 then
RSGaleria.MovePrevious
RSGaleria.MovePrevious
RSGaleria.MovePrevious%>
| |
<%RSGaleria.MoveNext%>
<%end if%>
<%end if%>
<%end if
RSGaleria.Close()
Set RSGaleria = Nothing%>
|
|
| |
<%end if%>
<% if request.QueryString("id")=0 then%>
|
<%else%>
| |
|
|
|
C/ Mayor, 25 -
43737 TORROJA DEL PRIORAT (Tarragona)
Tel.: 00 34 97 7054030 - Fax.: 00 34 977 054029
e-mail: hotel@abadiadelpriorat.com |
|
|
<%end if%>
|
