Jump to content


Photo

Problemas Com Validação De Campo


  • Faça o login para participar
3 replies to this topic

#1 douglasalonso

douglasalonso

    Novato no fórum

  • Usuários
  • 4 posts
  • Sexo:Não informado

Posted 30/06/2004, 09:31

Pessoal to usando o ASPUPLOAD e estou com o seguinte problema tenho 4 caixas de texto no form onde posso selecionar até 4 imagens para o meu registro.

Estes quatro campos FILE
<input name="txturl1" type="file" id="txturl1" size="50" maxlength="100" >

Quando eu deixo uma ou mais caixas de texto em branco, sem selecionar figura recebo a msg de erro abaixo. Caso contrario grava e faz o upload corretamente.

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A01A8)
Objeto necessário: 'Upload.Files(...)'
/loja/admin/produtos_conf.asp, line 40

Tentei fazer uma rotina em javascript que verificasse se a caixa esta vázia e atribuisse um valor padrão pra ela, mais não consigo, acho que é por causa do tipo "File".

Alguem tem uma dica para este problema.

#2 Info_Tec

Info_Tec

    Servo do DEUS VIVO!

  • Usuários
  • 398 posts
  • Sexo:Não informado
  • Localidade:Entre a cadeira e o teclado
  • Interesses:Jesus, minha esposa e filha.<br>ASP, Lógica de programação, Projeto de Estradas, $$$ que tô precisando!

Posted 30/06/2004, 12:18

Campo tipo File não aceita Value padrão. Mostre sua rotina de Upload que veremos a solução.
A cada minuto está mais perto.
Aceite JESUS como seu único e suficiente salvador!
_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
Fórum HOSANAS, venha conversar e se engrandecer com a palavra de DEUS.
Host: ASPECTO, Hospedagem ASP com qualidade e bom preço.

#3 douglasalonso

douglasalonso

    Novato no fórum

  • Usuários
  • 4 posts
  • Sexo:Não informado

Posted 30/06/2004, 12:56

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#Include File=FuncoesDB.Asp-->

<% Conectar() %>

<%
'Verifca campos com valou nulo
Sub Verifica()
if vdisp ="" then vdisp ="false" end if
if vpromocao="" then vpromocao="false" end if
if vvitrine ="" then vvitrine ="false" end if
if vlanca ="" then vlanca ="false" end if
if vvisivel ="" then vvisivel ="false" end if
End Sub
%>

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.IgnoreNoPost = True
Upload.OverWriteFiles = False
Contador = Upload.Save("c:\upload")

vproduto =Upload.Form("txtproduto")
vfornecedor=Upload.Form("txtfornecedor")
vcategoria =Upload.Form("txtcategoria")
vdescricao =Upload.Form("txtdescricao")
vpreco =Upload.Form("txtpreco")
vprecopro =Upload.Form("txtprecopro")
vprecor =Upload.Form("txtprecorev")
vpeso =Upload.Form("txtpeso")
vdimensao =Upload.Form("txtdimensao")

vurl1 =Upload.Files("txturl1").ExtractFileName
vurl2 =Upload.Files("txturl2").ExtractFileName
vurl3 =Upload.Files("txturl3").ExtractFileName
vurl4 =Upload.Files("txturl4").ExtractFileName

vdisp =Upload.Form("txtdisp")
vpromocao =Upload.Form("txtpromocao")
vvitrine =Upload.Form("txtvitrine")
vlanca =Upload.Form("txtlanca")
vvisivel =Upload.Form("txtvisivel")

call Verifica

Dim Cmd_insere

Cmd_insere="INSERT INTO produtos ( p_produto, p_codfor, p_codcat, p_descricao, p_precounit, " _
& "p_precopromocao, p_precorev, p_urlimagem1, p_urlimagem2, p_urlimagem3, p_urlimagem4, p_peso, " _
& "p_dimensao, p_disponivel, p_vitrine, p_promocao, p_visivel, p_lancamento ) values" _
& "('" & vproduto &"',"& vfornecedor &"," & vcategoria & ",'" & vdescricao & "'," & vpreco _
& "," & vprecopro &","& vprecor& ",'" & vurl1 & "','" & vurl2 & "','" & vurl3 & "','" & vurl4 & "','" & vpeso _
& "','" & vdimensao & "'," & vdisp & "," & vvitrine & "," & vpromocao & "," & vvisivel & "," & vlanca &")"

Response.Write Cmd_insere
cn.Execute Cmd_insere

Response.Write "Produto:" & vproduto
Desconectar()


Set Upload = Nothing
Response.Redirect("produtos.asp")
%>

#4 douglasalonso

douglasalonso

    Novato no fórum

  • Usuários
  • 4 posts
  • Sexo:Não informado

Posted 30/06/2004, 13:10

E esse código abaixo chama a página que faz a insercao e o upload

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#Include File=FuncoesDB.Asp-->

<script language="JavaScript">
function valida()
{
forn=document.form1.txtfornecedor.value
if (forn=="")
{alert("Selecione o Fornecedor")
document.form1.txtfornecedor.focus()
return(false)}

cat=document.form1.txtcategoria.value
if (cat=="")
{alert("Selecione a Categoria")
document.form1.txtcategoria.focus()
return(false)}

produto=document.form1.txtproduto.value
if (produto=="")
{alert("Digite o nome do Produto")
document.form1.txtproduto.focus()
return(false)}

descricao=document.form1.txtdescricao.value
if (descricao=="")
{alert("Digite a descrição do Produto")
document.form1.txtdescricao.focus()
return(false)}

preco=document.form1.txtpreco.value
if (preco=="")
{alert("Digite o preço do Produto")
document.form1.txtpreco.focus()
return(false)}

}

