<%if Request("oculto")="1" then
dim id_var
dim salon_var
dim fecha_var
dim duracion_var
dim hora_var
dim hora1_var
dim nombre_var
dim fines_var
dim nropersonas_var
dim empresa_var
dim representante_var
dim telefono_var
dim mail_var
dim fec_solicitud_var
dim tipo_var
salon_var=Request("salon_cmb")
fecha_var=DateSerial(request("anio_cmb"),request("mes_cmb"),request("dia_cmb"))
duracion_var=Request("duracion_cmb")
hora_var=Request("hora_cmb")
hora1_var=Request("hora1_cmb")
nombre_var=Request("nombre_txt")
fines_var=Request("fines_txt")
nropersonas_var=Request("nropersonas_cmb")
empresa_var=Request("empresa_txt")
representante_var=Request("representante_txt")
telefono_var=Request("telefono_txt")
mail_var=Request("mail_txt")
fec_solicitud_var=date
if request("R1")="V1" then
tipo_var="Conferencia"
end if
if request("R1")="V2" then
tipo_var="Curso"
end if
if request("R1")="V3" then
tipo_var="Taller"
end if
sql="select max(id) as mayor from ciec_alquiler_salones"
registros.open sql,conexion,1
id_var=registros("mayor")+1
If isnull(id_var) then
id_var=1
End If
registros.close
sql="select * from ciec_alquiler_salones"
registros.open sql,conexion,1
registros.AddNew
registros("id")=id_var
registros("salon")=salon_var
registros("fecha")=fecha_var
registros("duracion")=duracion_var
registros("hora")=hora_var
registros("hora1")=hora1_var
registros("nombre")=nombre_var
registros("fines")=fines_var
registros("nropersonas")=nropersonas_var
registros("empresa")=empresa_var
registros("representante")=representante_var
registros("telefono")=telefono_var
registros("mail")=mail_var
registros("fec_solicitud")=fec_solicitud_var
registros("tipo")=tipo_var
registros.Update
registros.Close
conexion.Close%>
<%end if%>
