|
|
|
|
|
<% ' D a t o s E m p r e s a Dim empresas() Set selBd1 = Server.CreateObject ("ADODB.Connection") selBd1.Open "DSN=BDMazamitlaPM;" Set rec1 = selBd1.Execute("SELECT * FROM dempresa WHERE estatus = 'A';") If Not(rec1.EOF) Then rec1.MoveFirst P=0 While Not rec1.EOF ReDim Preserve empresas(11,P+1) empresas(0,P) = trim(rec1("nom_emp")) empresas(1,P) = trim(rec1("dir_emp")) empresas(2,P) = trim(rec1("cp_emp")) empresas(3,P) = trim(rec1("pob_emp")) empresas(4,P) = trim(rec1("tel_emp")) empresas(5,P) = trim(rec1("tel2_emp")) empresas(6,P) = trim(rec1("prop_emp")) empresas(7,P) = trim(rec1("der_emp")) empresas(8,P) = trim(rec1("mailw_emp")) empresas(9,P) = trim(rec1("descw_emp")) empresas(10,P)= trim(rec1("imagen")) P = P + 1 rec1.MoveNext WEnd regempresas=P End If rec1.Close Set rec1 = Nothing %> |
|
|
<%=empresas(0,1)%>
|
<%=empresas(0,2)%>
|
| <%=empresas(6,0)%> <%=empresas(7,0)%>/ <%=empresas(9,0)%> / | |
