es un combo en el cual mando ese dato lo recibo en otra pagina...
ahi le coloco el codigo donde recibo ese campo
Cita: <%
nomsala = Request.Form("nomsala")
clavepers = Request.Form("txtclave")
nombre = Request.Form("txtnombre")
gerencia = Request.Form("gerencia")
departamento = Request.Form("depto")
curso = Request.Form("txtcurso")
cantpers = Request.Form("txtpersonas")
inicio1 = Request.Form("iniciodia")
inicio2 = Request.Form("iniciomes")
inicio3 = Request.Form("inicioano")
termino1 = Request.Form("terdia")
termino2 = Request.Form("termes")
termino3 = Request.Form("terano")
hinicial = Request.Form("horainicial")
minicial = Request.Form("minutinicial")
hfinal = Request.Form("horafinal")
mfinal = Request.Form("minutfinal")
cafeteria = Request.Form("seleccion")
propor = Request.Form("txtproporcionado")
tiposala = Request.Form("Salas")
observaciones = Request.Form("txtobser")
Dim Conn
Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open "driver={SQL Server};server=128.3.25.1; database=Reservaciones; uid=sa;pwd=xcox3004;"
%>
</head>
<body>
<%
fechaini = inicio1 &"/"& inicio2 &"/"& inicio3
fechater = termino1 &"/"& termino2 &"/"& termino3
sql = "SELECT * FROM reservsala WHERE nom_sala = "&nomsala&";"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
do while not rs.EOF or rs.bof
fi=rs.fields("fecha_inicio")
ff=rs.fields("fecha_termi")
hi=rs.fields("dur_inicial_hrs")
him=rs.fields("dur_inicial_min")
hf=rs.fields("dur_final_hrs")
hfm=rs.fields("dur_final_min")
if fechaini>=fe and fechater<=ff and hinicial>=hi and hfinal<=f1 and minicial>=him and mtermino<=hfm then
%>
<script language="vbscript">
a = window.open("detalle.asp?clave="&clavepers&"&nombr e="&nombre &"&curso="&curso &"&cantidad="&cantpers &"&txtpropocionado="&propor &"&txtobser="&observaciones,"_self")
</script>
<%
end if
loop
rs.close
sql1 = "Select * from reservsala;"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open sql1, conn, 3, 3
rs1.AddNew
rs1.fields("nom_sala")=nomsala
rs1.fields("clave") = clavepers
rs1.fields("nombre") = nombre
rs1.fields("gerencia") = gerencia
rs1.fields("departamento") = departamento
fecha = Now()
fechaactual = Day(fecha) & "/" & Month(fecha) & "/" & Year(fecha)
rs.fields("fecha_soli") = fechaactual
fechaini = inicio1 &"/"& inicio2 &"/"& inicio3
rs1.fields("fecha_inicio") = fechaini
fechater = termino1 &"/"& termino2 &"/"& termino3
rs1.fields("fecha_termi") = fechater
rs1.fields("dur_inicial_hrs") = hinicial
rs1.fields("dur_inicial_min") = minicial
rs1.fields("dur_final_hrs") = hfinal
rs1.fields("dur_final_min") = mfinal
rs1.fields("curso") = curso
rs1.fields("cantidad") = cantpers
rs1.fields("serv_cafe") = cafeteria
rs1.fields("proporcionado_por") = propor
rs1.fields("observaciones") = observaciones
rs1.fields("tipo_sala") = tiposala
rs1.update
%>
<Script Language="VBScript" >
msgbox "Datos Guardados Correctamente"
a = window.open("reservacion.asp", "_self")
</Script>