Ver Mensaje Individual
  #1 (permalink)  
Antiguo 18/06/2008, 12:30
loverpiu
 
Fecha de Ingreso: mayo-2008
Mensajes: 77
Antigüedad: 17 años
Puntos: 0
alguien sabe como

Este es mi codigo


<form name=formulario>
PROVINCIA: <select name=codigo onChange="document.location.href('prueba3.asp?idPa is=' + formulario.codigo.options[formulario.codigo.selectedIndex].value)">

<!--#include file="noticias/Conexion/bd_pinar.asp" -->
<%
'recorset para la provincia
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = conexion
rs.Source = "SELECT codigo_prov, nombre FROM jpinar.provincia"
rs.CursorType = 3
rs.CursorLocation = 3
rs.LockType = 1
rs.Open()



nombre = rs("nombre")
codigo = rs("codigo_prov")

response.Write(nombre)
response.Write(codigo)

%>

<%

while not rs.EOF%>
<option value="<%=rs("codigo_prov")%>"><%=rs("nombre")%></option>
<%rs.MoveNext

wend%>


</select>
<%

dim temporal
temporal = request.querystring("idPais")


%>


<% if temporal <> "" then %>
PROVINCIA: <select name=ubicacion>
<%

'recorset para la provincia
Dim RS_prov
Set RS_prov = Server.CreateObject("ADODB.Recordset")
RS_prov.ActiveConnection = conexion
RS_prov.Source = "select codigo_ciudad, nombre from jpinar.ciudad where codigo_provincia ="&temporal
rs_prov.CursorType = 3
RS_prov.CursorLocation = 3
RS_prov.LockType = 1
RS_prov.Open()


%>


<%while not RS_prov.EOF%>
<option value="<%=RS_prov("codigo_ciudad")%>"><%=RS_prov(" nombre")%></option>
<%RS_prov.movenext
wend%>
</select>



<%


RS_prov.close
%><% end if %></form>


Pregunta? alguien sabe como poner el tipo mensaje en el select? ese de seleccione.., adems como puedo desabiliar el select despues de seleccionarlo la primera vez? creo que e visto algo en java pero se puede en asp