<%@LANGUAGE="VBSCRIPT"%>
<%
'Variables de idiomáticas
' ES castellano
' EN inglés
' EU euskera
' FR francés
' IT italiano
language = "EN"
' Variables de portales
' 1 Bilbao
' 2 Sevilla
Portal = 1
%>
<%
Dim Dicen__MMColParam
Dicen__MMColParam = "0"
if (Request("c") <> "") then Dicen__MMColParam = Request("c")
%>
<%
set Dicen = Server.CreateObject("ADODB.Recordset")
Dicen.ActiveConnection = MM_bpap_STRING
Dicen.Source = "SELECT * FROM tbClientes WHERE ID_Cliente = " + Replace(Dicen__MMColParam, "'", "''") + " AND sCliente_Portal=" & Portal
Dicen.CursorType = 0
Dicen.CursorLocation = 2
Dicen.LockType = 3
Dicen.Open()
Dicen_numRows = 0
%>
Bilbao Paso a Paso :: Lista de Clientes / Links
