Problema con ASP y Ajax

[darkmcloud]

Buenas amigos de foros del web....tengo el siguiente problema.....resulta que tengo un formulario donde mediante ajax utilizo autocompletar para sugerir los modelos de productos que se encuentran almacenados....de ahí todo bien....el problema es que cuando el formulario tiene más de una "línea de venta" no funciona el autocompletar....
Esta es la imagen del formulario:



En este ejemplo...solo para la primera línea.. o sea la del CSR 80200 funciona el autocompletar....pero al seguir con el resto de los registros de abajo (del campo modelo) no funciona.....

Este es el código del formulario:

Ingreso.asp

Código ASP:

<%
 
    if Not IsEmpty(Request("distribuidor")) then
DISTRIBUIDOR = Request("distribuidor")
    end if
 
    if Not IsEmpty(Request("loc")) then
LOC             = Request("loc")
    end if
    
    if Not IsEmpty(Request("guia_d")) then
GUIA_D = Request("guia_d")
    end if
    
    if Not IsEmpty(Request("cod_auto")) then
COD_AUTO = Request("cod_auto")
    end if
    
 
CANTIDAD    =Trim ( cdbl(Request("cantidad")) )
 
CSR_INI        =Trim ( cdbl(Request("csr_ini")) )
 
Actual     = date()
 
Set Cnn = Server.CreateObject( "ADODB.Connection" )
Set RS = Server.CreateObject( "ADODB.Recordset" )
Cnn.Open Session("cnx")
 
strSQL="SELECT distribuidor FROM Distribuidores where idDistribuidor='"&distribuidor&"'"
set rs = Cnn.Execute(strSQL)
 
distribuidor = rs.Fields("distribuidor") 
 
strSQL = "SELECT  ( "&CSR_INI&" + "&CANTIDAD&")-1  as CONTADOR"
set rs= Cnn.Execute(strSQL)
 
%>
<style type="text/css">
<!--
body {
    background-image: url(../inventario/images/2x1900.jpg);
}
-->
 
#contenedor div.seleccionado {font-weight:bold; background:#F0F0F0; color:#black;}
#contenedor div.deseleccionado {background:#FFFFFF; color:#000000;}
#contenedor div{font:11px verdana; color:#000000; cursor:pointer; text-align:left; padding:2px 5px;}
 
.capa {
background: #FFFFFF;
border:1px solid rgb(120,120,120);
width: 150px;
_width: 250px;
text-align: left;
position: absolute;
top: 30px;
_top:38px;
left: 117px;
_left: 119px;
}
</style>
<script type="text/javascript">
var SelUsuario = {
 
Evento: function (elemento,nomevento,funcion) {
  if (elemento.attachEvent)
  {
      var f=function(){
        funcion.call(elemento,window.event);
    }
    elemento.attachEvent('on'+nomevento,f);
    return true;
  }
  else  
    if (elemento.addEventListener)
    {
      elemento.addEventListener(nomevento,funcion,false);
      return true;
    }
    else
      return false;
},
 
 
 
init: function(){
var elem1 = document.getElementById("txt");
var elem2 = document.getElementById("contenedor");
        SelUsuario.Evento(elem1, 'keyup', SelUsuario.Empieza);
        SelUsuario.Evento(elem2, 'mouseover', SelUsuario.Seleccionar);
        SelUsuario.Evento(elem1, 'keydown', SelUsuario.Pegar2);
        SelUsuario.Evento(window, 'click', SelUsuario.Cerrar);
    },
 
 
 
 
creaAjax: function (){
    var ajaxs = ["Msxml2.XMLHTTP","Msxml2.XMLHTTP.4.0","Msxml2.XMLH TTP.5.0","Msxml2.XMLHTTP.3.0","Microsoft.XMLHTTP"];
    var ajax = false;
    for(var i=0 ; !ajax && i<ajaxs.length ; i++){
        try{ 
            ajax = new ActiveXObject(ajaxs[i]);   // Internet Explorer
        }
        catch(e) { 
            ajax = false; 
        }
    }
    if(!ajax && typeof XMLHttpRequest!='undefined') {
        ajax = new XMLHttpRequest();  // Firefox, Opera 8.0+, Safari
    }
    return ajax;
},
 
Empieza: function (ev) {
var str = document.getElementById(this.id).value;
var obj = document.getElementById("contenedor");
var ref = obj.getElementsByTagName('DIV');
var keyCode = document.layers ? ev.which : document.all ? event.keyCode : document.getElementById ? ev.keyCode : 0;
 
 
 if (keyCode == 40) {
//alert("flecha abajo")
    SelUsuario.BajaOpt ()
 } else if (keyCode == 38) {
//alert("flecha arriba")
    SelUsuario.SubeOpt ()
 
 
 
 
} else if (keyCode == 13) {
 
for (var i = 0; i <= ref.length-1; i++) {
if (ref[i].className == "seleccionado") { 
 
        document.getElementById("txt").value = ref[i].id;
        if (obj.style.display == "block"); obj.style.display= "none";
        break;
        }
 
    }
 
    try{ // DOM;
        ev.preventDefault();
        }catch(e){ // iexplore;
        ev.returnValue = false;
        }
 
} else {
 
    if (str.length < 2) { 
        //obj.innerHTML = "";
        if (obj.style.display == "none")  obj.style.display= "none";
                else obj.style.display= "none"; 
        return;
    }
    ajax = SelUsuario.creaAjax()
    if (ajax==null) {
        alert ("Tu navegador no soporta Ajax");
        return;
     } 
var url="sugest/SelecUsuarios.asp?q="+escape(str);
    ajax.open("GET",url,true);
    ajax.onreadystatechange = SelUsuario.Despliega;
    //ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
            ajax.send(null);
            return
}
},
 
 
 
Despliega: function () { 
var obj = document.getElementById("contenedor");
    
        if (ajax.readyState==1 || ajax.readyState==2 || ajax.readyState==3) {
                                        obj.innerHTML = "<p align='center'><img src='../images/cargando.gif' border='0px' widht='15px' height='15px'/></p>";
            obj.style.display= "block";
                }
 
                else if (ajax.readyState==4) {
            if (ajax.status==200) {
            obj.innerHTML = unescape(ajax.responseText);
 
            }else {
                                    obj.innerHTML = "<p>Se ha producido un error</p>";
            }
 
        if (obj.style.display == "none")  obj.style.display= "block";
        }
},
 
 
 
Seleccionar: function () {
var ref = document.getElementById(this.id).getElementsByTagName('DIV');
//alert(ref);
for (var i = 0; i < ref.length; i++) {
 
SelUsuario.Evento(ref[i], 'click', function() {
SelUsuario.Pegar(this.id);
//alert(this.id);
})   
 
 
SelUsuario.Evento(ref[i], 'mouseover',  function() {
SelUsuario.Marcar(this.id);
})
 
//SelUsuario.Evento(ref[i], 'mouseout',  function() {
//SelUsuario.DesMarcar(this.id);
//})
}
},
 
 
 
Pegar: function (valor) {
//alert("el val " +valor);
var obj = document.getElementById("contenedor")
        document.getElementById("txt").value = valor;
                if (obj.style.display == "block"); obj.style.display= "none";       
},
 
 
Pegar2: function (ev) {
var obj = document.getElementById("contenedor")
var ref = obj.getElementsByTagName('DIV');
var keyCode = document.layers ? ev.which : document.all ? event.keyCode : document.getElementById ? ev.keyCode : 0;
 
// enter 13 tab 9
if ((keyCode == 13) || (keyCode == 9)) {
//alert("enter")
 
for (var i = 0; i <= ref.length-1; i++) {
if (ref[i].className == "seleccionado") { 
 
        document.getElementById("txt").value = ref[i].id;
        //window.focus();
        if (obj.style.display == "block"); obj.style.display= "none";
break;
//alert(ref[i].id);
 
 
}
}
 
if (keyCode == 13) {
    try{ // DOM;
        ev.preventDefault();
        }catch(e){ // iexplore;
        ev.returnValue = false;
        }
}
 
 
}   
},
 
 
 
 
 
BajaOpt: function() {
var ref = document.getElementById("contenedor").getElementsByTagName('DIV');
for (var i = 0; i <= ref.length-1; i++) {
if (ref[i].className == "seleccionado") { 
ref[i].className = "deseleccionado";
if (i < ref.length-1){
i++;
}else{
i = 0;
}
//alert("Largo: " +(ref.length-1)+ " Valor: " +i);
ref[i].className = "seleccionado"
}
}
},
 
 
SubeOpt: function() {
var ref = document.getElementById("contenedor").getElementsByTagName('DIV');
for (var i = 0; i <= ref.length-1; i++) {
if (ref[i].className == "seleccionado") { 
ref[i].className = "deseleccionado";
if (i < ref.length && i > 0){
i--;
}else{
i = ref.length-1;
}
//alert("Largo: " +(ref.length-1)+ " Valor: " +i);
ref[i].className = "seleccionado"
}
}
},
 
 
 
Marcar: function (id) {
var selecionado = document.getElementById(id);
var ref = document.getElementById("contenedor").getElementsByTagName('DIV');
for (var i = 0; i <= ref.length-1; i++) {
if (ref[i].id != id) { 
ref[i].className = "deseleccionado";
selecionado.className = "seleccionado";
} 
}
},
 
//DesMarcar: function (id) {
//var ref = document.getElementById(id);
//alert(ref);
//ref.className = "deseleccionado"
//alert("el " +id);         
//},
 
 
Cerrar: function () {   
var obj = document.getElementById("contenedor")
            if (obj.style.display == "block"); obj.style.display= "none";   
    
}
}
 
