Ver Mensaje Individual
  #21 (permalink)  
Antiguo 26/12/2007, 17:27
lsanguineri
 
Fecha de Ingreso: noviembre-2007
Mensajes: 11
Antigüedad: 17 años
Puntos: 0
Re: URGENTE Tildes - Ajax no Reconoce por el Metodo POST + ASP

Gente, como andan?
Gracias por toda la data.
Aprovecho para preguntarles lo siguiente:


Tengo 3 select dependientes, que sacan info de una base access, con ajax tengo el problema que en el segundo select, cuandomandauna cadena al proximo y esta tiene espacios, la corta y el dato sólo aparece hasta donde encuentra el primer espacio. Alguien sabe por que es esto?
Les paso el codigo (no se asusten, es horrendo, je! )

<%
' me fijo si viene algun valor en el querystring, si no viene nada, no hago nada
if request.querystring("name") <> "" then

componentName = request.querystring("name")
id = request.querystring("id")
componentValue = request.querystring("value")
nextComponentName = request.querystring("nextComponentName")
nextTabIndex = request.querystring("nextTabIndex")
twoNextComponentName = request.querystring("twoNextComponentName")
twoNextTabIndex = request.querystring("twoNextTabIndex")


if((cstr(componentName) = cstr("select4")) and (cstr(id) = cstr(13))) then

response.write "<select name=" & nextComponentName & " id="& nextTabIndex & " class=cbo>"
response.write "<option value=></option>"

Set obj = New Sistema
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs = obj.oLugarEntregaContrato(componentValue)
Do while not rs.EOF
response.write "<option value="& cstr(rs("'IdEntregaCont'")) & ">"&rs("Nombre")&"</option>"
' response.write "<option value='"& rs("IdEntregaCont") &"'"
' If cstr(nextComponentName)=cstr(rs("IdEntregaCont")) then
' response.Write " selected "
' end If
' response.write ">"& rs("Nombre") &"</option>"
rs.movenext
Loop
If rs.state=1 then rs.close
Set rs = nothing
Set obj = Nothing
response.write "</select>"

end if


if((cstr(componentName) = cstr("select")) and (cstr(id) = cstr(6))) then


response.write "<select name="&nextComponentName&" id="&nextTabIndex&" class=cbo onChange=javascript:recargaComboAjax("& nextComponentName &","& nextTabIndex &","& twoNextComponentName &","& twoNextTabIndex &","& nextComponentName &","& nextTabIndex &",this.value);>"
response.write "<option value=></option>"

Set obj = New Sistema
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs = obj.oListadoContrato(session("campana"),Session("c liente"),componentValue)
Do while not rs.EOF
response.write "<option value="& rs("Idcontrato") & ">"&rs("Contrato")&"</option>"
rs.Movenext
Loop
If rs.state=1 then rs.close
set rs = NOthing
Set obj = Nothing

response.write "</select>"

end if

end if

%>