Hola buen dia webmasters, tengo una pequeña duda, bueno mi problema es el siguiente:
Estoy guardando datos en una base de datos pero mi problema es que... les muestro el codigo
PRUEBA.ASP
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conexiondb.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento sin título</title>
</head>
<body>
<form action="prueba2.asp" method="post" >
<%
'Creamos la sentencia SQL y la ejecutamos
sSQL="Select nombre From personal Order By Id_personal"
set RS = Conex.execute(sSQL)
%>
Responsable:
<select name="Dato1" class="label_list" id="Dato1">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option selected="selected"><%=RS("nombre")%>
<%RS.movenext
Loop
RS.Close
set RS = Nothing
%>
</option>
</select>
<p><%
'Creamos la sentencia SQL y la ejecutamos
sSQL="Select nombre From tipo_pc Order By Id_tipo_pc"
set RS = Conex.execute(sSQL)
%>
Tipo:
<select name="Dato2" class="label_list" id="Dato2">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option selected="selected"><%=RS("nombre")%>
<%RS.movenext
Loop
RS.Close
set RS = Nothing
%>
</option>
</select>
<p>
Modelo:
<input type="text" name="Dato3" id="Dato3" />
<p>
<%
'Creamos la sentencia SQL y la ejecutamos
sSQL="Select nombre From marcas Order By nombre"
set RS = Conex.execute(sSQL)
%>
Marca::
<select name="Dato4" class="label_list" id="Dato4">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option selected="selected"><%=RS("nombre")%>
<%RS.movenext
Loop
RS.Close
set RS = Nothing
%>
</option>
</select>
<p>No. Serie:
<input type="text" name="Dato5" id="Dato5" />
<p>
<%
'Creamos la sentencia SQL y la ejecutamos
sSQL="Select nombre From ram Order By nombre"
set RS = Conex.execute(sSQL)
%>
Memori Ram:
<select name="Dato6" class="label_list" id="Dato6">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option selected="selected"><%=RS("nombre")%>
<%RS.movenext
Loop
RS.Close
set RS = Nothing
%>
</option>
</select>
<p>Disco Duro:
<input type="text" name="Dato7" id="Dato7" />
<p>Procesador y Velocidad:
<input type="text" name="Dato8" id="Dato8" />
<p>
<%
'Creamos la sentencia SQL y la ejecutamos
sSQL="Select nombre From soperativos Order By nombre"
set RS = Conex.execute(sSQL)
%>
Sistema Operativo:
<select name="Dato9" class="label_list" id="Dato9">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option selected="selected"><%=RS("nombre")%>
<%RS.movenext
Loop
RS.Close
set RS = Nothing
%>
</option>
</select>
<p>
<%
'Creamos la sentencia SQL y la ejecutamos
sSQL="Select nombre From office Order By nombre"
set RS = Conex.execute(sSQL)
%>
Microsoft Office:
<select name="Dato10" class="label_list" id="Dato10">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option selected="selected"><%=RS("nombre")%>
<%RS.movenext
Loop
RS.Close
set RS = Nothing
%>
</option>
</select>
<p>
<%
'Creamos la sentencia SQL y la ejecutamos
sSQL="Select nombre From antivirus Order By nombre"
set RS = Conex.execute(sSQL)
%>
Antivirus:
<select name="Dato11" class="label_list" id="Dato11">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option selected="selected"><%=RS("nombre")%>
<%RS.movenext
Loop
RS.Close
set RS = Nothing
%>
</option>
</select>
<p>
<%
'Creamos la sentencia SQL y la ejecutamos
sSQL="Select nombre From estatus Order By nombre"
set RS = Conex.execute(sSQL)
%>
Estatus de Limpieza:
<select name="Dato12" class="label_list" id="Dato12">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option selected="selected"><%=RS("nombre")%>
<%RS.movenext
Loop
RS.Close
set RS = Nothing
%>
</option>
</select>
<p>
<%
'Creamos la sentencia SQL y la ejecutamos
sSQL="Select nombre From sucursal Order By nombre"
set RS = Conex.execute(sSQL)
%>
Sucursal:
<select name="Dato13" class="label_list" id="Dato13">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option selected="selected"><%=RS("nombre")%>
<%RS.movenext
Loop
RS.Close
set RS = Nothing
%>
</option>
</select>
<p>
<%
'Creamos la sentencia SQL y la ejecutamos
sSQL="Select nombre From dueño Order By nombre"
set RS = Conex.execute(sSQL)
%>
Dueño del equipo:
<select name="Dato14" class="label_list" id="Dato14">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option selected="selected"><%=RS("nombre")%>
<%RS.movenext
Loop
RS.Close
set RS = Nothing
%>
</option>
</select>
<p>
<input type="submit" name="boton" id="boton" value="Enviar" />
</form>
<%
Conex.close
%>
<span class="cuadromsg"><%=request.querystring("msj")%></span>
</body>
</html>
PRUEBA2.ASP
<%@ Language="VBScript" %>
<!--#include file="conexiondb.asp" -->
<html>
<head>
<title>Ingreso de Datos</title>
</head>
<%
Dim Tabla
Set Tabla = Server.CreateObject("ADODB.Recordset")
Dim Temp
'buscamos los datos
Temp="Select * From equipo Where UCase(Id_personal)='" & UCase(Request("Dato1")) & "' And UCase(Id_tipo_pc)='" & UCase(Request("Dato2")) & "' And UCase(modelo)='" & UCase(Request("Dato3")) &"'"
Tabla.Open Temp,Conex,2,3,1
'si no se repiten agregamos los datos a nuestro buscador
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("Id_personal") = Request("Dato1")
Tabla("Id_tipo_pc") = Request("Dato2")
Tabla("modelo") = Request("Dato3")
Tabla.Update
'fin del Script
Response.redirect("prueba.asp?msj=USUARIO REGISTRADO CORRECTAMENTE")
%>
<font face="Tahoma" size="2"><b><i>Ingreso de datos completado</i></b></font></p>
<%
'si el campo ya existe para no hacer dobles nos da este mensaje
Else
response.redirect("prueba.asp?msj=ESTE USUARIO YA EXISTE, VERIFICA TUS DATOS")
'cerramos la conexion
Tabla.Close
Conex.Close
End If
%>
Mi duda es, estos datos en las listas del PRUEBA.ASP estoy trayendo datos de una base de datos pero al momento de guardarlos quisiera que me guardara el ID no el texto en si por ejemplo, Selecciono de la lista -> COMPUTADORAS este dato estoy trayendo de la base de datos pero en si el ID de COMPUTADORAS es 1 y el dato que quisiera guardar es "1" no "COMPUTADORAS" si me doy a entender jajajaja! es algo confuso espero su apoyo saludos...