Llistat de centres

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim strtemp Dim DB_CONNECTIONSTRING strtemp =server.mappath("\") strtemp = strtemp & "\..\data\dades.mdb" DB_CONNECTIONSTRING = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strTemp & ";" %> Llistat de centres

Llistat de centres amb llars

<% vSQL = "SELECT * FROM ambllar ORDER BY ambLlar.poblacio, ambLlar.Nom;" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open vSQL, DB_CONNECTIONSTRING, 3, 1, adCmdText contfiles=0 contfiles=contfiles+1 if Not RS.EOF then RS.Movefirst Do While Not RS.EOF %> <% RS.MoveNext Loop end if %>

Població	Nom	Adresa	CP	Telèfon	Fax	Públic/Privat
<% Response.Write(RS.Fields("poblacio"))%>	<% Response.Write(RS.Fields("Nom"))%>	<% Response.Write(RS.Fields("carrer")) & " " & Response.Write(RS.Fields("agrupament"))%>	<% Response.Write(RS.Fields("cp"))%>	<% Response.Write(RS.Fields("telf"))%>	<% Response.Write(RS.Fields("fax"))%>	<% Response.Write(RS.Fields("tipus"))%>