Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Linha de Erro:
Set UploadProgress = Server.CreateObject("Persits.UploadProgress")
Boa noite pessoal, já vi muitos casos parecidos com esses aqui no fórum, mas não encontrei a solução, usei um script para verificar os comps instalados. Não sei o que fazer.
O erro aconteceu do nada, até uns dias atrás funcionava normalmente, o que me recomendam?
Abraço!
Componentes instalados: ADODB FileSystemObject CDONTS ASpSmartUpload
Esse upload está na minha intranet, já tentei usando Ip local, mas também não vai.
A sua intranet já esta hospedada? se tiver vc tem que consultar a empresa que hospeda o sua intranet e verificar se o componente CDONTS ASpSmartUpload é instalado. Se não for vc não vai conseguir usar.
Att;
>
A sua intranet já esta hospedada? se tiver você tem que consultar a empresa que hospeda o sua intranet e verificar se o componente CDONTS ASpSmartUpload é instalado. Se não for você não vai conseguir usar.
Att;
Gilberto, a Intranet tá hospedada em no servidor em que chequei os complementos instalados, e já consta os dois devidamente registrados. E a alguns dias ela funcionava normalmente.
tem um código que postei no fórum, que verifica a existencia dos componentes instalados, dá uma olhada no lab. de script
tem um código que postei no fórum, que verifica a existencia dos componentes instalados, dá uma olhada no lab. de script
Estou usando esse código:
<%@ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponent(14)
Dim theComponentName(14)
' Lista dos Componentes
theComponent(0) = "ADODB.Connection"
theComponent(1) = "SoftArtisans.FileUp"
theComponent(2) = "AspHTTP.Conn"
theComponent(3) = "AspImage.Image"
theComponent(4) = "LastMod.FileObj"
theComponent(5) = "Scripting.FileSystemObject"
theComponent(6) = "SMTPsvg.Mailer"
theComponent(7) = "CDONTS.NewMail"
theComponent(8) = "Jmail.smtpmail"
theComponent(9) = "SmtpMail.SmtpMail.1"
theComponent(10) = "Persits.Upload.1"
theComponent(11) = "UnitedBinary.AutoImageSize"
theComponent(12) = "aspSmartUpload.SmartUpload"
theComponent(13) = "DAO.DBEngine.35"
' Apelido dos Componentes
theComponentName(0) = "ADODB"
theComponentName(1) = "SA-FileUp"
theComponentName(2) = "AspHTTP"
theComponentName(3) = "AspImage"
theComponentName(4) = "LastMod"
theComponentName(5) = "FileSystemObject"
theComponentName(6) = "ASPMail"
theComponentName(7) = "CDONTS"
theComponentName(8) = "JMail"
theComponentName(9) = "SMTP"
theComponentName(10) = "Persits Upload"
theComponentName(11) = "AutoImageSize"
theComponentName(12) = "ASpSmartUpload"
theComponentName(13) = "DBEngine"
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
<html>
<head>
<title>O que tem aqui?</title>
</head>
<body>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes
instalados:</b></font></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<table border="0" cellpadding="0" cellspacing="0" width="100%"> Response.Write "<tr>" & vbCrLf
Response.Write "<td width=""100%"">" & vbCrLf
Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
End If</table>
</font>
</td>
</tr>
</table>
</body>
</html>Componentes instalados: ADODB FileSystemObject CDONTS ASpSmartUpload
Eaí galera, nenhuma luz?
Esse processo de UPLOAD vc esta tentando fazer via LOCALHOST ou no servidor de HOSPEDAGEM que esta o seu site?