Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

fabiosc80

Problemas com Update

Por , em ASP Clássico

Recommended Posts

fabiosc80    0

fabiosc80
Postado

Estou fazendo uma pagina pagina de update no qual tem dois campos file para imagens.

 

Acontece que ele nao atualiza as duas imagens, atualiza a imagem do campo foto pequena apenas.

 

e quando peço pra atualizar a imagem grande ela nao traz nada ja na pequena ele traz cadastra a mesma immgem pros dois campos.

 

Abaixo esta o código dsa pagina 1 e 2 para analise. Queria saber oque esta eerradoi.

 

Abaixo as paginsas

 

PAGE1:

 

<!--#include file="conexao.asp"--><% Dim Sql,SQL1,Sql3,TB,TB2,TB3,TB4,Categoria,frmprodsub,Empresafrmprodsub = request.form("subprod")Empresa = request.form("Empresa")Categoria = request.form("Categoria")Sql1 = "Select * FROM produto WHERE codigocategoria in ( select codigocategoria from categoria where codigoempresa = " & Empresa & ")"Sql3 = "Select * From Empresa where codigoEmpresa =" & empresaSql4 = "Select * FROM produto WHERE CodigoProduto =" & frmprodsub Sql2 = "select * FROM categoria WHERE codigocategoria = "& CategoriaDim BC : AbreBancoSet TB2 = BC.Execute(Sql1)Set TB = BC.Execute(Sql3)Set TB3 = BC.Execute(Sql2)Set TB4 = BC.Execute(Sql4)%> <html><head>	<title>Untitled</title></head><body><p> </p><center><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="70%" id="AutoNumber2">  <tr>    <td width="33%">      <center>      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="86%" id="AutoNumber1">  <tr>    <td width="100%" align="center">	<font face="Tahoma" size="2" color="#230697"><b><%=TB("Nome")%>>>><%=TB3("NomeCategoria")%>>>><%=TB4("NomeProduto")%></b></font>   	<font face="Tahoma" size="2" color="#230697">[<a href="prodcatExcluir.asp?cod=<%=TB4("CodigoProduto")%>"><b>X</b></a>]<br></font>	</td>  </tr>	  <tr>  <td> <table>  <tr>    <td width="100%" bgcolor="#FFFFFF">      <center>      <table border="0" cellpadding="0" cellspacing="0">      <form name=categoria method=post action=cadprodsubprod2.asp enctype="multipart/form-data">   <input type="Hidden" name="CodigoProduto" value="<%=TB4("CodigoProduto")%>">         <tr>          <td width="100%">     <table border="0" cellspacing="0">            <tr>              <td width="27%" align="right"><font face="Verdana" size="1">Nome do Produto..: </font></td>              <td width="73%"><font face="Tahoma"><input type=text name=NomeProduto size="47" value="<%=TB4("NomeProduto")%>"></font></td>            </tr>            <tr>              <td width="27%" align="right"><font face="Verdana" size="1">Codigo..: </font></td>              <td width="73%"><font face="Tahoma"><input type=text name=Codigo size="47" value="<%=TB4("Codigo")%>"></font></td> 	 <tr>     <td width="27%" align="right"> </td>     <td width="27%" align="left"><img src="upload/<%=TB4("FotoGrande")%>"></td>            </tr> 	             <tr>              <td width="27%" align="right"><font face="Verdana" size="1">FotoGrande..:</font></td>     <input size="47" name="FotoGrande1" type="hidden" value="<%=TB4("FotoGrande")%>">              <td width="73%"><font face="Tahoma"><input size="47" name="FotoGrande" type="File"></font></td>            </tr> 	 <tr>     <td width="27%" align="right"> </td>     <td width="27%" align="left"><img src="upload/<%=TB4("FotoPequena")%>"></td>            </tr> 	             <tr>              <td width="27%" align="right"><font face="Verdana" size="1">FotoPequena..:</font></td>     <input size="47" name="FotoPequena1" type="hidden" value="<%=TB4("FotoPequena")%>">              <td width="73%"><font face="Tahoma"><input size="47" name="FotoPequena" type="File"></font></td>            </tr> 	             <tr>            <td width="27%" align="center"><font face="Tahoma" size="1" color="#FF0000">Clique em enviar e aguarde...</font></td>            <td width="33%" align="center"><p align="center"><input type=submit value=Salvar></td>            </tr>            </table>        </center>              </td>            </tr>            </form>          </table>   </td>  </tr>	    </table>      </center>	</td>	  </tr>	</table></body></html>

 

PAGE2:

 

<!--#include file="conexao.asp"--><%   Dim CodigoSubCategoria,NomeProduto,Codigo,FotoGrande,FotoPequena,TB'  Variaveis'  *********   Dim mySmartUpload   Dim intCount        '  Criando Objeto'  ***************   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")   mySmartUpload.AllowedFilesList = "gif,jpg,zip,cdr,psd,jpeg,tif,doc,txt,html,htm,png"   mySmartUpload.MaxFileSize = 2000000'  Upload'  ******   mySmartUpload.Upload   CodigoSubCategoria =  mySmartUpload.form("CodigoSubCategoria")  NomeProduto       = Trim(Replace(mySmartUpload.form("NomeProduto"),"'",""))Codigo       = Trim(Replace(mySmartUpload.form("Codigo"),"'",""))For Each file In mySmartUpload.FilesFotoGrande = File.FileNamenextFor Each file In mySmartUpload.FilesFotoPequena = File.FileNamenext '  Salva o arquivo em um caminho virtual'  ****************************************************************************   intCount = mySmartUpload.Save("Upload")%><%Dim SQSQ = ""SQ = SQ & "INSERT INTO Produto"SQ = SQ & "(CodigoSubCategoria,NomeProduto,Codigo,FotoGrande,FotoPequena)"SQ = SQ & "VALUES(            "SQ = SQ & "" & CodigoSubCategoria  & ","SQ = SQ & "'" & NomeProduto  & "',"SQ = SQ & "'" & Codigo  & "',"SQ = SQ & "'" & FotoGrande  & "',"SQ = SQ & "'" & FotoPequena    & "')"Dim BC : AbreBancoSET TB = BC.Execute(SQ)Response.Redirect("perguntaprodsub.asp")%>

