Cámara Chilena de Refrigeración y Climatización A.G.


	Socios Cámara

<% Response.Expires = -1 on error resume next Dim mostrar Dim cant_paginas Dim pagina_actual Dim registro_mostrado Dim I mostrar = 10 %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("soc_cam/bdd/soc_cam.mdb") + ";uid=;pwd=" if err.number <> 0 then Response.Write "Error de Conexión
" & err.description Response.end end if Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From socios_cam order by empresa", Conn 'Abre un objeto Recordset y ejecuta una sentencia SQL. (= '"& num &"') esto iba abajo 'Set Rs = Conn.execute ("Select * From frioycalor where registro = (Select max(registro) From frioycalor where imagen)") %>

<% do until rs.EOF %>

<% For I = 1 To RS.Fields.Count - 10 %>

<%=RS.Fields(1)%>

<%=RS.Fields(2)%><%=" "%><%=RS.Fields(3)%><%=" "%><%=RS.Fields(4)%><%=" "%><%=RS.Fields(5)%><%=" "%><%=RS.Fields(6)%>

<%=RS.Fields(7)%><%=" "%><%=RS.Fields(8)%>

<%=RS.Fields(9)%>

<%=RS.Fields(10)%>

<% rs.MoveNext %> <% Next 'I %>

<%=RS.Fields(1)%>

<%=RS.Fields(2)%><%=" "%><%=RS.Fields(3)%><%=" "%><%=RS.Fields(4)%><%=" "%><%=RS.Fields(5)%><%=" "%><%=RS.Fields(6)%>

<%=RS.Fields(7)%><%=" "%><%=RS.Fields(8)%>

<%=RS.Fields(9)%>

<%=RS.Fields(10)%>

<% rs.MoveNext loop rs.Close Conn.Close %>

Socios Cámara