[Resolvido] UpLoad Vazio - Erro!

[Zé Luiz - Dainet 0]

Tenho uma página onde o usuario escolher o arquivo que quer enviar.

 

<form method="POST" enctype="multipart/form-data" action="upload.asp"><span class="texto"><font color="#FF0000"></font><br>
<br>
<br>
</span> 
<input type=FILE size=30 name="arquivo" class="qt1">
<input type=SUBMIT value="Enviar" class="bot" name="SUBMIT">
</form

ai uma página q faz o UPLOAD.

 

<%
modo = Request.QueryString("modo")
%>
<%
cod = Request.Cookies("cid")
%>
<%
if modo = "arquivook" then
%>
<%
response.Redirect("envia_email.asp")
%>
<%
else
%>
<% 
'upload do arquivo
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = "e:\home\fundecto\Web\inscricoes_premio\word\"
upl.Save

'separa o nome do arquivo
nome = Mid(upl.UserFilename, InstrRev(upl.UserFilename, "\") + 1)
Set upl = Nothing

tipo = Right(nome,3)
%>
<%
if tipo <> "doc" and tipo <> "pdf" then 
%>
<center><br><font face='verdana' style='font-size: 10px;'><br><br><br><br><br><br>Formato Inválido. É permitido somente arquivos Word (.doc) ou PDF.<br><br>Retorne e tente novamente <br><br><a href='java script:history.go(-1)'>voltar</a></font></center>
<%
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fileObject = FSO.GetFile("e:\home\fundecto\Web\inscricoes_premio\word\" & nome)
fileObject.Delete
Set FSO = Nothing

else

'renomeia o arquivo
dim FSO
set FSO=Server.CreateObject("Scripting.FileSystemObject")
FSO.MoveFile "e:\home\fundecto\Web\inscricoes_premio\word\" & nome,"e:\home\fundecto\Web\inscricoes_premio\word\" & cod & "." & tipo		
Set FSO = Nothing

response.redirect("upload.asp?modo=arquivook")
'response.Write cod
end if
%>
<%
end if
%>

preciso bloquear para que ele não envie vazio, pois dá erro.

 

Me ajudem.

[Zé Luiz - Dainet 0]

[resolvido]

 

 

<script language="Javascript">
function vai() {
	if (document.form.FILE1.value=="") {
	alert("Por favor, procure o arquivo a ser anexado.")
	document.form.FILE1.focus();
	return false
	}
}


</script>


------


  <form name="form" method="POST" enctype="multipart/form-data" action="upload.asp">
  <span class="texto"><font color="#FF0000"></font><br>
<br>
<br>
</span> 
<input type=FILE size=30 name="FILE1" class="qt1">
<input type=SUBMIT value="Enviar" class="bot" name="SUBMIT" onClick="return vai();">
</form >

 

Obrigado a todos