26/12/2007, 17:27
|
| | 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
%> |