Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

marcioadrmachado

aspupload

Por , em ASP Clássico

Recommended Posts

marcioadrmachado    0

marcioadrmachado
Postado

ol[a pessoal to fazendo upload para meu site mas ta dando erro o endereço é este:

 

 

http://www.romanceweb.com.br/upload.asp

 

qdo eu cadastro a foto ele da o seguinte erro?

 

 

HTTP 500 - erro interno do servidor

Internet Explorer

 

 

só que o arquivo esta no servidor e não aparece as mensagens amigáveis

 

o código é este:

 

 

 

<HTML>

<BODY>

<%

SET Conexao = Server.CreateObject("AdoDB.Connection")

Conexao.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=..\romanceweb.com.br\db\siteusers.mdb"

 

 

SET UPLOAD = Server.CreateObject("Persits.Upload")

 

Upload.OverwriteFiles = False

Upload.Save "..\romanceweb.com.br\upload"

Upload.OverwriteFiles = False

Upload.Save "..\romanceweb.com.br\upload"

 

For Each File in Upload.Files

foto = File.FileName

Next

 

SET RS = Server.CreateObject("AdoDB.RecordSet")

Conexao.Execute("INSERT INTO users (foto) VALUES ('" & foto & "')")

SET RS = Nothing

 

For Each File in Upload.Files

foto = File.FileName

SET RS = Server.CreateObject("AdoDB.RecordSet")

Conexao.Execute("INSERT INTO users (foto) VALUES ('" & foto & "')")

SET RS = Nothing

NEXT

 

SET UPLOAD = NOTHING

 

For Each File in Upload.Files

If File.ImageType = "UNKNOWN" Then

response.write "não é uma imagem valida"

End If

Next

 

</BODY>

</HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

oiO Erro 500 não lhe fornece muitas informações sobre o erro de programação.Para mudar isso, faça assim:Vá em:- Painel de Controle- Opções de Internet- Guia Avançado- Navegação e desmarque a opção "Mostrar mensagens de erro http amigáveis"Rode seu script Novamente, e veja o erro real dele!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

quando tiver o erro real, apos os passos do dark, você posta aqui...

Compartilhar este post

Link para o post
Compartilhar em outros sites

naoliveira    0

naoliveira
Postado

O problema está neste bocado de código, quando fazes uma upload=nothing depois já não podes aceder ao seu conteudo pois este já não existe.SET UPLOAD = NOTHING <== Aqui eliminas a variávelFor Each File in Upload.Files <==== Aqui já não podes aceder a essa variávelIf File.ImageType = "UNKNOWN" Thenresponse.write "não é uma imagem valida"End IfNext

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

essa linhaSET UPLOAD = NOTHING não pode ficar antes deFor Each File in Upload.Files poe o SET UP...pro fime posta o proximo erro...PS: pode ser o mesmo mas acho que em outro lugar, eheheh

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito