%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsdatos__MMColParam
rsdatos__MMColParam = "1"
if (Request.QueryString("Herria") <> "") then rsdatos__MMColParam = Request.QueryString("Herria")
%>
<%
set rsdatos = Server.CreateObject("ADODB.Recordset")
rsdatos.ActiveConnection = MM_directorio_STRING
rsdatos.Source = "SELECT Enpresa, Jarduera, Izena, Abizena, Helbidea, pk, Weborria, Postaelektronikoa, Logotipoa, Ezaugarriak, Telefonoa, Probintza, Herria FROM maileuskara WHERE Herria = '" + Replace(rsdatos__MMColParam, "'", "''") + "' ORDER BY Enpresa 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
%>
Encartaciones
| |
|
|
|
|
|
|
|
Lo sentimos el directorio está en proceso de reprogramación y estará unos dísa sin funcionar.
Sentimos las molestias
Enpresa-direktorioan Eskualdeko enpresa guztiak
daude. Haietako edozein aurkitu ahal izateko bilaketa-irizpide
nagusi bi daude :
Enpresa-direktorio
honi diruz laguntzen diote honako hauek:
|
| |
|
|
|
 |
|
|
<%
rsdatos.Close()
%>