SelUsuario.Evento(window, 'load', SelUsuario.init); 
</script> 
<form>
<table width="430" height="103" border="1" align="center" bordercolor="#0000FF">
<tr>
<td width="213"><p>Distribuidor: <%=response.write (""&DISTRIBUIDOR&"") %></p>
<p>Local: <%=response.write (""&LOC&"") %></p>
<p>Fecha: <%=response.write (""&ACTUAL&"") %></p></td>
<td width="130"><p>Gu&iacute;a de Despacho </p><p>N&ordm;: <%=response.write (""&GUIA_D&"") %></p></td>
</tr>
</table>
<p align="center">&nbsp;</p>
 
<%For cuen = ""&CSR_INI&"" To ""&rs("CONTADOR")&"" Step 1%>
<table width="351" border="1" align="center" bordercolor="#0000FF">
 
<tr>
<td>Sel</td>   
<td width="36">Csr:</td>
<td width="70">Modelo:</td>
<td width="47">Serie:</td>
<td width="170">Comentarios:</td>
</tr>
<tr>
<td width="21"><input type="checkbox" name="cod" value="" tabindex="1" ></td> 
<td height="55"><input name="csr" readonly="readonly" size="3" value=<%=response.write (""&cuen&"") %> tabindex="2"></td>
<td><input type="text" name="txt" id="txt" value="" autocomplete="off" tabindex="3"></td>
<div id="contenedor" class="capa" class="vink" style="margin:5px 0px 0px 10px">
<div id="contenedor" class="capa" style="display:none;"></div></div> 
 
<td><input  name="serie" tabindex="4"></td>
<td><textarea name="comentarios" cols="30" rows="3" wrap="VIRTUAL" tabindex="5"></textarea></td>
</tr>
 
</table>
<%next%>
<p align="center">&nbsp;</p>
</form>
 

[darkmcloud]

Y este es el que extrae los valores de la base de datos:

SelecUsuarios.asp

Código ASP:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%' Option Explicit %>
<% Response.Buffer=True %>
<% On Error Resume Next %>
<%Response.charset="utf-8"%>
<%
Response.addHeader "pragma", "no-cache"
Response.CacheControl = "Private"
Response.Expires = -1000
%>
<%
Dim SQL, rs, oConn, registros, i
Dim usuario
Dim nombre
nombre = 0
usuario = CStr(Request.QueryString("q"))
 
 
IF Len(usuario) >= 2 then
' CONEXIÓN
 
set Cnn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject ("ADODB.Recordset")
Cnn.Open Session("cnx")
SQL="SELECT DISTINCT ARTEFACTO FROM TBLCLIENTE where artefacto LIKE '"&usuario&"%' ORDER BY ARTEFACTO"
set rs = Cnn.Execute(SQL)
If not rs.eof then
registros = rs.getrows()
Else
Response.Write "<p class=""deseleccionado""><strong>Sin resultados</strong></p>"
Response.End ()
End If
rs.Close
set rs = nothing
Cnn.Close
set oConn = nothing
END IF
 
For i = 0 to Ubound(registros,2)
If i = 0 then
Response.Write "<div id="""& registros(nombre,i) &""" class=""seleccionado"">"& ResaltarSubStr(registros(nombre,i)) & "</div>"
Else
Response.Write "<div id="""& registros(nombre,i) &""" class="""">" & ResaltarSubStr(registros(nombre,i)) & "</div>"
End If
Next
 
 
' ========= Funciones ===========
Function ResaltarSubStr(texto)
Dim objRegExp
 
Set objRegExp= New RegExp
objRegExp.IgnoreCase = True
'objRegExp.Global = True
 
objRegExp.Pattern = "\b("&usuario&")+(\w)"
texto = objRegExp.Replace(texto, "<strong>$1</strong>$2")
 
