Problemilla con Combo

[Acostag]

Hola... Creo que esta pregunta ya se habia echo.. pero haber si me pueden Ayudar...

Tengo una Bd en Access.. (id,Nombre,Direccion,TelefonoP,Clave)
y Genero un Combo de Claves... y quiero Generar una
Variable donde DESPUES la Inserte en otra Tabla de la Misma BD.

mi combo es este ..


<Select Name="Eleccion">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("Cantu\BD\Trans_Cantu.mdb")

SQL = "SELECT * FROM Clientes"
Set rs = conn.Execute(SQL)
While Not rs.EOF
%>

<option value="<%=rs("Clave")%>"><%=rs("Clave")%></option>

<%
rs.MoveNext
Wend
rs.Close
%>

Podrian Ayudarme...??

Saludos
Luis.R.Acosta

[cacike500]

Si lo que quieres es que el valor seleccionado del combo se inserte en otra tabla yo haría lo siguiente:

<select name="nombre_select" onchange="javascript:document.location.href='pagin a_insercion.asp?valor=' + document.nombre_formulario.nombre_select.value'">

Donde pagina de insercion es la página donde tienes el código que inserta el valor en la tabla que dices. Ese valor lo recogerás con el método QueryString del objeto Request.

Si no era eso lo que querías, explicamelo mejor y procurare ayudarte.

Espero haber servido de ayuda,

cacike500

[Acostag]

Primero que nada, Gracias por Contestar mi Pregunta.. cacike500
y Disculpa que me Aya Tardado un poco en contestarte... pero salio de la Ciudad.. y hasta Hoy regrese...

Bueno... despudes del Agradecimiento y las Disculpas...
Oye Cacike500 hice lo que pediste.. y no jalo... mi pregunta..es
cuando tu creas el Combo con el Select Name. en que momento Insertas en la Tabla.. mira tengo estos 2 archivos.. ASP.

EL COMBO.
========
<select name="nombre_select" onchange="javascript:document.location.href='graba r.asp?valor=' + document.nombre_formulario.nombre_select.value'">

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("\Cantu\BD\Trans_Cantu.mdb")
SQL = "SELECT * FROM Clientes"
Set rs = conn.Execute(SQL)
While Not rs.EOF
%>

<option value="<%=rs("Clave")%>"> <%=rs("Clave")%></option>

<%
rs.MoveNext
Wend
rs.Close
%>

y el INSERT
========
<%dim conn
set oconexion=server.createobject("ADODB.Connection")
oConexion.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("\Cantu\BD\Trans_Cantu.mdb")

sqlstr="insert into datos (nombre) values ('"&request.form("nombre_select")&"'')"
set ors=oConexion.execute(sqlstr)
response.write "USUARIO INSERTADO"
oConexion.close%>



Saludos
Luis.R.Acosta