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%>