Set objRegExp = Nothing
 
ResaltarSubStr = texto
 
End Function
' ========= Fin Funciones ===========
%>
 

Eso....de antemano muchas gracias

[Adler]

Hola

¿De qué me suena ese script?
Bueno le has añadido unos cuantos de campos más, no había pensado en ello, tendría que revisar el código, pero así a simple vista creo que lo que tendrías que hacer es modificar la función init, para sacar todos los campos. Es más bien un problema de javascript. Dame algo de tiempo e intento solucionarlo

Suerte

[darkmcloud]

Quizás de donde sera........jejejeje

Hojalá le puedas encontrar la solución Adler....o alguien más del foro....

Agradezco de antemano tu buena disposición para responder mis consultas....
Hasta pronto

[Adler]

Hola

Veamos si funciona

Has de modificar el HTML, te marco en negrita lo que has de modificar, si te fijas, usando el ciclo, le he puesto una id a la tabla, al input y div, ... alguna otra cosa también he modificado

<form>
<table width="351" border="1" align="center" bordercolor="#0000FF" id="idt_1">
<tr>
<td>Sel</td>
<td width="36">Csr:</td>
<td width="70">Modelo:</td>
<td width="47">Serie:</td>
<td width="170">Comentarios:</td>
</tr>
<tr>
<td width="21"><input type="checkbox" name="cod" value="" tabindex="1" ></td>
<td height="55"><input type="text" name="csr" readonly="readonly" size="3" value="2345" tabindex="2"></td>
<td><input type="text" name="txt" id="txt_1" value="" autocomplete="off" tabindex="3"></td>
<div class="capa" class="vink" style="margin:5px 0px 0px 10px">
<div id="txt_1_contenedor" class="capa" style="display:none;"></div></div>
<td><input type="text" name="serie" tabindex="4"></td>
<td><textarea name="comentarios" cols="30" rows="3" wrap="VIRTUAL" tabindex="5"></textarea></td>
</tr>
</table>

<table width="351" border="1" align="center" bordercolor="#0000FF" id="idt_2">
<tr>
<td>Sel</td>
<td width="36">Csr:</td>
<td width="70">Modelo:</td>
<td width="47">Serie:</td>
<td width="170">Comentarios:</td>
</tr>
<tr>
<td width="21"><input type="checkbox" name="cod" value="" tabindex="1" ></td>
<td height="55"><input name="csr" readonly="readonly" size="3" value="2346" tabindex="2"></td>
<td><input type="text" name="txt" id="txt_2" value="" autocomplete="off" tabindex="3"></td>
<div class="capa" class="vink" style="margin:5px 0px 0px 10px">
<div id="txt_2_contenedor" class="capa" style="display:none;"></div></div>
<td><input name="serie" tabindex="4"></td>
<td><textarea name="comentarios" cols="30" rows="3" wrap="VIRTUAL" tabindex="5"></textarea></td>
</tr>
</table>
</form>

Ahora vamos al js

Te modifico la función init(). Fijate que elem1 y elem2 han pasado a ser inpt[2].id y inpt[2]_contenedor. El subindice 2 es la posición que ocupa el textbox con respecto al form que lo contiene

Código Javascript:

init: function(){
tablas = document.body.getElementsByTagName('table');
for (i=0; i < tablas.length; i++) {
inpt = tablas[i].getElementsByTagName('input');
        SelUsuario.Evento(inpt[2].id, 'keyup', SelUsuario.Empieza);
        SelUsuario.Evento(inpt[2].id+ '_contenedor', 'mouseover', SelUsuario.Seleccionar);
        SelUsuario.Evento(inpt[2].id, 'keydown', SelUsuario.Pegar2);
        SelUsuario.Evento(window, 'click', SelUsuario.Cerrar);
}
    },
 

En la demás funciones, donde aparece

document.getElementById('contenedor'); cambialo por document.getElementById(this.id+'_contenedor');

y donde aparece

document.getElementById('txt') cambilo por document.getElementById(this.id);

Suerte

[darkmcloud]

Primero que todo gracias Adler por la pronta respuesta.
El problema es que yo dibujo las filas mediante un ciclo FOR....que de acuerdo a la cantidad solicitada, se despliegan en pantalla las filas necesarias me entiendes ?
Entonces con el código que me diste no aparece el ciclo FOR sino que dibujas dos tablas donde el campo que utiliza el autocompletar lo renombras como

id="txt_1"

y

id="txt_2"

Que podré hacer entonces ??

De antemano nuevamente gracias por tu tiempo y tu respuesta.

[Adler]

Hola

Iniciado por darkmcloud

Primero que todo gracias Adler por la pronta respuesta.
El problema es que yo dibujo las filas mediante un ciclo FOR....que de acuerdo a la cantidad solicitada, se despliegan en pantalla las filas necesarias me entiendes ?

Es justamente lo que te comentaba. Usa el ciclo para darle una id distinta a cada tabla y a cada textbox. ¿O no he entendido cual es el problema? Ya dirás algo

Suerte

[darkmcloud]

Perdón por la ignorancia pero como hago para darle una id distinta a cada tabla y cada textbox?

Bueno, mejor creo que no existen preguntas tontas.....sino tontos que no preguntan......jejeje

Gracias nuevamente

[Adler]

Hola

Así, usando el ciclo

<%For cuen = ""&CSR_INI&"" To ""&rs("CONTADOR")&"" Step 1%>
<table width="351" border="1" align="center" bordercolor="#0000FF" id="idt_<%=cuen%>">
<tr>
<td>Sel</td>
<td width="36">Csr:</td>
<td width="70">Modelo:</td>
<td width="47">Serie:</td>
<td width="170">Comentarios:</td>
</tr>
<tr>
<td width="21"><input type="checkbox" name="cod" value="" tabindex="1" ></td>
<td height="55"><input type="text" name="csr" readonly="readonly" size="3" value=<%=cuen%> tabindex="2"></td>
<td><input type="text" name="txt" id="txt_<%=cuen%>" value="" autocomplete="off" tabindex="3"></td>
<div id="contenedor_<%=cuen%>" class="capa" style="display:none;"></div></div>
<td><input type="text" name="serie" tabindex="4"></td>
<td><textarea name="comentarios" cols="30" rows="3" wrap="VIRTUAL" tabindex="5"></textarea></td>
</tr>
</table>
<%next%>

Suerte

[darkmcloud]

Aqui estamos de nuevo Adler....

Hice todas las modificaciones que me dijiste pero ahora me aparece un error en el navegador que dice lo siguiente:

Mensaje: 'inpt.2.id' es nulo o no es un objeto
Línea: 54
Carácter: 9
Código: 0
URI: http://localhost/bodega2/for.asp