Me ajudem por favor

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

você tem que mudar aquiFor Each file In mySmartUpload.FilesFotoGrande = File.FileNamenextFor Each file In mySmartUpload.FilesFotoPequena = File.FileNamenext poe tudo num unico for e separa por virgula por exemplo depois quebra e insere no db

Compartilhar este post

Link para o post
Compartilhar em outros sites

fabiosc80    0

fabiosc80
Postado

você tem que mudar aquiFor Each file In mySmartUpload.FilesFotoGrande = File.FileNamenextFor Each file In mySmartUpload.FilesFotoPequena = File.FileNamenext poe tudo num unico for e separa por virgula por exemplo depois quebra e insere no db

Assim????????????For Each file In mySmartUpload.FilesFotoGrande = File.FileName, FotoPequena = File.FileNamenext

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

não exatamente...For Each file In mySmartUpload.FilesFotos = Fotos & "," & File.FileName nextFotos = MID(Fotos,2)Foto = SPLIT(Fotos,",")FOR I = LBOUND(Foto) TO UBOUND(Foto)aqui você insere as fotos...NEXT

Compartilhar este post

Link para o post
Compartilhar em outros sites

fabiosc80    0

fabiosc80
Postado

não exatamente...For Each file In mySmartUpload.FilesFotos = Fotos & "," & File.FileName nextFotos = MID(Fotos,2)Foto = SPLIT(Fotos,",")FOR I = LBOUND(Foto) TO UBOUND(Foto)aqui você insere as fotos...NEXT

Marioufpa,Desculpa mas nao entendi nada

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

cara você vai ter que juntar todos os arquivo numa variavel só...depois vai separa-los em um array (SPLIT)e usando um for vai montar sua SQL de inserção com as fotos...

Compartilhar este post

Link para o post
Compartilhar em outros sites

abcd_man    0

abcd_man
Postado

não exatamente...For Each file In mySmartUpload.FilesFotos = Fotos & "," & File.FileName nextFotos = MID(Fotos,2)Foto = SPLIT(Fotos,",")FOR I = LBOUND(Foto) TO UBOUND(Foto)aqui você insere as fotos...NEXT

Marioufpa,Desculpa mas nao entendi nada
Não te preocupa, só o Mário entendeu --- Não dá pra ter mais clareza aí Mário?? Também quero entender aki.

Compartilhar este post

Link para o post
Compartilhar em outros sites

abcd_man    0

abcd_man
Postado

cara você vai ter que juntar todos os arquivo numa variavel só...depois vai separa-los em um array (SPLIT)e usando um for vai montar sua SQL de inserção com as fotos...

Meu Deus --> Q Q é isso!!! Dá um exemplo pra eu ver se posso ajudar também.

Compartilhar este post

Link para o post
Compartilhar em outros sites

fabiosc80    0

fabiosc80
Postado

não exatamente...For Each file In mySmartUpload.FilesFotos = Fotos & "," & File.FileName nextFotos = MID(Fotos,2)Foto = SPLIT(Fotos,",")FOR I = LBOUND(Foto) TO UBOUND(Foto)aqui você insere as fotos...NEXT

Nesse exemplo que você colocou aonde esta o outro arquivo nele pra eu ter uma idéia.Isso que nao entendi

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

cara os arquivos ficarão num array, mas nem testei isso...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

cara aquele for vai concatenar os nomes de todos os seus arquivos...faz o seguinte não insere nada, apenas manda exibir o valor que sai depois do for...

Compartilhar este post

Link para o post
Compartilhar em outros sites

fabiosc80    0

fabiosc80
Postado

cara aquele for vai concatenar os nomes de todos os seus arquivos...faz o seguinte não insere nada, apenas manda exibir o valor que sai depois do for...

MarioEu listando assim no for....For Each file In mySmartUpload.FilesFotoGrande = File.FileNameFotoPequena = File.FileNamenext saiu apenas o valor da FOTOPEQUENA repetido duas vezespq?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

manda escrever logo abixo e ve se é o que quer tipo assimFor Each file In mySmartUpload.Filesresponse.write(File.FileName)next testa veja se vem a mesma coisa ou valores diferentes...

Compartilhar este post

Link para o post
Compartilhar em outros sites

fabiosc80    0

fabiosc80
Postado

manda escrever logo abixo e ve se é o que quer tipo assimFor Each file In mySmartUpload.Filesresponse.write(File.FileName)next testa veja se vem a mesma coisa ou valores diferentes...

Mario agora veio certo?PQ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

por que você esta escrevendo um de cada vez...agora armazena os values em um array por exemplo e monta sua SQL

Compartilhar este post

Link para o post
Compartilhar em outros sites

fabiosc80    0

fabiosc80
Postado

por que você esta escrevendo um de cada vez...agora armazena os values em um array por exemplo e monta sua SQL

Pode rir Marioufpa...mas..Eu nao sei fazer array..................nunca fiz..... me ajuda por favor.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

cara é simplessempre vão ser dois arquivos, se for você pode definir o array fora do for e só atribuir os valores dentrose for variavel o numero é melhor concatenar a variavel e dar um SPLIT abaixo do for pra separar os valores...

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito