Mira tengo un pequeño problema, las hora y fecha se capturan por separado, lo que hago es juntarlo en una variable y hacerlo como tu me comentas, ahora me manda un error en el nombre de la sala me dice que el campo no es valido :S te pondre un poco del codigo espero me puedas ayudar =) gracias....
Cita:
nombresala = 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")
fechaini = inicio1 &"/"& inicio2 &"/"& inicio3 &" "& hinicial &":"& minicial
fechater = termino1 &"/"& termino2 &"/"& termino3 &" "& hfinal &":"& mfinal
'"21/10/2008 09:00:00-21/10/2008 13:00:00"
hreserva = fechaini&"-"&fechater
particion = split(hreserva,"-")
sql = "Select * From reservsala where nom_sala = "&nombresala&" and fecha_inicio between '" &particion(0)& "' and '" &particion(1)& "' ;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
if rs.EOF or rs.bof then
rs.AddNew
rs.fields("nom_sala")=nombresala
rs.fields("clave") = clavepers
rs.fields("nombre") = nombre
rs.fields("gerencia") = gerencia
rs.fields("departamento") = departamento
fecha = Now()
fechaactual = Day(fecha) & "/" & Month(fecha) & "/" & Year(fecha)
rs.fields("fecha_soli") = fechaactual
fechaini = inicio1 &"/"& inicio2 &"/"& inicio3
rs.fields("fecha_inicio") = fechaini
fechater = termino1 &"/"& termino2 &"/"& termino3
rs.fields("fecha_termi") = fechater
rs.fields("dur_inicial_hrs") = hinicial
rs.fields("dur_inicial_min") = minicial
rs.fields("dur_final_hrs") = hfinal
rs.fields("dur_final_min") = mfinal
rs.fields("curso") = curso
rs.fields("cantidad") = cantpers
rs.fields("serv_cafe") = cafeteria
rs.fields("proporcionado_por") = propor
rs.fields("observaciones") = observaciones
rs.fields("tipo_sala") = tiposala
rs.update
%>
<Script Language="VBScript" >
msgbox "Datos Guardados Correctamente"
a = window.open("reservacion.asp", "_self")
</Script>
<% else%>
<Script Language="VBScript" >
msgbox "Datos no Guardados"
a = window.open("reservacion.asp", "_self")
</Script>
<%end if%>