En esa linea esta esto:

SelUsuario.Evento(inpt[2].id, 'keyup', SelUsuario.Empieza);

Aquí está el código con todas las modificaciones que me dijiste que hiciera:

Código ASP:

<%@ Language=VBScript %>
<% Response.addHeader " ", "no-cache" %>
<% Response.CacheControl = "Private" %>
<% Response.Expires=0 %>
<%  
CANTIDAD    =Trim ( cdbl(Request("cantidad")) )
 
CSR_INI     =Trim ( cdbl(Request("csr_ini")) )
 
Actual  = date()
 
Set Cnn = Server.CreateObject( "ADODB.Connection" )
Set RS = Server.CreateObject( "ADODB.Recordset" )
Cnn.Open Session("cnx")
 
strSQL="SELECT distribuidor FROM Distribuidores where idDistribuidor='"&distribuidor&"'"
set rs = Cnn.Execute(strSQL)
 
distribuidor = rs.Fields("distribuidor") 
 
strSQL = "SELECT  ( "&CSR_INI&" + "&CANTIDAD&")-1  as CONTADOR"
set rs= Cnn.Execute(strSQL)
 
%>
<style type="text/css">
<!--
body {
    background-image: url(../inventario/images/2x1900.jpg);
}
-->
#contenedor div.seleccionado {font-weight:bold; background:#F0F0F0; color:#black;}
#contenedor div.deseleccionado {background:#FFFFFF; color:#000000;}
#contenedor div{font:11px verdana; color:#000000; cursor:pointer; text-align:left; padding:2px 5px;}
 
.capa {
background: #FFFFFF;
border:1px solid rgb(120,120,120);
width: 150px;
_width: 250px;
text-align: left;
position: absolute;
top: 30px;
_top:38px;
left: 117px;
_left: 119px;
}
</style>
<script type="text/javascript">
var SelUsuario = {
 
Evento: function (elemento,nomevento,funcion) {
  if (elemento.attachEvent)
  {
      var f=function(){
        funcion.call(elemento,window.event);
    }
    elemento.attachEvent('on'+nomevento,f);
    return true;
  }
  else  
    if (elemento.addEventListener)
    {
      elemento.addEventListener(nomevento,funcion,false);
      return true;
    }
    else
      return false;
},
 
 
init: function(){
tablas = document.body.getElementsByTagName('table');
for (i=0; i < tablas.length; i++) {
inpt = tablas[i].getElementsByTagName('input');
        SelUsuario.Evento(inpt[2].id, 'keyup', SelUsuario.Empieza);
        SelUsuario.Evento(inpt[2].id+ '_contenedor', 'mouseover', SelUsuario.Seleccionar);
        SelUsuario.Evento(inpt[2].id, 'keydown', SelUsuario.Pegar2);
        SelUsuario.Evento(window, 'click', SelUsuario.Cerrar);
}
    }, 
 
 
 
creaAjax: function (){
    var ajaxs = ["Msxml2.XMLHTTP","Msxml2.XMLHTTP.4.0","Msxml2.XMLH TTP.5.0","Msxml2.XMLHTTP.3.0","Microsoft.XMLHTTP"];
    var ajax = false;
    for(var i=0 ; !ajax && i<ajaxs.length ; i++){
        try{ 
            ajax = new ActiveXObject(ajaxs[i]);   // Internet Explorer
        }
        catch(e) { 
            ajax = false; 
        }
    }
    if(!ajax && typeof XMLHttpRequest!='undefined') {
        ajax = new XMLHttpRequest();  // Firefox, Opera 8.0+, Safari
    }
    return ajax;
},
 
Empieza: function (ev) {
var str = document.getElementById(this.id).value;
var obj = document.getElementById(this.id+'_contenedor');
var ref = obj.getElementsByTagName('DIV');
var keyCode = document.layers ? ev.which : document.all ? event.keyCode : document.getElementById ? ev.keyCode : 0;
 
 
 if (keyCode == 40) {
//alert("flecha abajo")
    SelUsuario.BajaOpt ()
 } else if (keyCode == 38) {
//alert("flecha arriba")
    SelUsuario.SubeOpt ()
 
 
 
 
} else if (keyCode == 13) {
 
for (var i = 0; i <= ref.length-1; i++) {
if (ref[i].className == "seleccionado") { 
 
        document.getElementById(this.id).value = ref[i].id;
        if (obj.style.display == "block"); obj.style.display= "none";
        break;
        }
 
    }
 
    try{ // DOM;
        ev.preventDefault();
        }catch(e){ // iexplore;
        ev.returnValue = false;
        }
 
} else {
 
    if (str.length < 2) { 
        //obj.innerHTML = "";
        if (obj.style.display == "none")  obj.style.display= "none";
                else obj.style.display= "none"; 
        return;
    }
    ajax = SelUsuario.creaAjax()
    if (ajax==null) {
        alert ("Tu navegador no soporta Ajax");
        return;
     } 
var url="sugest/SelecUsuarios.asp?q="+escape(str);
    ajax.open("GET",url,true);
    ajax.onreadystatechange = SelUsuario.Despliega;
    //ajax.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
            ajax.send(null);
            return
}
},
 
 
 
Despliega: function () { 
var obj = document.getElementById(this.id+'_contenedor');
    
        if (ajax.readyState==1 || ajax.readyState==2 || ajax.readyState==3) {
                                        obj.innerHTML = "<p align='center'><img src='../images/cargando.gif' border='0px' widht='15px' height='15px'/></p>";
            obj.style.display= "block";
                }
 
                else if (ajax.readyState==4) {
            if (ajax.status==200) {
            obj.innerHTML = unescape(ajax.responseText);
 
            }else {
                                    obj.innerHTML = "<p>Se ha producido un error</p>";
            }
 
        if (obj.style.display == "none")  obj.style.display= "block";
        }
},
 
Seleccionar: function () {
var ref = document.getElementById(this.id).getElementsByTagName('DIV');
//alert(ref);
for (var i = 0; i < ref.length; i++) {
 
SelUsuario.Evento(ref[i], 'click', function() {
SelUsuario.Pegar(this.id);
//alert(this.id);
})   
 
 
SelUsuario.Evento(ref[i], 'mouseover',  function() {
SelUsuario.Marcar(this.id);
})
 
//SelUsuario.Evento(ref[i], 'mouseout',  function() {
//SelUsuario.DesMarcar(this.id);
//})
}
},
 
 
 
Pegar: function (valor) {
//alert("el val " +valor);
var obj = document.getElementById(this.id+'_contenedor')
        document.getElementById(this.id).value = valor;
                if (obj.style.display == "block"); obj.style.display= "none";       
},
 
 
Pegar2: function (ev) {
var obj = document.getElementById(this.id+'_contenedor')
var ref = obj.getElementsByTagName('DIV');
var keyCode = document.layers ? ev.which : document.all ? event.keyCode : document.getElementById ? ev.keyCode : 0;
 
// enter 13 tab 9
if ((keyCode == 13) || (keyCode == 9)) {
//alert("enter")
 
for (var i = 0; i <= ref.length-1; i++) {
if (ref[i].className == "seleccionado") { 
 
        document.getElementById(this.id).value = ref[i].id;
        //window.focus();
        if (obj.style.display == "block"); obj.style.display= "none";
break;
//alert(ref[i].id);
 
 
}
}
 
if (keyCode == 13) {
    try{ // DOM;
        ev.preventDefault();
        }catch(e){ // iexplore;
        ev.returnValue = false;
        }
}
 
 
}   
},
 
 
BajaOpt: function() {
var ref = document.getElementById(this.id+'_contenedor').getElementsByTagName('DIV');
for (var i = 0; i <= ref.length-1; i++) {
if (ref[i].className == "seleccionado") { 
ref[i].className = "deseleccionado";
if (i < ref.length-1){
i++;
}else{
i = 0;
}
//alert("Largo: " +(ref.length-1)+ " Valor: " +i);
ref[i].className = "seleccionado"
}
}
},
 
 
SubeOpt: function() {
var ref = document.getElementById(this.id+'_contenedor').getElementsByTagName('DIV');
for (var i = 0; i <= ref.length-1; i++) {
if (ref[i].className == "seleccionado") { 
ref[i].className = "deseleccionado";
if (i < ref.length && i > 0){
i--;
}else{
i = ref.length-1;
}
//alert("Largo: " +(ref.length-1)+ " Valor: " +i);
ref[i].className = "seleccionado"
}
}
},
  
Marcar: function (id) {
var selecionado = document.getElementById(id);
var ref = document.getElementById(this.id+'_contenedor').getElementsByTagName('DIV');
for (var i = 0; i <= ref.length-1; i++) {
if (ref[i].id != id) { 
ref[i].className = "deseleccionado";
selecionado.className = "seleccionado";
} 
}
},
 
//DesMarcar: function (id) {
//var ref = document.getElementById(id);
//alert(ref);
//ref.className = "deseleccionado"
//alert("el " +id);         
//},
 
 
Cerrar: function () {   
var obj = document.getElementById(this.id+'_contenedor')
            if (obj.style.display == "block"); obj.style.display= "none";   
    
}
}
 
