guardar Info de un Combo Box a BD

[Rriveros]

Hola, tengo un Form en el cual tengo un Menu desplegable que muestra datos de la BD, lo que quiero que al seleccionar unos de esos datos el Formulario lo gurde, me guarda todo menos lo que seleccione en el combo bosx, que será?
<form action="procesar4.asp" method="post">
<table border="0" cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse" bordercolor="#111111" width="80%" id="AutoNumber1">
<tr>
<TD align=middle></TD>
<td width="100%" colspan="4" align="middle"><b><font face="Tahoma">Ingreso Orden de Trabajo</font></b></td>
</tr>
<tr>
<td width="25%" align="middle">&nbsp;</td>
<td width="25%" align="middle">&nbsp;</td>
<td width="25%" align="middle">&nbsp;</td>
<td width="25%" align="middle">&nbsp;</td>
</tr>
<tr>
<td width="25%"><font face="Tahoma">Número de Orden</font></td>
<td width="50%" colspan="2"><font face="Tahoma"><input name="Nro_Orden" size ="10"></font></td>
<td width="25%">&nbsp;</td>
</tr>
<tr>
<td width="25%"><font face="Tahoma">Cliente</font></td>
<td width="40%"> <%
Dim oConn,strSQL, objRS, strSQL2, objRS2

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Servicios.mdb"))
strSQL = "SELECT Empresa, Telefono FROM Clientes"
strSQL2 = "SELECT Cod_Producto, Descripcion FROM Productos"
Set objRS = oConn.Execute(strSQL)
Set objRS2 = oConn.Execute(strSQL2)

%>

<select class="txtfield" name="Empresa">
<option>Seleccione...
<%

'Generamos el menu desplegable
Do While not objRS.eof%>

<option><%=objRS("Empresa")%>
&nbsp;&nbsp;&nbsp;Teléfono &nbsp;<%=objRS("Telefono")%>
<% objRS.movenext
Loop


%>


</td>
<td width="25%">&nbsp;</td>
<td width="25%">&nbsp;</td>
</tr>



<TR>
<TD width="25%"><FONT face=Tahoma>Descripción Problema</FONT></TD>
<TD width="50%" colSpan=2><INPUT style="WIDTH: 342px; HEIGHT: 54px"
size=44 name=Descripcion_Problema></TD>
<TD width="25%"></TD></TR>
<TR>
<TD width="25%"><FONT face=Tahoma>Informe</FONT></TD>
<TD width="50%" colSpan=2><INPUT style="WIDTH: 342px; HEIGHT: 57px"
size=44 name=informe></TD>
<TD width="25%"></TD></TR>
<tr>
<td width="25%"><font face="Tahoma">Código Producto</font></td>
<td width="50%" colspan="2">
<font face="Tahoma"><select Cod_Producto="Cod_Producto">
<option>Seleccione...</option>
<%

'Generamos el menu desplegable

Do While not objRS2.eof%>
<option><%=objRS2("Cod_Producto")%>
&nbsp;&nbsp;&nbsp;Descripción&nbsp;
<%=objRS2("Descripcion")%>
<% objRS2.movenext

Loop
%>
</select></font></td>
<td width="25%">&nbsp;</td>
</tr>
<tr>
<td width="25%"><font face="Tahoma">Valor Prestación</font></td>
<td width="25%"><font face="Tahoma"><input name="Valor_Prestacion" size="10" ></font></td>
<td width="25%">&nbsp;</td>
<td width="25%">&nbsp;</td>
</tr>
<tr>
<td width="25%"><font face="Tahoma">Fecha</font></td>
<td width="25%"><font face="Tahoma"><input name="Fecha" size="10" ></font></td>
<td width="25%">&nbsp;</td>
<td width="25%">&nbsp;</td>
</tr>
<tr>
<td width="25%"><font face="Tahoma">Tipo</font></td>
<td width="25%"><font face="Tahoma"><select size="1" name="Tipo">
<option value="Garantia">Garantía</option>
<option selected value="Reparacion">Reparación</option>
</select></font></td>
<td width="25%">&nbsp;</td>
<td width="25%">&nbsp;</td>
</tr>
<tr>
<td width="25%"><font face="Tahoma">Contacto</font></td>
<td width="25%"><font face="Tahoma"><input name="Contacto" size=44>
</font></td>
<td width="25%">&nbsp;</td>
<td width="25%">&nbsp;</td>
</tr>

</table>

<INPUT TYPE="submit" VALUE="Grabar">
</form>

[ToKaTa]

hola!,

no te falta un:

</select>

para el

<select class="txtfield" name="Empresa">


???. POr que yo no lo veo . Ademas, esta linea esta mal:

<select Cod_Producto="Cod_Producto">

no?, digo yo que sera:

<select name="Cod_Producto">




De todas formas yo pondria valores a los option de esos select. O sea, tu tienes este codigo:

Código:

<select class="txtfield" name="Empresa">
	<option>Seleccione...
	<% 

		'Generamos el menu desplegable
		Do While not objRS.eof %>
			<option>
			<%= objRS("Empresa") %>
			Teléfono 
			<%= objRS("Telefono") %>

	<% 
			objRS.movenext
		Loop

	%>

Pon algo como:

Código:

<select class="txtfield" name="Empresa">
	<option>Seleccione...
	<% 

		'Generamos el menu desplegable
		Do While not objRS.eof %>
			<option value="<%= objRS("Empresa") %>">
			<%= objRS("Empresa") %>
			Teléfono 
			<%= objRS("Telefono") %>

	<% 
			objRS.movenext
		Loop

	%>

ToKaTa.


P.D.:En el codigo que das hay varios combo, cual es elque no te llega bien?, Cod_Producto?, Empresa?

[Rriveros]

Solo estoy probando el de Clientes que debe llamar y mostrarme empresa y teléfono, el problema es que me guarda todo menos los datos del combo box.
%>
<select Empresa="Empresa">
<option>Seleccione...</option>
<%

'Generamos el menu desplegable
Do While not objRS.eof%>

<option><%=objRS("Empresa")%>
&nbsp;&nbsp;&nbsp;Teléfono &nbsp;<%=objRS("Telefono")%>

</option>


<% objRS.movenext

Loop

%>

[ToKaTa]

Solo estoy probando el de Clientes que debe llamar y mostrarme empresa y teléfono, el problema es que me guarda todo menos los datos del combo box.
%>
<select Empresa="Empresa">
<option>Seleccione...</option>
<%

'Generamos el menu desplegable
Do While not objRS.eof%>

<option><%=objRS("Empresa")%>
Teléfono <%=objRS("Telefono")%>

</option>


<% objRS.movenext

Loop

%>

ein??, pero es que lo tienes igual que como lo tenias antes.

-Esto sigo pensando que no es asi:

<select Empresa="Empresa">

si no asi:

<select name="Empresa">


-Los option siguen sin tener el value.
-Te sigue faltando el final del select (</select>)

Vamos, no se si no entendi la pregunta de lo que querias , o tu no entendiste mi respuesta . Sea como fuere, mañana sera otro dia.......



ToKaTa.

[Rriveros]

Ok ya resulto . Gracias