Error Server object error 'ASP 0177 : 800401f3'

[gajc66]

Alguien me puede decir que debo de hacer:




Server objecterror 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/proyectos/administracion/agregar2.asp, line 5 800401f3



el codigo es:


<!--#INCLUDE FILE="../../inc/base.asp" -->
<%
username = Session("usernameGente")
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = "c:\upload"
agenda = upl.form("agenda")
agenda = replace(agenda,"'","")
agenda = replace(agenda," ","")
agenda = replace(agenda,"&","")

fechainicio= upl.form("fechainicio")
Set fso = CreateObject("Scripting.FileSystemObject")
set rsbusca2 = conn.Execute("select * from agendas where agendas ='"&agenda&"'")

if rsbusca2.eof = true then
nocons = day(date)&month(date)&year(date)&hour(time)&minute (time)&second(time)
contrato = "'"&area&"','"&bbgb&"','"&clientes&"','"&enunciado &"','"&incluye&"','"&noincluye&"','"&barreras&"',' "&metrico&"','"&limites&"','"&desactual&"','"&graf icarep&"','"&meta&"','"&nombrefinanzas&"','"&defin iciontiempo&"','"&mediciontiempo&"','"&analisistie mpo&"','"&mejoratiempo&"','"&controltiempo&"','"&d efinicionfecha&"','"&medicionfecha&"','"&analisisf echa&"','"&mejorafecha&"','"&controlfecha&"','"&ch ampion&"','"&owner&"','"&jefe&"','"&blackbelt&"'"

queryagenda= "Insert into agendas values('"&agenda&"','"&fechainicio&"')"
conn.Execute(queryagenda)
set rsagenda= conn.Execute("select * from agendas where agendas ='"&agenda&"'")
idagenda=rsagenda("id")

query2 = "Insert into paginausers values('"&Session("idusuario")&"', '"&idagenda&"', '1')"
conn.Execute(query2)

pathname = InetProyecto & agenda
If fso.FileExists(pathname) Then
Else
If fso.FolderExists(pathname) Then
else
Set f = fso.CreateFolder(pathname)
end if
End If
else
error = 1
end if

if error = "" then
Response.Redirect "../../Administracion.asp"
else%>
<script language="JavaScript">
<!--
alert('No ha se ha podido dar de Alta.\nEl Nombre del Proyecto ya existe');
history.back();
//-->
</script>
<%end if%>