SelUsuario.Evento(window, 'load', SelUsuario.init); 
</script> 
<form>
<table width="430" height="103" border="1" align="center" bordercolor="#0000FF">
<tr>
<td width="213"><p>Distribuidor: <%=response.write (""&DISTRIBUIDOR&"") %></p>
<p>Local: <%=response.write (""&LOC&"") %></p>
<p>Fecha: <%=response.write (""&ACTUAL&"") %></p></td>
<td width="130"><p>Gu&iacute;a de Despacho </p><p>N&ordm;: <%=response.write (""&GUIA_D&"") %></p></td>
</tr>
</table>
<p align="center">&nbsp;</p>
<%For cuen = ""&CSR_INI&"" To ""&rs("CONTADOR")&"" Step 1%>
<table width="351" border="1" align="center" bordercolor="#0000FF" id="idt_<%=cuen%>">
<tr>
<td>Sel</td> 
<td width="36">Csr:</td>
<td width="70">Modelo:</td>
<td width="47">Serie:</td>
<td width="170">Comentarios:</td>
</tr>
<tr>
<td width="21"><input type="checkbox" name="cod" value="" tabindex="1" ></td>
<td height="55"><input type="text" name="csr" readonly="readonly" size="3" value=<%=cuen%> tabindex="2"></td>
<td><input type="text" name="txt" id="txt_<%=cuen%>" value="" autocomplete="off" tabindex="3"></td>
<div id="contenedor_<%=cuen%>" class="capa" style="display:none;"></div></div> 
<td><input type="text" name="serie" tabindex="4"></td>
<td><textarea name="comentarios" cols="30" rows="3" wrap="VIRTUAL" tabindex="5"></textarea></td>
</tr>
</table>
<%next%>
<p align="center">&nbsp;</p>
</form>
 

De antemano muchas gracias

[Adler]

Hola

Se me paso, prueba ahora

SelUsuario.Evento(document.getElementById(inpt[2].id), 'keyup', SelUsuario.Empieza);

a los demás los llamas igual

Suerte

[darkmcloud]

Sigue dando error en la misma linea Adler.....asi deje la funcion:

init: function(){
tablas = document.body.getElementsByTagName('table');
for (i=0; i < tablas.length; i++) {
inpt = tablas[i].getElementsByTagName('input');

SelUsuario.Evento(document.getElementById(inpt[2].id), 'keyup', SelUsuario.Empieza);
SelUsuario.Evento(inpt[2].id+ '_contenedor', 'mouseover', SelUsuario.Seleccionar);
SelUsuario.Evento(inpt[2].id, 'keydown', SelUsuario.Pegar2);
SelUsuario.Evento(window, 'click', SelUsuario.Cerrar);
}
},

No quise modificar los demás porque sigue dando error en la misma linea.

De antemano muchas gracias

[darkmcloud]

Y alguna solucion Adler o alguien por favor ???

[Adler]

Hola

Ten paciencia, hay mas cosas aparte de esto

Se podría optimizar, pero ya me canse

Código Javascript:

<STYLE TYPE="text/css">
#contenedorOpt div.seleccionado {font-weight:bold; background:#F0F0F0; color:#FF6600;}
#contenedorOpt div.deseleccionado {background:#FFFFFF; color:#000000;}
#contenedorOpt div {font:11px verdana; color:#000000; cursor:pointer; text-align:left; padding:2px 5px;}
 
.capa {
background: #FFFFFF;
border:1px solid rgb(120,120,120);
width: 144px;
_width: 146px;
text-align: left;
position: absolute;
}
</STYLE>
<script type="text/javascript">
var ns4 = (document.layers)? true:false
var ie4 = (document.all)? true:false
var ns6 = (document.getElementById)? true:false
var TxtId = '';
 
