no se si esta duda es de asp o de sql, creo que de aqui.
La cuestion es que tengo una BD sql server, cada vez que la fecha se queda vacia me pone la 1/1/1900 por defecto, para evitar esto, igualo la fecha vacia a null pero sigue igualando a 1/1/1900, ignorando el null, ¿Alguna idea?
Aqui esta el codigo:
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/con_bd.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%
familias = Request.Form("familias")
familias_ant= Request.Form("familias_ant")
nombre = Request.Form("nombre")
apellidos = Request.Form("apellidos")
dni_profe = Request.Form("dni_profe")
direccion = Request.Form("direccion")
cp = Request.Form("cp")
localidad = Request.Form("localidad")
provincia = Request.Form("provincia")
telefono = Request.Form("telefono")
movil = Request.Form("movil")
mail = Request.Form("mail")
observac = Request.Form("observac")
fecha_nacim = Request.Form("fecha_nacim")
titulac_acad = Request.Form("titulac_acad")
formac_compl = Request.Form("formac_compl")
experiencia = Request.Form("experiencia")
habilidades = Request.Form("habilidades")
fecha_incorp = Request.Form("fecha_incorp")
puesto = Request.Form("puesto")
' si las fehas estan vacias colca el 1/1/1900
if fecha_nacim = "" then
fecha_nacim = null
end if
if fecha_incorp = "" then
fecha_incorp = null
end if
%>
</head>
<body>
<%
on error resume next
'Response.Write(experiencia)
Set Con2 = Server.CreateObject("ADODB.Connection")
con2.Open MM_con_bdsgca_STRING
If (nombre = "" or dni_profe="" or apellidos="") then
response.Redirect("ok.htm")
else
sql2="UPDATE profesores SET nombre='"&nombre&"',apellidos='"&apellidos&"',familias='"&familias&"',fecha_nacim='"&fecha_nacim&"',titulac_acad='"&titulac_acad&"',formac_compl='"&formac_compl&"',experiencia='"&experiencia&"',fecha_incorp='"&fecha_incorp&"',puesto='"&puesto&"',direccion='"&direccion&"',cp='"&cp&"',localidad='"&localidad&"',provincia='"&provincia&"',telefono='"&telefono&"',movil='"&movil&"',mail='"&mail&"',observac='"&observac&"' WHERE dni_profe='"&dni_profe&"'"
set rs=con2.execute(sql2)
if Err<>0 then
response.Write(Err.Description)
response.Write("La consulta es = ")
Err.Number = 0
response.Write(sql2)
end if
if NOT familias=familias_ant then
Set Con1 = Server.CreateObject("ADODB.Connection")
con1.Open MM_con_bdsgca_STRING
sql1="DELETE FROM imparte WHERE cod_prof_imparte='"&dni_profe&"'"
set rs= Con1.execute(sql1)
familias=trim(familias)
fam=split(familias,", ")
dim i
For i=LBound(fam) to UBound(fam)
'aqui realizamos la consulta la bd sobre el codigo segun la palabra
set objconexion = server.CreateObject("ADODB.Recordset")
objconexion.ActiveConnection = MM_con_bdsgca_STRING 'conectamos el recordset
objconexion.Source= "select cod_familia from familias WHERE nombre = '"&fam(i)&"' "
objconexion.open()
variable = objconexion.Fields.Item("cod_familia").value
objconexion.close
set objconexion = nothing
Set Conexion = Server.CreateObject("ADODB.Connection")
conexion.Open MM_con_bdsgca_STRING
'insertamos dandole los valores de las variables
insercion="INSERT INTO imparte (cod_curso_imparte,cod_prof_imparte) VALUES ("&variable&",'"&dni_profe&"')"
set rs=conexion.execute(insercion)
next
end if
' response.Redirect("SubeCurriculum.asp?dni="&dni_profe&"&p=1")
'response.write(habilidades)
response.Write(fecha_ini)
response.Write(fecha_fin)
end if
con2.close
%>
