05/03/2004, 04:05
|
| | | Fecha de Ingreso: mayo-2003
Mensajes: 70
Antigüedad: 22 años Puntos: 0 | |
| Este es el codigo, si alguien me puede ayudar se lo agradeceria.
Un saludo.
<%
function AddProject(IdEmpresa, Codigo, Descripcion, FechaInicio, FechaFinal, HorasEstimadas, HorasReales)
Dim cn 'Connection var
Dim cmd 'Command object
Dim strSQL 'SQL Statement var
Set cn = CreateObject("ADODB.Connection")
Set cmd = CreateObject("ADODB.Command")
set rsproject=CreateObject("adodb.Recordset")
strSQL = "INSERT INTO Proyectos (IDEmpresa, IDCodigo, Descripcion, FechaInicio, FechaEntrega, HorasEstimadas, HorasReales) VALUES (" & IdEmpresa & ", " & Codigo & ", '" & Descripcion & "', #" & FechaInicio & "#, #" & FechaFinal & "#, '" & HorasEstimadas & "', '" & HorasReales & "')"
On Error Resume Next
cn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("FichaTrabajo.mdb")
cn.Open
If Err then Exit Function
cmd.ActiveConnection = cn
cmd.CommandText = strSQL
cmd.Execute
sql2="select top 1 IDProyecto from Proyectos order by IDProyecto desc"
rsproject.open sql2,cn,3,3
variable= Cstr(rsproject("IDProyecto"))
imprimirproyecto = "imprimirproyecto.asp?ultimo=" & variable & ""
rsproject.close
If Err then
response.write("Error de conexion" & err.description)
Exit Function
end if
cn.close
AddProject = True
response.redirect imprimirproyecto
set rsproject = nothing
set cn = nothing
End Function
%> |