var SelUsuario = {
 
captura_objeto : function(idnombre) {
    if (ns6) {
        return document.getElementById(idnombre);
    }else if (ie4){
        return document.all[idnombre];
    }else if (ns4){
        return document.layers[idnombre];
    }else{
        return null;
    }
},
 
 
Evento: function (elemento,nomevento,funcion) {
    if (elemento.attachEvent) {
            var f=function() {
                funcion.call(elemento,window.event);
            }
            elemento.attachEvent('on'+nomevento,f);
            return true;
    } else if (elemento.addEventListener) {
            elemento.addEventListener(nomevento,funcion,false);
            return true;
        }else{
            return false;
    }
},
 
 
creaAjax: function (){
var ajaxs = ["Msxml2.XMLHTTP","Msxml2.XMLHTTP.4.0","Msxml2.XMLH TTP.5.0","Msxml2.XMLHTTP.3.0","Microsoft.XMLHTTP"];
var ajax = false;
    for(var i=0 ; !ajax && i<ajaxs.length ; i++){
        try{ 
            ajax = new ActiveXObject(ajaxs[i]);   // Internet Explorer
        }
        catch(e) { 
            ajax = false; 
        }
    }
    if(!ajax && typeof XMLHttpRequest!='undefined') {
        ajax = new XMLHttpRequest();  // Firefox, Opera 8.0+, Safari
    }
    return ajax;
},
 
 
init: function(){
var tablas = document.body.getElementsByTagName('table');
    for (i=0; i < tablas.length; i++) {
        var inpt = tablas[i].getElementsByTagName('input');
                SelUsuario.Evento(SelUsuario.captura_objeto(inpt[2].id), 'keyup', SelUsuario.Empieza);
                SelUsuario.Evento(SelUsuario.captura_objeto('contenedorOpt'), 'mouseover', SelUsuario.Seleccionar);
            SelUsuario.Evento(SelUsuario.captura_objeto(inpt[2].id), 'keydown', SelUsuario.Pegar2);
                SelUsuario.Evento(SelUsuario.captura_objeto(inpt[2].id), 'blur', SelUsuario.Cerrar);
    }
},
 
 
 
PosicionAbsolutaElemento: function(elTxtBox)  {
    if (typeof elTxtBox == "string")
        var elTxtBox = SelUsuario.captura_objeto(elTxtBox);
            if (!elTxtBox) return { top:0,left:0 };
        var y = 0;
        var x = 0;
            while (elTxtBox.offsetParent) {
                    x += elTxtBox.offsetLeft;
                    y += elTxtBox.offsetTop;
                elTxtBox = elTxtBox.offsetParent;
            }
        return {top:y,left:x};
 
},
 
 
Desplieaga: function(posLeft,posTop) {
var elDiv = SelUsuario.captura_objeto('contenedorOpt');
    elDiv.style.left = posLeft+'px';
    elDiv.style.top = parseInt(posTop+21) +'px';
            elDiv.style.display = 'block';
    elDiv.style.zIndex = 100;
},
 
 
Empieza: function (ev) {
TxtId = SelUsuario.captura_objeto(this.id).id;
var elTxtBox = SelUsuario.captura_objeto(this.id);
var str = elTxtBox.value;
var elDiv = SelUsuario.captura_objeto('contenedorOpt');
var opt = elDiv.getElementsByTagName('DIV');
var keyCode = document.layers ? ev.which : document.all ? event.keyCode : document.getElementById ? ev.keyCode : 0;
 
    if (keyCode == 40) {
        SelUsuario.BajaOpt ('contenedorOpt')
    }else if (keyCode == 38) {
        SelUsuario.SubeOpt ('contenedorOpt')
    }else if (keyCode == 13) {
 
        for (var i = 0; i <= opt.length-1; i++) {
 
            if (opt[i].className == "seleccionado") { 
                str = opt[i].id;
                if (elDiv.style.display == "block"); elDiv.style.display= "none";
        break;
                }
            }
 
        try{ // DOM;
            ev.preventDefault();
        }catch(e){ // iexplore;
            ev.returnValue = false;
        }
    } else {
 
        if (str.length < 2) { 
            if (elDiv.style.display == "none")  elDiv.style.display= "none";
                    else elDiv.style.display= "none";   
            return;
        }
        ajax = SelUsuario.creaAjax()
 
        if (ajax==null) {
            alert ("Tu navegador no soporta Ajax");
            return;
        } 
 
var url="SelecUsuarios.php?q="+escape(str);
ajax.open("GET",url,true);
ajax.onreadystatechange = function () { 
var PosElemento = SelUsuario.PosicionAbsolutaElemento(elTxtBox);
var posicionInicialLeft = parseInt(PosElemento.left);
var posicionInicialTop = parseInt(PosElemento.top);
 
        if (ajax.readyState==1 || ajax.readyState==2 || ajax.readyState==3) {
                                        elDiv.innerHTML = "<p align='center'><img src='precarga.gif' border='0px' widht='15px' height='15px'/></p>";
            elDiv.style.display= "block";
 
                }else if (ajax.readyState==4) {
            if (ajax.status==200) {
                elDiv.innerHTML = unescape(ajax.responseText);
            }else {
                                        elDiv.innerHTML = "<p>Se ha producido un error</p>";
            }
 
        if (elDiv.style.display == "none")  elDiv.style.display= "block";
        }
    SelUsuario.Desplieaga(posicionInicialLeft, posicionInicialTop);
    }
            ajax.send(null);
            return
}
},
 
 
Seleccionar: function () {
var opt = SelUsuario.captura_objeto('contenedorOpt').getElementsByTagName('DIV');
    for (var i = 0; i < opt.length; i++) {
        SelUsuario.Evento(opt[i], 'click', function() {SelUsuario.Pegar(this.id);})   
        SelUsuario.Evento(opt[i], 'mouseover',  function() {SelUsuario.Marcar(this.id);})
    }
},
 
 
 
Pegar: function (valor) {
var elDiv = SelUsuario.captura_objeto('contenedorOpt')
    SelUsuario.captura_objeto(TxtId).value = valor;
            if (elDiv.style.display == "block"); elDiv.style.display= "none";       
},
 
 
 
Marcar: function (valor) {
var selecionado = SelUsuario.captura_objeto(valor);
var opt = SelUsuario.captura_objeto('contenedorOpt').getElementsByTagName('DIV');
    for (var i = 0; i < opt.length; i++) {
        if (opt[i].className == "seleccionado") { 
            opt[i].className = "deseleccionado";
            selecionado.className = "seleccionado";
    break;
        } 
    }
},
 
 
Pegar2: function (ev) {
var elDiv = SelUsuario.captura_objeto('contenedorOpt')
var opt = elDiv.getElementsByTagName('DIV');
var keyCode = document.layers ? ev.which : document.all ? event.keyCode : document.getElementById ? ev.keyCode : 0;
 
    if ((keyCode == 13) || (keyCode == 9)) {
        for (var i = 0; i <= opt.length-1; i++) {
            if (opt[i].className == "seleccionado") { 
                SelUsuario.captura_objeto(this.id).value = opt[i].id;
                if (elDiv.style.display == "block"); elDiv.style.display= "none";
                    break;
            }
        }
 
        if (keyCode == 13) {
            try{ // DOM;
                ev.preventDefault();
            }catch(e){ // iexplore;
                ev.returnValue = false;
            }
        }
    }   
},
 
 
 
BajaOpt: function() {
var opt = SelUsuario.captura_objeto('contenedorOpt').getElementsByTagName('DIV');
    for (var i = 0; i <= opt.length-1; i++) {
        if (opt[i].className == "seleccionado") { 
            opt[i].className = "deseleccionado";
            if (i < opt.length-1){
                i++;
            }else{
                i = 0;
            }
            opt[i].className = "seleccionado"
        }
    }
},
 
 
SubeOpt: function() {
var opt = SelUsuario.captura_objeto('contenedorOpt').getElementsByTagName('DIV');
    for (var i = 0; i <= opt.length-1; i++) {
        if (opt[i].className == "seleccionado") { 
            opt[i].className = "deseleccionado";
            if (i < opt.length && i > 0){
                i--;
            }else{
                i = opt.length-1;
            }
            opt[i].className = "seleccionado"
        }
    }
},
 
 
Cerrar: function () {
setTimeout("var elDiv = SelUsuario.captura_objeto('contenedorOpt'); if (elDiv.style.display == 'block'); elDiv.style.display= 'none';", 1000);
}
 
}
SelUsuario.Evento(window, 'load', SelUsuario.init); 
</script>
 

