[Resolvido] Erro no Upload

[fabio Avila 1]

Ola amigos,

 

Estou fazendo um sistema de cadastros de atletas e estou com problemas na hora de fazer upload das fotos , independente do formato da imagem ou tamanho ele não faz o upload e da o mesmo erro dizendo que não é formato valido nem tamanho abaixo abaixo o codigo:

 

<%

set conexao = server.CreateObject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("contato.mdb")
conexao.open constr

server.scripttimeout=10000

On Error Resume Next

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.AllowedFilesList = "jpg,gif"

mySmartUpload.MaxFileSize = 200000

mySmartUpload.TotalMaxFileSize = 50000

' executa o upload
mySmartUpload.Upload

' vamos agora escrever na tela as informações recebidas do Formulário
response.write(mySmartUpload.form("nome"))
response.write(mySmartUpload.form("login"))
response.write(mySmartUpload.form("senha"))
response.write(mySmartUpload.form("email"))

' tratando a foto do Formulário

For each file In mySmartUpload.Files
If not file.IsMissing Then
file.SaveAs("fotos" & file.FileName)
End If
Next

' tratando eventuais erros
If Err.number>0 Then
Response.Write("<p><br><br>Um dos seguintes erros aconteceu: você tentou subir um arquivo cuja terminação não é GIF nem JPG. Ou então a imagem que você subiu é maior que 8.000 bytes(8 kb. ). A operação foi cancelada. Por favor tente de novo. ")
response.end
End If

'else
set rs = conexao.execute("INSERT INTO users (nome,login,senha,email,foto) Values ('"&nome&"','"&login&"','"&senha& "','"&email&"','"&foto&"')")
if err=0 then
response.Write("<div align='center'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><strong><font size='3'>Cadastro realizado com sucesso!</font></strong><br><br><em><a href='login.asp'>Efetuar login</a></em></font></div>")
Response.End

else
response.Write("<div align='center'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><strong><font size='3'>Ocorreu algum erro durante o cadastro.</font></strong><br>Para maiores informações contate o webmaster.</font></div>")
Response.End
END IF
'END IF
%>

Abrços

[hargon 64]

For Each File In mySmartUpload.Files
Response.Write(file.AllowedFilesList & "<br>")
Next
Response.End

Poste o resultado.

[fabio Avila 1]

Ola Hargon beleza

 

Cara n apresentou mais o erro porém n cadastrou nada...

 

Abcs

[Mário Monteiro 179]

Conforme foi solicitado post o resultado que surgiu na tela

[fabio Avila 1]

Bom Dia Mário ,

 

Encontrei erro .. na verdade falta total de atenção minha..desculpas ae galera.. pois n estava funcionando pq não tinha SmartUpload no servidor .. de qualquer forma obrigado..

 

Abraços