function checa()
{
url1=document.form1.txturl1.value
if (url1=="")
{document.form1.txturl1.value="vazio"
alert("passei")}
}
</Script>

<%conectar()%>

<% 'Cria RecordSet para Combos Fornecedores e Categorias
Dim Rs_forn, Qf
Set Rs_forn=Server.CreateObject("ADODB.RecordSet")
Qf="Select * from fornecedores order by f_nome"
Rs_forn.Open Qf,Cn

Dim Rs_cat, Qc
Set Rs_cat=Server.CreateObject("ADODB.RecordSet")
Qc="Select * from categorias order by c_categoria"
Rs_cat.Open Qc,Cn
%>




<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR...ml4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Produtos</title>
<style type="text/css">
<!--
body,td,th {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 9px;
}
.style2 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
</head>

<body>



<table width="333" border="1" cellpadding="2" cellspacing="0" bordercolor="#006699">
<tr>
<td width="325" bgcolor="#006699"><span class="style2">INSERIR PRODUTO</span></td>
</tr>
<tr>
<td valign="top" bgcolor="#F4F4F4"><form action="produtos_conf.asp" method="post" ENCTYPE="multipart/form-data" name="form1" onSubmit="checa()">
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr>
<td width="100%"><table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td>C&oacute;digo</td>
<td>Produto</td>
</tr>
<tr>
<td><input name="textfield" type="text" disabled value="" size="5" maxlength="10"></td>
<td><input name="txtproduto" type="text" id="txtproduto" value="" size="40" maxlength="60"></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td>Fornecedor</td>
</tr>
<tr>
<td><select name="txtfornecedor" id="txtfornecedor">
<%
do while not rs_forn.eof
Response.Write "<option value="& rs_forn("f_id") &">" &rs_forn("f_id")&" - "& rs_forn("f_nome") & "</option>"
rs_forn.movenext
loop
%>
</select></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td>Categoria</td>
</tr>
<tr>
<td><select name="txtcategoria" id="txtcategoria">
<%do while not rs_cat.eof
Response.Write "<option value="& rs_cat("c_id") &">" & rs_cat("c_categoria") & "</option>"
rs_cat.movenext
loop
%>
</select></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td>Descri&ccedil;&atilde;o</td>
</tr>
<tr>
<td><textarea name="txtdescricao" cols="50" rows="6" id="txtdescricao"></textarea></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr align="center">
<td width="19%"><div align="left">Pre&ccedil;o Unit&aacute;rio</div></td>
<td width="20%"><div align="left">Pre&ccedil;o Promo&ccedil;&atilde;o</div></td>
<td width="19%">Pre&ccedil;o Revenda </td>
<td width="19%"><div align="left">Peso</div></td>
<td width="42%"><div align="left">Dimens&atilde;o</div></td>
</tr>
<tr>
<td><input name="txtpreco" type="text" id="txtpreco" value="0" size="12"></td>
<td><input name="txtprecopro" type="text" id="txtprecopro" value="0" size="12"></td>
<td><input name="txtprecorev" type="text" id="txtprecorev" value="0" size="12"></td>
<td><input name="txtpeso" type="text" id="txtpeso" value="0" size="12"></td>
<td><input name="txtdimensao" type="text" id="txtdimensao" value="0" size="12"></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="80%" colspan="2">URL das Imagens </td>
<td width="20%">&nbsp;</td>
</tr>
<tr>
<td>1&ordf; </td>
<td><input name="txturl1" type="file" id="txturl1" size="50" maxlength="100" ></td>
<td>&nbsp;</td>
</tr>
<tr>
<td>2&ordf; </td>
<td><input name="txturl2" type="file" id="txturl2" size="50" maxlength="100" ></td>
<td>&nbsp;</td>
</tr>
<tr>
<td>3&ordf; </td>
<td><input name="txturl3" type="file" id="txturl3" size="50" maxlength="100" ></td>
<td>&nbsp;</td>
</tr>
<tr>
<td>4&ordf; </td>
<td><input name="txturl4" type="file" id="txturl4" size="50" maxlength="100" ></td>
<td>&nbsp;</td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr align="center">
<td>Vis&iacute;vel</td>
<td>Promo&ccedil;&atilde;o</td>
<td>Vitrine</td>
<td>Lan&ccedil;amento</td>
<td>Dispon&iacute;vel</td>
</tr>
<tr>
<td><div align="center">
<input name="txtvisivel" type="checkbox" id="txtvisivel" value="true" checked>
</div></td>
<td><div align="center">
<input name="txtpromocao" type="checkbox" id="txtpromocao" value="true">
</div></td>
<td><div align="center">
<input name="txtvitrine" type="checkbox" id="txtvitrine" value="true">
</div></td>
<td><div align="center">
<input name="txtlanca" type="checkbox" id="txtlanca" value="true">
</div></td>
<td><div align="center">
<input name="txtdisp" type="checkbox" id="txtdisp" value="true">
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td><input onclick="return valida()" type="submit" name="Submit" value="Confirmar">
<input type="reset" name="Reset" value="Cancelar"></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
<%
Rs_forn.Close
Set Rs_forn=Nothing

Rs_cat.Close
Set Rs_cat=Nothing

desconectar()
%>




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq