ASP Classic & SQL date out-of-range error

nelsonmadrid

New Member
I am moving an ASP classic app to a new server. I did not developed the app and I have no experience with ASP, hope someone can guide me.One of the pages in the app drop this error:\[code\]Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][ODBC SQL Server Driver][SQL Server]The conversion of a varchar data type to a datetime data type resulted in an out-of-range value. /clientname/Admin/EntregasProcess.asp, line 49 \[/code\]I read that maybe could be the date format so I change it to yyyy-mm-dd.Now it is showing this:\[code\]Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][ODBC SQL Server Driver][SQL Server]The conversion of a varchar data type to a datetime data type resulted in an out-of-range value. /clientname/Admin/EntregasProcess.asp, line 62\[/code\]The date format on the database is writen like this:\[code\]2006-07-31 00:00:00.000 \[/code\]and this is the code of the asp file:\[code\]<%@ Language=VBScript %><!--#include file="StrConn.asp"--><%if Session("Role") <> "AD" Then 'AD=Administrador, CG = Consulta Gral.Response.Redirect "../home.asp"end if%><%Dim month_number, year_number, day_number, tituloEntrega, Estatus, idCuestionario, date_numbermonth_number = Request.Form("month_number")year_number = Request.Form("year_number")day_number = Request.Form("day_number")tituloEntrega = trim(Request.Form("tituloEntrega"))idCuestionario = Request.Form("idCuestionario")Estatus = Request.Form("Estatus")idEntrega = Request.Form("idEntrega")<!--BITACORA::ESC::Oscar Salgado 20090729-->bitacora = Request.Form("bitacora")page = Request.Form("page")<!--=====================================-->date_number = dateSerial(year_number,month_number+1,day_number)Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open strConnPortal<!--BITACORA::ESC::Oscar Salgado 20090729-->SQL="Delete from dbo.tbBitacoraShow where idCuestionario = " & idCuestionarioconn.execute(SQL)if bitacora = "1" Then SQL="Insert into dbo.tbBitacoraShow(idCuestionario) values(" & idCuestionario & ")"end ifconn.execute(SQL)<!--=====================================-->Select Case Request.Form("btnGo") Case "Agregar" if trim(tituloentrega) <> "" Then SQL = "Insert into tbEntregas(TituloEntrega,Date,Estatus,IDCuestionario) values('" & _ tituloEntrega & "','" & date_number & _ "'," & estatus & ",'" & idCuestionario & "')" conn.Execute sql end if 'Response.Write SQL 'Response.End Case "Actualizar" SQL = "update tbEntregas Set TituloEntrega = '" & tituloEntrega & _ "',Date='" & date_number & " ',Estatus=" & estatus & _ ",IdCuestionario='" & idCuestionario & "' Where idEntrega = " & idEntrega conn.Execute sql 'Response.Write SQL 'Response.EndEnd SelectResponse.Redirect "Entregas.asp?idEntrega="&idEntrega&"&page="&page%>\[/code\]
 
Back
Top