<%@LANGUAGE="VBSCRIPT"%> <% Dim conn Dim conn_cmd Dim conn_numRows Set conn_cmd = Server.CreateObject ("ADODB.Command") conn_cmd.ActiveConnection = MM_qmp_STRING conn_cmd.CommandText = "SELECT * FROM contactes ORDER BY titol_esp" conn_cmd.Prepared = true Set conn = conn_cmd.Execute conn_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 conn_numRows = conn_numRows + Repeat1__numRows %> Qué me pongo. Imagen personal
català | castellano | english
Contacta con la Oficina Central de Quémepongo

Montse Guals y Elisabet Olivé
Diagonal 512
08006 Barcelona
T. 93 217 06 06 - M. 648 057 178
  Oficina central:
Departamento de prensa:
Departamento de franquicias:
Departamento de formación
  central@quemepongo.es
prensa@quemepongo.es
franquicias@quemepongo.es
formacion@quemepongo.es


Contacta con la franquicia Quémepongo más cercana a tu ciudad

<% While ((Repeat1__numRows <> 0) AND (NOT conn.EOF)) %> <% Repeat1__index=Repeat1__index+3 Repeat1__numRows=Repeat1__numRows-1 if not(conn.eof)then conn.MoveNext end if Wend %>
<%if not(conn.eof) then%> <%=(conn.Fields.Item("titol_esp").Value)%>
<%=Replace((conn.Fields.Item("nom").Value), "y", "y")%>
<%=(conn.Fields.Item("adreca_esp").Value)%>
<%=(conn.Fields.Item("cp").Value)%> <%=(conn.Fields.Item("poblacio_esp").Value)%>  <%if(conn.Fields.Item("provincia_esp").Value)<>"" then response.Write("("+conn.Fields.Item("provincia_esp").Value+")")%>
<%=(conn.Fields.Item("tip_tel1_esp").Value)%> <%=(conn.Fields.Item("telefon1").Value)%> <%if (conn.Fields.Item("telefon2").Value)<>"" then response.Write(" - ")%> <%=(conn.Fields.Item("tip_tel2_esp").Value)%> <%if (conn.Fields.Item("tip_tel2_esp").Value)<>"" then response.Write(" ")%> <%if (conn.Fields.Item("telefon2").Value)<>"" then response.Write("")%> <%=(conn.Fields.Item("telefon2").Value)%>
" class="link1 resaltado"><%=(conn.Fields.Item("email").Value)%> <%conn.movenext%> <%end if%>
  <%if not(conn.eof) then%> <%=(conn.Fields.Item("titol_esp").Value)%>
<%=Replace((conn.Fields.Item("nom").Value), "y", "y")%>
<%=(conn.Fields.Item("adreca_esp").Value)%>
<%=(conn.Fields.Item("cp").Value)%> <%=(conn.Fields.Item("poblacio_esp").Value)%>  <%if(conn.Fields.Item("provincia_esp").Value)<>"" then response.Write("("+conn.Fields.Item("provincia_esp").Value+")")%>
<%=(conn.Fields.Item("tip_tel1_esp").Value)%> <%=(conn.Fields.Item("telefon1").Value)%> <%if (conn.Fields.Item("telefon2").Value)<>"" then response.Write(" - ")%> <%=(conn.Fields.Item("tip_tel2_esp").Value)%> <%if (conn.Fields.Item("tip_tel2_esp").Value)<>"" then response.Write(" ")%> <%if (conn.Fields.Item("telefon2").Value)<>"" then response.Write("")%> <%=(conn.Fields.Item("telefon2").Value)%>
" class="link1 resaltado"><%=(conn.Fields.Item("email").Value)%> <%conn.movenext%> <%end if%>
  <%if not(conn.eof) then%> <%=(conn.Fields.Item("titol_esp").Value)%>
<%=Replace((conn.Fields.Item("nom").Value), "y", "y")%>
<%=(conn.Fields.Item("adreca_esp").Value)%>
<%=(conn.Fields.Item("cp").Value)%> <%=(conn.Fields.Item("poblacio_esp").Value)%>  <%if(conn.Fields.Item("provincia_esp").Value)<>"" then response.Write("("+conn.Fields.Item("provincia_esp").Value+")")%>
<%=(conn.Fields.Item("tip_tel1_esp").Value)%> <%=(conn.Fields.Item("telefon1").Value)%> <%if (conn.Fields.Item("telefon2").Value)<>"" then response.Write(" - ")%> <%=(conn.Fields.Item("tip_tel2_esp").Value)%> <%if (conn.Fields.Item("tip_tel2_esp").Value)<>"" then response.Write(" ")%> <%if (conn.Fields.Item("telefon2").Value)<>"" then response.Write("")%> <%=(conn.Fields.Item("telefon2").Value)%>
" class="link1 resaltado"><%=(conn.Fields.Item("email").Value)%> <%end if%>
 
 
Y seguimos creciendo…
 
<% conn.Close() Set conn = Nothing %>