Anexar

[gu_lt]

Bem acabei de aprender como inserir e depois recuperar uma imagem via ASP em minha máquina local, o que é muito simples.

A minha dúvida é como faço isso online, ou seja, como o usuário ira inserir a figura.

Se alguém puder me dar uma luz eu agredeceria!

Gustavo

[dark0]

Brother, para isso, você usará UPLOAD.

Já ouviu falar? Sabe o que é?

Comece verificando à qual componente de UPLOAD seu servidor dá suporte.

Depois a gente vê o resto!

Abraços

[gu_lt]

Olha eu nunca ouvi falar sobre isto mais vou perguntar pro pessoal do meu servidor. Perguntando lá eu do um toque aqui!!!

valeu

Gustavo

[cyberalexxx]

Caso seu servidor não disponibilize algum componente, faça uma busca no forum (acho que no tutoriais ou será funções, bom da uma olhada) tem um código de upload sem componentes

[gu_lt]

Os componentes são o seguintes: Dundas Upload, AspSmartUpload;

Gustavo

[dnlmosilva]

Fala Gustavo...

acessa esses links..

http://www.mco2.com.br/suporte_componentes_dundas_upload.asp

http://www.aspsmart.com/aspSmartUpload/

Caso esse dois não te ajude, ainda tem a busca no google...

http://www.google.com.br/search?q=dundas%2...&hl=pt-BR&meta=

Você vai precisar dar permissão de gravação na pasta onde você vai estar salvando essas imagens... Isso, talvez, poderá ser feito apenas pelo pessoal que cuida do seu servidor valeu?!

Abraços Daniel

[gu_lt]

Galera eu estou usando o seguinte código:

<%@language = "vbscript"%>

<%

Dim objUpload

Set objUpload = Server.CreateObject("Dundas.Upload.2")

objUpload.MaxFileSize = 150000

objUpload.UseVirtualDir = True

objUpload.Save "c:\guga"

Set objUpload = Nothing

Response.Write "Upload efetuado com sucesso"

%>

O erro que esta retornando é o seguinte:

Objeto Server error 'ASP 0177 : 800401f3'

Falha em Server.CreateObject

/temp/upload.asp, line 4

800401f3

Será que alguém me daria um help?

Valeu

Gustavo

[dnlmosilva]

cara no tópico de funções tem um post com um esquema para testar componentes no servidor...

Pega ele lá e da uma olhada se seu servidor suporta dudas.upload...

Tah me parecendo que lá não tem esse componente instalado

[]s Daniel!

[gu_lt]

Bem eu cometi um erro grave aqui, eu testei na minha máquina local, mas quando eu publiquei no meu site ele deu um erro HTTP 500. Eu já modifiquei a linha do objUpload.Save, onde eu coloquei uma pasta existem no servidor.

O que há de errado?

OBS: So para informar este endereço, http://www.hostsys.net/plano.asp?ID=Start, é onde mostra todos os componentes disponíbiizados pelo meu servidor.

Gustavo

[dnlmosilva]

Então, qual o erro que mostra?!

Você liberou permissão para gravação no servidor também?!

[]s Daniel

[dark0]

Erro 500 é um erro genérico do IE.

Abra opções de Internet, Avançadas, Procure por Mostrar Mensagens de erro http amigaveis, desmarque.

rode o codigo de novo, e veja o erro

[gu_lt]

O erro que está dando é este:

Dundas.Upload.2 error '80004005'

Failed to get the boundary.

/upload.asp, line 9

Caso queiram testar: http://www.designandmaster.com/upload.htm

Gustavo

[Victor]

Set objUpload = Server.CreateObject("Dundas.Upload.1")

falou

[]'s

Victor

[gu_lt]

Vitor eu coloquei Dundas.Upload.1, e não deu certo cara!!

valeu

Gustavo

[dark0]

gustavo, seu servidor dá suporte ao DUNDAS Upload?

Pois, o erro que deu aqui foi:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/upload.asp, line 4

800401f3

Esse erro dá quando você está tentando rodar um codigo pra um componente, e o mesmo não está instalado.

Veja se o componente está instalado aí.

Na duvida, rode o codigo que mostra os componentes instalados, que está no tópico de funções!

Abraços

[gu_lt]

Bem eu já tinha perguntado isto pro suporte do meu servidor e eles me disseram que está instalado, mas eu vou verificar com o códigos que vocês me disseram que está no tópicos de funções valeu galera!

Gustavo

[gu_lt]

Bem galera eu no achei o código pra testar a instalação do componente, mas o suporte do servidor disse que está instalado, mas podem ficar tranquilo eu vou dar mais uma procura na net pra ver se eu acho, caso isso acontece eu posto aqui beleza!!!

valeu

Gustavo

[dark0]

brother, se o codigo que lista os componentes não mostrou, é porque NÃO tá instalado!

Por mais que o suporte diga que tá, NãO tá!

Fala pro suporte te dar um CODIGO pronto, que funcione no servidor dele. Se ele se negar a dar, bata o pé, dizendo que não tem instalado!

Abraços

[gu_lt]

beleza cara vou falar com eles lá, valeu

gustavo

[cyberalexxx]

O script que tem aqui no forum para verificar componentes, não verifica se o Dundas Upload esta instaldo.

Voce adaptou o script???

Caso não rode o script que eu adaptei:

<% @ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponent(12)
Dim theComponentName(12)

' 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) = "Dundas.Upload.2"

' apelido do componente!
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) = "Dundas Upload"

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 q 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%">
        <% 
  Dim i
        For i=0 to UBound(theComponent)
      If Not IsObjInstalled(theComponent(i)) Then
      
  Else
            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
    Next 
    %>
  </table>
</font> 
</td>
  </tr>
</table>

</body>
</html>

[gu_lt]

Bem galera eu contactei o suporte do meu servidor e eles estão verificando o problema, segundo eles suporte ao Upload Dundas está instalado eles até me passaram o çodigo que é o mesmo que eu estava usando.

Enfim eles verificaram que o servidor está com algum problema e estão procurando uma solução!!!

Muito obrigado

Gustavo

[dark0]

Hehehe

É isso aí!

Nem sempre os culpados dos problemas somos nós, né

Boa sorte aí!

Abraços