<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%sqltxt="select * from imagenesf where activo=true order by posicion" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../datos/canfont.mdb")) set rs=createobject("ADODB.Recordset") rs.open sqltxt,Conn%> Galeria d'imatges - Banquets de noces, cerimonies civils, salons, restaurant...

Home |


	Presentació
	Novetats
	Contacte
	Mapa de situació
	Can Font
	Salons
	Cuina
	Carpa
	Menús
	Restaurant
	Imatges
	Webcam cuina

GALERIA D'IMATGES

<%if rs.eof then%> <%else do while not rs.eof%> <%familia=rs("codigoif") sqltxt2="select * from imagenes where activo=true and familia='"&familia&"' order by nombre" set rsi=createobject("ADODB.Recordset") rsi.open sqltxt2,Conn do while not rsi.eof%> <%rsi.movenext end if%> <%rsi.movenext end if%> <%rsi.movenext end if%> <%loop%> <%rs.movenext loop rsi.close set rsi=nothing end if rs.close set rs=nothing conn.close set conn=nothing%>

NO HI HA IMATGES

<%=rs("nombrecat")%>
<%if not rsi.eof then%>',<%=rsi("ancho")%>,<%=rsi("alto")%>)">.<%=rsi("tipo")%>" alt="<%=rsi("mini")%>" height="80" style="border-color:#000000">	<%if not rsi.eof then%>',<%=rsi("ancho")%>,<%=rsi("alto")%>)">.<%=rsi("tipo")%>" alt="<%=rsi("mini")%>" height="80" style="border-color:#000000">	<%if not rsi.eof then%>',<%=rsi("ancho")%>,<%=rsi("alto")%>)">.<%=rsi("tipo")%>" alt="<%=rsi("mini")%>" height="80" style="border-color:#000000">

Ctra. Matadepera a Castellar del Vallès | 08211 Castellar del Vallès - Barcelona | Tel: 937145377 - Fax: 937142355 |