En el HTML tendrás que hacer algunos cambios, nada de importancia, te los marco

<form method="post" action="">

<table width="351" border="1" align="center" bordercolor="#0000FF" id="idt_1">
<tr>
<td>Sel</td>
<td width="36">Csr:</td>
<td width="70">Modelo:</td>
<td width="47">Serie:</td>
<td width="170">Comentarios:</td>
</tr>
<tr>
<td width="21"><input type="checkbox" name="cod" value="" tabindex="1" ></td>
<td height="55"><input type="text" name="csr" readonly="readonly" size="3" value="2345" tabindex="2"></td>
<td>Nombre Usuario: <input type="text" name="txt" id="txt1" value="" autocomplete="off" tabindex="3"></td>
<td><input type="text" name="serie" tabindex="4"></td>
<td><textarea name="comentarios" cols="30" rows="3" wrap="VIRTUAL" tabindex="5"></textarea></td>
</tr>
</table>

<table width="351" border="1" align="center" bordercolor="#0000FF" id="idt_2">
<tr>
<td>Sel</td>
<td width="36">Csr:</td>
<td width="70">Modelo:</td>
<td width="47">Serie:</td>
<td width="170">Comentarios:</td>
</tr>
<tr>
<td width="21"><input type="checkbox" name="cod" value="" tabindex="1" ></td>
<td height="55"><input type="text" name="csr" readonly="readonly" size="3" value="2345" tabindex="2"></td>
<td>Nombre Usuario: <input type="text" name="txt" id="txt2" value="" autocomplete="off" tabindex="3"></td>
<td><input type="text" name="serie" tabindex="4"></td>
<td><textarea name="comentarios" cols="30" rows="3" wrap="VIRTUAL" tabindex="5"></textarea></td>
</tr>
</table>

<div id="contenedorOpt" class="capa" style="display:none;"></div>
</form>

Suerte

[darkmcloud]

Primero que todo muxas gracias por tu paciencia Adler....

Hice algunas modificaciones para que las filas crecieran mediante el FOR que dijimos en los mensajes anteriores dejandolo asi:

Código ASP:

<form method="post" action="">
 
 
<table width="430" height="103" border="1" align="center" bordercolor="#0000FF" id="idt_1">
<tr>
<td width="213"><p>Distribuidor: <%=response.write (""&DISTRIBUIDOR&"") %></p>
<p>Local: <%=response.write (""&LOC&"") %></p>
<p>Fecha: <%=response.write (""&ACTUAL&"") %></p></td>
<td width="130"><p>Gu&iacute;a de Despacho </p><p>N&ordm;: <%=response.write (""&GUIA_D&"") %></p></td>
<input type="hidden" name="csr" readonly="readonly" size="10" value="<%=distribuidor%>" ></td>
<input type="hidden"  value="<%=loc%>" autocomplete="off" ></td>
<input type="hidden" name="txt" id="txt1" value="<%=cuen%>" autocomplete="off">
<input type="hidden" name="serie" value="<%=ACTUAL%>" ></td>
<input type="hidden" value="<%=GUIA_D%>" >
</table>
<p align="center">&nbsp;</p>
<%For cuen = ""&CSR_INI&"" To ""&rs("CONTADOR")&"" Step 1%>
<table width="351" border="1" align="center" bordercolor="#0000FF" id="idt_<%=cuen%>">
<tr>
<td>Sel</td>
<td width="36">Csr:</td>
<td width="70">Modelo:</td>
<td width="47">Serie:</td>
<td width="170">Comentarios:</td>
</tr>
<tr>
<td width="21"><input type="checkbox" name="cod" value="" tabindex="1" ></td>
<td height="55"><input type="text" name="csr" readonly="readonly" size="2" value=<%=cuen%> tabindex="3"></td>
<td><input type="text" name="txt"  id="txt<%=cuen%>" value="" autocomplete="off" tabindex="4"></td>
<td><input type="text" name="serie" tabindex="5"></td>
<td><textarea name="comentarios" cols="30" rows="3" wrap="VIRTUAL" tabindex="6"></textarea></td>
</tr>
</table>
<%next%>
<div id="contenedorOpt" class="capa" style="display:none;"></div>
</form>
 

Lo del código Ajax lo dejé intacto porque no lo domino muxo.....jejejeje



Aps....para recibir los parámetros debo hacerlo mediante un FOR cierto??
Creo que debo hacerlo asi pero no estoy seguro:

Código ASP:

<%
csr=Request("csr")
txt =Request("txt")
serie =Request("serie")
comentarios =Request("comentarios")
 
set Cnn = Server.CreateObject("ADODB.Connection") 
set rs = Server.CreateObject ("ADODB.Recordset")
Cnn.Open Session("cnx")
 
vecCSR = split ( csr ,",")
vecTXT = split ( txt ,",")
vecSERIE = split ( serie ,",")  
vecCOMENTARIOS = split ( comentarios ,",")  
for i=0 to UBound(vecCSR)
 
strSQL =" INSERT INTO KARDEX_HISTORIAL_REP (Nro_CSR, MODELO, Nro_serie,  COMENTARIO) VALUES
(' "&trim(vecCSR(i))&" ',' "&trim(vecTXT(i))&" ', ' "&trim(vecSERIE(i))&" ', ' "&trim(vecCOMENTARIOS(i))&" ') "
set rs = Cnn.Execute(strSQL)
next
 

