Persist.jpeg

Noid · Outubro 29, 2003

Me passaram uma pagina para realizar manutenção e me deparei com o seguinte erro:

Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/lookbook/01.asp, line 38
Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

Pelo que erro o objeto não existe no servido em que hospedei... é isso?

o codigo da pagina é esse

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if session("login") = "" or session("senha") = "" then
response.Redirect("cont.asp?erro=ok")
else
%>
<script language=JavaScript>

</script>
<%
function w(a)
dim Jpeg, Width, Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("images/"&a)
Jpeg.Open Path
Width = Jpeg.OriginalWidth
End function
function h(a)
dim Jpeg, Height, Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("images/"&a)
Jpeg.Open Path
Height = Jpeg.OriginalHeight
End function
larguraMax="10"
alturaMax="10"
scale=5
colunas=4 ' Max thumbnails da esquerda para direita
Maxporpagina=8 ' número máximo de imagens para exibir por página
CR=Chr(13)
LF=Chr(10)
CrLf=Chr(13)+Chr(10)
QU = Chr(34)
Qs = Chr(39)
cmd="search"
searchtext="*"
PiDbCategory="All"
UsDbMainIdNo="All"
searchok=true
curpage=Request.querystring("Curpage")
If curpage="" Then curpage="1"
' Contar os arquivos da pasta========================================================================
Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")
Set fsArquivo = Server.CreateObject("Scripting.FileSystemObject")
Set fsPasta = Server.CreateObject("Scripting.FileSystemObject")
Caminho = Server.MapPath ("images")
Set ObjPasta = ObjFso.GetFolder(Caminho)
dim contador
contador = 1
For Each ObjArq in ObjPasta.Files
contador = contador + 1
Next
MaxRegs= contador -2
'=========================================================================================
' Pegar Todos os arquivos da pasta e joga no array===========================================================
Set Obfs = Server.CreateObject("Scripting.FileSystemObject")
Set Obj = Obfs.GetFolder(Caminho)
Set oRs = Obj.files
dim images(1000)'array
images(0)=0
images(1)=1
dim contador2
contador2 = 2
For each f1 in ors
images(contador2) = f1.name
contador2 = contador2 + 1
next
'=========================================================================================
%>
<html>
<head>
<style>
a {text-decoration:none;}
</style>
<link rel="stylesheet" type="text/css" href="atafpicgallery.css">
<title>teste</title>
</head>
<body topmargin="0" leftmargin="0" >
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top">
<%
If searchok=true then
Indexno=0
Response.write "<table border="+qu+"0"+qu+">"
If (Instr(Cstr(MaxRegs/Maxporpagina),".")>0) or (Instr(Cstr(MaxRegs/Maxporpagina),",")>0) Then
Paginas=Int(MaxRegs/Maxporpagina)+1
Else
Paginas=Int(MaxRegs/Maxporpagina)
End if
response.write "<tr>"
Response.write "</table>"
'Paginção ====================================================================================================
dim img
If Cint(curpage)>1 Then
Moveforward=(Cint(curpage)-1)*Maxporpagina
For a= 1 to Moveforward
If images(Moveforward) <> "" Then
Indexno=Indexno+1
End if
Next
end if
a=1
b=0
actuelpic = 1
while (images(Indexno) <> "") And (actuelpic<=Maxporpagina)
actuelpic=actuelpic+1
Indexno=Indexno+1
b=b+1
If a=1 Then
Response.write "<tr>"+Crlf
End if
If Cint(curpage)>1 Then
img = images(Indexno)
else
img = images(actuelpic)
end if
Response.write "<td>"
Response.write "<table align='center' valign='top' border="+qu+"0"+qu+">"
Response.write "<tr>"
Response.write "<td height="+qu+alturaMax+qu+" valign="+qu+"top"+qu+" align="+qu+"center"+qu+" style="+qu+"border: 0 solid #C0C0C0"+qu+">"
TempWidth= larguraMax
TempHeight= alturaMax
If TempWidth>TempHeight Then
Maxnnumber=TempWidth
Else
Maxnnumber=TempHeight
End if
FactorPic=Maxnnumber/larguraMax
TempWidth=Cint(TempWidth/FactorPic)
TempHeight=Cint(TempHeight/FactorPic)
if img <> "" and img <> "Thumbs.db" then
Response.Write "<a href='big.asp?id="&img&"' &w="&w(img)&"&h=" &h(img)&"' Target='big' >"
Response.Write "<img src='thumb.aspx?id=" & img & "&scl="&scale&"&w="&w(img)&"&h="&h(img)&"' border='0' ></a>"
dim img2, img3
img2 = ""&left(img,8)&""
img3 = ""&right(img2,1)&""
if img3 = "-" then
img2 = ""&left(img,15)&""
end if
Response.Write "<br>"& img2
end if
Response.write "</td>"
Response.write "</tr>"
Response.write "</table>"
Response.write "</td>"+CrLf
If a=colunas Then
Response.write "</tr>"+Crlf
End if
a=a+1
if a>colunas then a=1
' images(Indexno)
Wend
Response.write "<tr>"
Response.write "<td colspan="+qu+Cstr(colunas)+qu+" align="+qu+"center"+qu+">"
TmpPage=Int(curpage)-1
If TmpPage<=0 Then TMpPage=Paginas
if paginas > 1 then
Response.write "<a href='01.asp?curpage="+cstr(TmpPage)+"'><img alt="+qu+"Click para voltar"+qu+" border="+qu+"0"+qu+" src="+qu+"iconnextleftsmall.gif"+qu+" width="+qu+"10"+qu+" height="+qu+"10"+qu+" align="+qu+"center"+qu+" hspace="+qu+"0"+qu+" vspace="+qu+"0"+qu+"></a>  "
For a= 1 to Paginas
If a=Int(curpage) Then
Response.write "<b>("+Cstr(a)+")</b> "
Else
Response.write "<a href='01.asp?curpage="+cstr(a)+"'>"+Cstr(a)+"</a> "
End if
next
TmpPage=Int(curpage)+1
If TmpPage>Paginas Then TMpPage=1
Response.write "<a href='01.asp?curpage="+cstr(TmpPage)+"'><img alt="+qu+"Click para avançar"+qu+" border="+qu+"0"+qu+" src="+qu+"iconnextrightsmall.gif"+qu+" width="+qu+"10"+qu+" height="+qu+"10"+qu+" align="+qu+"center"+qu+" hspace="+qu+"0"+qu+" vspace="+qu+"0"+qu+"></a>  "
response.write "</td>"
Response.write "</tr>"
End if
Response.write "</table>"
%>
</td>
</tr>
</table>
</body>
<%end if%><%end if%>

alguém poderia me ajudar???

Se é um objeto onde o encontro?

ursolouco · Outubro 29, 2003

Pelo que erro o objeto não existe no servido em que hospedei... é isso?

Brother!!!

Acredito que seja isto também. Falha na criação do objeto dentro do servidor. Componente de criação não localizado.

Há uma versão do AspJpg para download no site do pegar, mas vou avisando que nunca usei ou baixei este componente.

Espero que lhe ajude.

Abraços!!!

Entrar

Persist.jpeg

Pergunta

Noid

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

ursolouco

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades