Limitar O Upload .jpg Ou . Gif

[neko almeida]

alguém pode me ajudar com este codigo?

Queria limitar o tamanho e os tipos de arquivo para upload

<%
Dim Upload
Set Upload = Server.CreateObject("aspSmartUpload.SmartUpload")
Upload.Upload
Upload.Save("fotos")
If Err <> 0 Then
Response.Write Err.Description & " " & Err.Number & "<br>"
Response.Write "<font face=Arial size=2><b>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<br><a href=javascript:history.back(-1)>Voltar</a> </b></font>"
Else
Response.Write "<font face=Arial size=2><b>Seus dados foram carregados com sucesso!</b></font>"
End If
%>

[ursolouco]

Brother!!!

Limitando tamanho:

objUpLoad.MaxFileSize = Tamanho(bytes)

Se não me engano, era mais ou menos isso aki pra limitar arquivos

objUpLoad.AllowedFilesList ="jpg,gif,bmp"

Veja se pode lhe ajudar.

Abraços!!

[urso]

[Guest - nekoalmeida -]

Vou tentar Urso, obrigado mesmo

Abraços

[Guest - Neko Almeida -]

CAra funcionou certinho, mas to com outro problema agora.

Será que vocês podem me ajudar?

Seguinte, coloquei esse if e se or verdadeiro ta dando erro , já no else unciona certo.

If Err <> 0 Then
Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<br><a href=javascript:history.back(-1)>Voltar</a> </b></font>"
Else
Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Seus dados foram carregados com sucesso!</b></font>"
End If

Onde será que to errando?

Obrigado desde já pela ajuda

Abraos