<%@ Language=VBScript %>

earth5.gif (21002 bytes)

The Best Portal for Peruvian Exporters

nnbnbb

<% dim objConnection dim codigo dim ssql1 dim ssql2 dim query1 dim query2 codigo = request.querystring("codigosector") Set objConnection = Server.CreateObject("ADODB.Connection") objConnection.Open "PERUEXPORT", "sa", "" Set query1 = Server.CreateObject("ADODB.Recordset") ssql1 = "SELECT codigo_ss, nombre FROM subsector WHERE estado='1' and codigo_s ='" & codigo & "' order by 2" query1.Open ssql1, objConnection Set query2 = Server.CreateObject("ADODB.Recordset") ssql2 = "Select nombre from sector where codigo_s ='" & codigo & "'" query2.Open ssql2, objConnection %>

Sector: <%=query2("nombre")%>

<% DO WHILE NOT query1.EOF%> <% query1.MoveNext LOOP%>

"><%=query1("nombre")%>

<%query1.close query2.close objConnection.close %>

Home

mail to: [email protected]

Copyright � 2000 AuriNet All Rights Reserved.