Dundas

[rstoever]

Ae pessoal.

Estou fazendo um upload com o dundas, e quando eu mando executar o upload ele cria o arquivo

Ex.:

O usuário digita

<input type=file>[cachorro]

E ele deveria digitar corretamente

<input type=file>[C:\Meus Documentos\arquivo.doc]

<input type=submit>

E no On error resume next ele não verificar isso, mas quando o usuário digita cachorro o dundas cria um arquivo zerado com o nome de cachorro, por exemplo.

Eu queria somente que o componente verificasse se é um upload que está fazendo e fazendo corretamente, não criar um arquivo.

Valeu

Rafael Stoever

[Eddie_666]

Não entendi, espero que alguém tenha entendido...

[franciscobiscaino]

o componete está instaldo corretamente e ele esta inicializado ?????? no seu iis ?????

[rstoever]

Assim ...

tem o campo para colcar o caminho onde está o arquivo local com um botão de procurar para ajudar o usuário.

Mas ele quer sacanear e digita qualquer coisa.

Ai quando ele dá um submit ele faz o upload normalmente quando tem o arquivo, mas caso ele tenha informado qualquer coisa, o Dundas está criando o arquivo que o usuário escreveu, como por exemplo "fasdfasf"

E isso não pode.

Ex.:

(1)==========

<form ENCTYPE="multipart/form-data" method="post" action="upload.asp">

<input NAME="File1" TYPE="file">

<input type=submit>

</form>

============

(2)==========

<form ENCTYPE="multipart/form-data" method="post" action="upload.asp">

<input NAME="File1" TYPE="file"> [o usuário digita aqui alguma porcaria -> "fasdfa"]

<input type=submit> [o usuário clica em submit]

</form>

============

(2)==========

'upload.asp

'Ele não faz o upload e sim grava um arquivo fasdfa

Dim nomearquivo, objUpload, objUploadedFile, destdir, Object, fldr

fldr = "../Downloads/"

destdir = (fldr)

On Error Resume Next

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

objUpload.UseVirtualDir = True

objUpload.UseUniqueNames = false

objUpload.Save destdir

If Err <> 0 Then

ok = false

on error goto 0

' erro 1 : Não gravou

%><script Language="VBScript">

Dim MyVar

MyVar = MsgBox ("Problemas ao inserir o documento !", 16)

</script><%

Elseif (err = 0) then

For Each objUploadedFile in objUpload.Files

nomearquivo = Right(objUploadedFile.path,Len(objUploadedFile.path)-InstrRev(objUploadedFile.path,"\", -1, 1))

response.write "Arquivo " & nomearquivo & " - " & objUploadedFile.size & "Kb salvo com sucesso !"

Next

==========

[]'s

Rafael Stoever

[rstoever]

E ai.. não tem como isso não ocorrer ???