Ver Mensaje Individual
  #1 (permalink)  
Antiguo 29/11/2010, 03:01
loverpiu
 
Fecha de Ingreso: mayo-2008
Mensajes: 77
Antigüedad: 16 años, 10 meses
Puntos: 0
Error en fechas sql server

Buenos dias, Gracia e antemano.
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&iacute;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	 


%>