<%@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_cat" 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 amb l’Oficina Central de Quémepongo

Montse Guals i Elisabet Olivé
Diagonal 512
08006 Barcelona
T. 93 217 06 06 - M. 648 057 178
  Oficina central:
Departament de premsa:
Departament de franquícies:
Departament de formació
  central@quemepongo.es
prensa@quemepongo.es
franquicias@quemepongo.es
formacion@quemepongo.es


Contacta amb la franquícia Quémepongo més propera a la teva ciutat

<% 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_cat").Value)%>
<%=Replace((conn.Fields.Item("nom").Value), "y", "i")%>
<%=(conn.Fields.Item("adreca_cat").Value)%>
<%=(conn.Fields.Item("cp").Value)%> <%=(conn.Fields.Item("poblacio_cat").Value)%>  <%if(conn.Fields.Item("provincia_cat").Value)<>"" then response.Write("("+conn.Fields.Item("provincia_cat").Value+")")%>
<%=(conn.Fields.Item("tip_tel1_cat").Value)%> <%=(conn.Fields.Item("telefon1").Value)%> <%if (conn.Fields.Item("telefon2").Value)<>"" then response.Write(" - ")%> <%=(conn.Fields.Item("tip_tel2_cat").Value)%> <%if (conn.Fields.Item("tip_tel2_cat").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_cat").Value)%>
<%=Replace((conn.Fields.Item("nom").Value), "y", "i")%>
<%=(conn.Fields.Item("adreca_cat").Value)%>
<%=(conn.Fields.Item("cp").Value)%> <%=(conn.Fields.Item("poblacio_cat").Value)%>  <%if(conn.Fields.Item("provincia_cat").Value)<>"" then response.Write("("+conn.Fields.Item("provincia_cat").Value+")")%>
<%=(conn.Fields.Item("tip_tel1_cat").Value)%> <%=(conn.Fields.Item("telefon1").Value)%> <%if (conn.Fields.Item("telefon2").Value)<>"" then response.Write(" - ")%> <%=(conn.Fields.Item("tip_tel2_cat").Value)%> <%if (conn.Fields.Item("tip_tel2_cat").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_cat").Value)%>
<%=Replace((conn.Fields.Item("nom").Value), "y", "i")%>
<%=(conn.Fields.Item("adreca_cat").Value)%>
<%=(conn.Fields.Item("cp").Value)%> <%=(conn.Fields.Item("poblacio_cat").Value)%>  <%if(conn.Fields.Item("provincia_cat").Value)<>"" then response.Write("("+conn.Fields.Item("provincia_cat").Value+")")%>
<%=(conn.Fields.Item("tip_tel1_cat").Value)%> <%=(conn.Fields.Item("telefon1").Value)%> <%if (conn.Fields.Item("telefon2").Value)<>"" then response.Write(" - ")%> <%=(conn.Fields.Item("tip_tel2_cat").Value)%> <%if (conn.Fields.Item("tip_tel2_cat").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%>
 
 
I seguim creixent...