%@LANGUAGE="VBSCRIPT"%> <% set rsdatos = Server.CreateObject("ADODB.Recordset") rsdatos.ActiveConnection = MM_directorio_STRING rsdatos.Source = "SELECT Organizacion, Actividad, Nombre_, Apellidos_, Direccion, CP, Website, Email, Logo, Descripcion, Telefono, Provincia, Ciudad FROM mailinternet ORDER BY Ciudad ASC" rsdatos.CursorType = 0 rsdatos.CursorLocation = 2 rsdatos.LockType = 3 rsdatos.Open() rsdatos_numRows = 0 %> <% var Recordset1 = Server.CreateObject("ADODB.Recordset"); Recordset1.ActiveConnection = MM_empresas_STRING; Recordset1.Source = "SELECT * FROM mailinternet"; Recordset1.CursorType = 0; Recordset1.CursorLocation = 2; Recordset1.LockType = 3; Recordset1.Open(); var Recordset1_numRows = 0; %>
|