No se si estaré en lo correcto pero el valor de los modelos con lo del autocompletar llegarían como txt1, txt2, txt3 y asi sucesivamente cierto??

Entonces como debería hacerlo para recibir los parámetros y hacer el INSERT???

De antemano muchas gracias por responder mis dudas Adler......

[Adler]

Hola

Podría algo como esto

Código ASP:

Dim Arr()
cantCampos = 0
For each campo in Request.Form
if Request.Form(campo) <> "" then
cantCampos = cantCampos +1
Redim preserve Arr(cantCampos)
Arr(cantCampos) = Request.Form(campo)
end if
Next
 
Dim Arr2()
Dim Arr3()
 
j = 0
for i = 1 to ubound(Arr) step 2
Redim preserve Arr2(j)
Arr2(j) = Arr(i)
j = j +1
next
 
x = 0
for i = 2 to ubound(Arr) step 2
Redim preserve Arr3(x)
Arr3(x) = Arr(i)
x = x +1
next
 
for i = 0 to 1
Response.Write Arr2(i) & ","
Response.Write Arr3(i) & "<br />"
next
 

Suerte

[darkmcloud]

Gracias por la respuesta Adler.....pero cómo hago para utilizarlos en el insert????
porque me llegan todos los campos pero "desordenados".......


En un response.write me aparece:

TOTUS, 90800, 90801, 90802, ALAMEDA , HE-1000, ADVANCED 1190 GL BL, PV2000N,23-04-2010, 123, 456, 789

En este caso Totus y Alameda son como identifico al proveedor, y están en medio de los campos de los productos...esto son los datos de los productos:


Csr Modelo Serie
90800 HE-1000 123
90801 ADVANCED 1190 GL BL 456
90802 PV2000N 789


¿Cómo los separo para insertar los datos?

De antemano muchas gracias

[Adler]

Hola

En este caso Totus y Alameda son como identifico al proveedor, y están en medio de los campos de los productos...esto son los datos de los productos:

Esto no me dice nada.

Si lo que quieres es recibir los valores de 4 cuatros campos (Csr, txt, Serie y comentarios), lo puedes hacer así. También ha cada campo campo has de darle el nombre a todos los campos

Dim Arr() ' Valores de todos los campos recibidos
cantCampos = 0 ' cantidad de campos recibidos
For each campo in Request.Form
if Request.Form(campo) <> "" then
cantCampos = cantCampos +1
Redim preserve Arr(cantCampos)
Arr(cantCampos) = Request.Form(campo)
end if
Next

Dim Arr2() ' Valores del primer campo de cada tr
Dim Arr3() ' Valores del segundo campo de cada tr
Dim Arr4() ' Valores del tercer campo de cada tr
Dim Arr5() ' Valores del cuarto campo de cada tr

j = 0
for i = 1 to ubound(Arr) step 4
Redim preserve Arr2(j)
Arr2(j) = Arr(i)
j = j +1
next

x = 0
for i = 2 to ubound(Arr) step 4
Redim preserve Arr3(x)
Arr3(x) = Arr(i)
x = x +1
next


p = 0
for i = 3 to ubound(Arr) step 4
Redim preserve Arr4(x)
Arr4(p) = Arr(i)
p = p +1
next

z = 0
for i = 4 to ubound(Arr) step 4
Redim preserve Arr5(z)
Arr5(z) = Arr(i)
z = z +1
next



for i = 0 to j-1
strSQL =" INSERT INTO KARDEX_HISTORIAL_REP (Nro_CSR, MODELO, Nro_serie, COMENTARIO) VALUES('"&trim(Arr2(i))&" ',' "&trim(Arr3(i))&" ', ' "&trim(Arr4(i))&" ', ' "&trim(Arr5(i) )&" ') "
set rs = Cnn.Execute(strSQL)
next

Por cierto estaría bien que usaras transacciones, por si hubiera algún problema con algún insert

Suerte

[darkmcloud]

Nuevamente gracias x la respuesta...pero me da este error:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0009)
El subíndice está fuera del intervalo: 'i'
/bodega2/valida_for.asp, línea 50

Y la linea 50 es:

strSQL =" INSERT INTO KARDEX_HISTORIAL_REP (Nro_CSR, MODELO, Nro_serie, COMENTARIO)VALUES('"&trim(Arr2(i))&" ','"&trim(Arr3(i))&"', '"&trim(Arr4(i))&"', '"&trim(Arr5(i) )&"') "

Por lo que entiendo significa que uno de los arrays está vacío o algo asi o no??

De antemano muchas gracias

[Adler]

Hola

Sí, lo había hecho al vuelo
Prueba ahora

Código ASP:

<&#37;
Dim Arr() ' Valores de todos los campos recibidos
For each campo in Request.Form
valCampos = valCampos & Request.Form(campo)
Next
 
division = Split(valCampos, ",")
 
for i = 0 to UBound(division)
Redim preserve Arr(i+1)
Arr(i) = Trim(division(i))
next
 
Dim Arr2() ' Valores del primer campo de cada tr
Dim Arr3() ' Valores del segundo campo de cada tr
Dim Arr4() ' Valores del tercer campo de cada tr
Dim Arr5() ' Valores del cuarto campo de cada tr
 
j = 0
for i = 0 to ubound(Arr)-1 step 4
if Arr(i) <> "" then 
Redim preserve Arr2(j) 
Arr2(j) = Arr(i) 
j = j +1 
end if
next
 
x = 0
for i = 1 to ubound(Arr)-1 step 4
if Arr(i) <> "" then 
Redim preserve Arr3(x) 
Arr3(x) = Arr(i) 
x = x +1 
end if
next
 
 
p = 0
for i = 2 to ubound(Arr)-1 step 4
if Arr(i) <> "" then 
Redim preserve Arr4(p) 
Arr4(p) = Arr(i) 
p = p +1 
end if
next
 
z = 0
for i = 3 to ubound(Arr)-1 step 4
if Arr(i) <> "" then 
Redim preserve Arr5(z) 
Arr5(z) = Arr(i) 
z = z +1 
end if
next
 
' Tu conexión
 
for i = 0 to j-1
strSQL =" INSERT INTO KARDEX_HISTORIAL_REP (Nro_CSR, MODELO, Nro_serie, COMENTARIO) VALUES('"&trim(Arr2(i))&" ',' "&trim(Arr3(i))&" ', ' "&trim(Arr4(i))&" ', ' "&trim(Arr5(i) )&" ') "
Cnn.Execute(strSQL)
next
Cnn.Close
set Cnn = nothing
 
Response.Write("Datos Insertados con &eacute;xito")
%>
 

Ten en cuenta que ahora todos los campos del form han de tener el mismo nombre

Suerte