Problemaço

[fabiosc80 0]

Ola Amigos,Como vcs ja perceberam eu tenho duvidas meio bobas na minha programação ainda. E essa aqui é uma delas:Tenho um código que tem Upload no meio, porem se o campo arquivo nao for preenchido é pra ele deixar cadastrar mesmo assim o resto dos campos.Do jeito que esta por causa do upload ele nao deixa cadastrar em branco. oque fazer?...Abaixo segue o código pois nao sei aonde colocar o tratamento. Alguem pode me ajudar?__________________________________________<!--#include file="conexao.asp"--><%Session.LCID = 1046%><%Dim CodigoJob,DescricaoADM,DescricaoCliente,Data,Arquivo,MemoCodsq = "SELECT Memo.MemoCod AS Memo_MemoCod, Arqui.ArqCod, Arqui.MemoCod AS Arqui_MemoCod, Arqui.Arquivo FROM [Memo] RIGHT JOIN Arqui ON Memo.MemoCod=Arqui.MemoCod" ' Variaveis' ********* Dim mySmartUpload Dim intCount ' Criando Objeto' *************** Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") mySmartUpload.AllowedFilesList = "gif,jpg,zip,cdr,psd,jpeg,tif,doc,txt" mySmartUpload.MaxFileSize = 2000000' Upload' ****** mySmartUpload.Upload CodigoJob = mySmartUpload.form("CodigoJob")DescricaoADM = mySmartUpload.form("DescricaoADM")DescricaoCliente = mySmartUpload.form("DescricaoCliente")Data = Day(Data) & "/" & Month(Data) & "/" & Year(Data)MemoCod = mySmartUpload.form("MemoCod") For Each file In mySmartUpload.FilesArquivo = File.FileNamenext ' Salva o arquivo em um caminho virtual' **************************************************************************** intCount = mySmartUpload.Save("Upload" )Set fso = CreateObject("Scripting.FileSystemObject") Set fileObject = fso.GetFile(Server.MapPath("UPLOAD/"&Arquivo))Arquivo = "A_" & CodigoJob & "_" & Arquivo fileObject.Name = ArquivoSet fileObject = Nothing Set fso = Nothing ' salva em um caminho fisico ' intCount = mySmartUpload.Save("c:\temp\")%><%Dim SQ,SQ1SQ = ""SQ = SQ & "INSERT INTO [Memo] "SQ = SQ & "(CodigoJob,DescricaoADM,Data)"SQ = SQ & "VALUES( "SQ = SQ & "" & CodigoJob & ","SQ = SQ & "'" & DescricaoADM & "',"SQ = SQ & "'" & Data & "')"SQ1 = ""SQ1 = SQ1 & "INSERT INTO Arqui "SQ1 = SQ1 & "(MemoCod,Arquivo)"SQ1 = SQ1 & "VALUES( "SQ1 = SQ1 & "" & MemoCod & ","SQ1 = SQ1 & "'" & Arquivo & "')"Dim BC : AbreBancoDim TB : SET TB = BC.Execute(SQ)if arquivo = "" thenResponse.Redirect("admf2.asp")elseSET TB = BC.Execute(SQ1)end ifResponse.Redirect("admf4.asp")%>_________________________________Abraços desesperadosFábio o Chato

[fabiosc80 0]

Ola Amigos,Como vcs ja perceberam eu tenho duvidas meio bobas na minha programação ainda. E essa aqui é uma delas:Tenho um código que tem Upload no meio, porem se o campo arquivo nao for preenchido é pra ele deixar cadastrar mesmo assim o resto dos campos.Do jeito que esta por causa do upload ele nao deixa cadastrar em branco. oque fazer?...Abaixo segue o código pois nao sei aonde colocar o tratamento. Alguem pode me ajudar?__________________________________________<!--#include file="conexao.asp"--><%Session.LCID = 1046%><%Dim CodigoJob,DescricaoADM,DescricaoCliente,Data,Arquivo,MemoCodsq = "SELECT Memo.MemoCod AS Memo_MemoCod, Arqui.ArqCod, Arqui.MemoCod AS Arqui_MemoCod, Arqui.Arquivo FROM [Memo] RIGHT JOIN Arqui ON Memo.MemoCod=Arqui.MemoCod" ' Variaveis' ********* Dim mySmartUpload Dim intCount ' Criando Objeto' *************** Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") mySmartUpload.AllowedFilesList = "gif,jpg,zip,cdr,psd,jpeg,tif,doc,txt" mySmartUpload.MaxFileSize = 2000000' Upload' ****** mySmartUpload.Upload CodigoJob = mySmartUpload.form("CodigoJob")DescricaoADM = mySmartUpload.form("DescricaoADM")DescricaoCliente = mySmartUpload.form("DescricaoCliente")Data = Day(Data) & "/" & Month(Data) & "/" & Year(Data)MemoCod = mySmartUpload.form("MemoCod") For Each file In mySmartUpload.FilesArquivo = File.FileNamenext ' Salva o arquivo em um caminho virtual' **************************************************************************** intCount = mySmartUpload.Save("Upload" )Set fso = CreateObject("Scripting.FileSystemObject") Set fileObject = fso.GetFile(Server.MapPath("UPLOAD/"&Arquivo))Arquivo = "A_" & CodigoJob & "_" & Arquivo fileObject.Name = ArquivoSet fileObject = Nothing Set fso = Nothing ' salva em um caminho fisico ' intCount = mySmartUpload.Save("c:\temp\")%><%Dim SQ,SQ1SQ = ""SQ = SQ & "INSERT INTO [Memo] "SQ = SQ & "(CodigoJob,DescricaoADM,Data)"SQ = SQ & "VALUES( "SQ = SQ & "" & CodigoJob & ","SQ = SQ & "'" & DescricaoADM & "',"SQ = SQ & "'" & Data & "')"SQ1 = ""SQ1 = SQ1 & "INSERT INTO Arqui "SQ1 = SQ1 & "(MemoCod,Arquivo)"SQ1 = SQ1 & "VALUES( "SQ1 = SQ1 & "" & MemoCod & ","SQ1 = SQ1 & "'" & Arquivo & "')"Dim BC : AbreBancoDim TB : SET TB = BC.Execute(SQ)if arquivo = "" thenResponse.Redirect("admf2.asp")elseSET TB = BC.Execute(SQ1)end ifResponse.Redirect("admf4.asp")%>_________________________________Abraços desesperadosFábio o Chato

Pelo amor de deus alguem sabe como fazer?

[fabiosc80 0]

Alguem ai?

[Salgado 4]

Pelo que percebi são duas SQL's uma cadastra os dados e outra os arquivos, na que cadastra os arquivos você faz um IF "abraçando" ela, verificando se a var "Arquivo" recebeu algun nome, se não recebeu não cadastra, simples não?

[tr374 0]

Ola Amigos,Como vcs ja perceberam eu tenho duvidas meio bobas na minha programação ainda. E essa aqui é uma delas:Tenho um código que tem Upload no meio, porem se o campo arquivo nao for preenchido é pra ele deixar cadastrar mesmo assim o resto dos campos.Do jeito que esta por causa do upload ele nao deixa cadastrar em branco. oque fazer?...Abaixo segue o código pois nao sei aonde colocar o tratamento. Alguem pode me ajudar?__________________________________________<!--#include file="conexao.asp"--><%Session.LCID = 1046%><%Dim CodigoJob,DescricaoADM,DescricaoCliente,Data,Arquivo,MemoCodsq = "SELECT Memo.MemoCod AS Memo_MemoCod, Arqui.ArqCod, Arqui.MemoCod AS Arqui_MemoCod, Arqui.Arquivo FROM [Memo] RIGHT JOIN Arqui ON Memo.MemoCod=Arqui.MemoCod" '  Variaveis'  *********  Dim mySmartUpload  Dim intCount        ' Criando Objeto'  ***************  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")  mySmartUpload.AllowedFilesList = "gif,jpg,zip,cdr,psd,jpeg,tif,doc,txt"  mySmartUpload.MaxFileSize = 2000000'  Upload'  ******  mySmartUpload.Upload  CodigoJob = mySmartUpload.form("CodigoJob")DescricaoADM      = mySmartUpload.form("DescricaoADM")DescricaoCliente      = mySmartUpload.form("DescricaoCliente")Data = Day(Data) & "/" & Month(Data) & "/" & Year(Data)MemoCod = mySmartUpload.form("MemoCod")    For Each file In mySmartUpload.FilesArquivo = File.FileNamenext '  Salva o arquivo em um caminho virtual'  ****************************************************************************  intCount = mySmartUpload.Save("Upload" )Set fso = CreateObject("Scripting.FileSystemObject") Set fileObject = fso.GetFile(Server.MapPath("UPLOAD/"&Arquivo))Arquivo = "A_" & CodigoJob & "_" & Arquivo fileObject.Name = ArquivoSet fileObject = Nothing Set fso = Nothing   ' salva em um caminho fisico  ' intCount = mySmartUpload.Save("c:\temp\")%><%Dim SQ,SQ1SQ = ""SQ = SQ & "INSERT INTO [Memo] "SQ = SQ & "(CodigoJob,DescricaoADM,Data)"SQ = SQ & "VALUES(            "SQ = SQ & "" & CodigoJob  & ","SQ = SQ & "'" & DescricaoADM    & "',"SQ = SQ & "'" & Data    & "')"SQ1 = ""SQ1 = SQ1 & "INSERT INTO Arqui "SQ1 = SQ1 & "(MemoCod,Arquivo)"SQ1 = SQ1 & "VALUES(            "SQ1 = SQ1 & "" & MemoCod  & ","SQ1 = SQ1 & "'" & Arquivo    & "')"Dim BC : AbreBancoDim TB : SET TB = BC.Execute(SQ)if arquivo = "" thenResponse.Redirect("admf2.asp")elseSET TB = BC.Execute(SQ1)end ifResponse.Redirect("admf4.asp")%>_________________________________Abraços desesperadosFábio o Chato

onde está o componente, você coloca:if campo arquivo = vazio thencampo arquivo = "coloca uma valor por exemplo zero só para você saber que o campo está vazio"elsecampo arquivo = campo arquivo end ifentendeu?

[fabiosc80 0]

Pelo que percebi são duas SQL's uma cadastra os dados e outra os arquivos, na que cadastra os arquivos você faz um IF "abraçando" ela, verificando se a var "Arquivo" recebeu algun nome, se não recebeu não cadastra, simples não?

Assim???????????????If Arquivo = "" thenSQ1 = ""SQ1 = SQ1 & "INSERT INTO Arqui "SQ1 = SQ1 & "(MemoCod)"SQ1 = SQ1 & "VALUES( "SQ1 = SQ1 & "" & MemoCod & ")"elseSQ1 = ""SQ1 = SQ1 & "INSERT INTO Arqui "SQ1 = SQ1 & "(MemoCod,Arquivo)"SQ1 = SQ1 & "VALUES( "SQ1 = SQ1 & "" & MemoCod & ","SQ1 = SQ1 & "'" & Arquivo & "')"end ifnao deu certo....continua dando a mensagem de arquivo nao encontrado.

[tr374 0]

Pelo que percebi são duas SQL's uma cadastra os dados e outra os arquivos, na que cadastra os arquivos você faz um IF "abraçando" ela, verificando se a var "Arquivo" recebeu algun nome, se não recebeu não cadastra, simples não?

Assim???????????????If Arquivo = "" thenSQ1 = ""SQ1 = SQ1 & "INSERT INTO Arqui "SQ1 = SQ1 & "(MemoCod)"SQ1 = SQ1 & "VALUES( "SQ1 = SQ1 & "" & MemoCod & ")"elseSQ1 = ""SQ1 = SQ1 & "INSERT INTO Arqui "SQ1 = SQ1 & "(MemoCod,Arquivo)"SQ1 = SQ1 & "VALUES( "SQ1 = SQ1 & "" & MemoCod & ","SQ1 = SQ1 & "'" & Arquivo & "')"end ifnao deu certo....continua dando a mensagem de arquivo nao encontrado.

o que eu sujiro é usar um arquivo padrão para upload, mas tem que existir o arquivo:por exemplo:If Arquivo = "" thenSQ1 = ""SQ1 = SQ1 & "INSERT INTO Arqui "SQ1 = SQ1 & "(MemoCod)"SQ1 = SQ1 & "VALUES( "SQ1 = SQ1 & "" & MemoCod & ","Arquivo = "nome_arquivo_padrão_quando_Arquivo=0"SQ1 = SQ1 & "'" & Arquivo & "')"elseSQ1 = ""SQ1 = SQ1 & "INSERT INTO Arqui "SQ1 = SQ1 & "(MemoCod,Arquivo)"SQ1 = SQ1 & "VALUES( "SQ1 = SQ1 & "" & MemoCod & ","SQ1 = SQ1 & "'" & Arquivo & "')"end if

[Mário Monteiro 179]

acho que o problema é na parte que tenta salvar o arquivo e não no armazenamento da informação.Mas pra que uma pagina de upload se não será feito um upload?

[tr374 0]

if arquivo = "" thenResponse.Redirect("admf2.asp")elseSET TB = BC.Execute(SQ1)end ifResponse.Redirect("admf4.asp")analizando as ultimas linhas do seu código percebi que você já havia feito o if, o que tem nessa página admf2.asp? O erro deveria estar lá e não aqui.

[fabiosc80 0]

Pelo que percebi são duas SQL's uma cadastra os dados e outra os arquivos, na que cadastra os arquivos você faz um IF "abraçando" ela, verificando se a var "Arquivo" recebeu algun nome, se não recebeu não cadastra, simples não?

Assim???????????????If Arquivo = "" thenSQ1 = ""SQ1 = SQ1 & "INSERT INTO Arqui "SQ1 = SQ1 & "(MemoCod)"SQ1 = SQ1 & "VALUES( "SQ1 = SQ1 & "" & MemoCod & ")"elseSQ1 = ""SQ1 = SQ1 & "INSERT INTO Arqui "SQ1 = SQ1 & "(MemoCod,Arquivo)"SQ1 = SQ1 & "VALUES( "SQ1 = SQ1 & "" & MemoCod & ","SQ1 = SQ1 & "'" & Arquivo & "')"end ifnao deu certo....continua dando a mensagem de arquivo nao encontrado.

o que eu sujiro é usar um arquivo padrão para upload, mas tem que existir o arquivo:por exemplo:If Arquivo = "" thenSQ1 = ""SQ1 = SQ1 & "INSERT INTO Arqui "SQ1 = SQ1 & "(MemoCod)"SQ1 = SQ1 & "VALUES( "SQ1 = SQ1 & "" & MemoCod & ","Arquivo = "nome_arquivo_padrão_quando_Arquivo=0"SQ1 = SQ1 & "'" & Arquivo & "')"elseSQ1 = ""SQ1 = SQ1 & "INSERT INTO Arqui "SQ1 = SQ1 & "(MemoCod,Arquivo)"SQ1 = SQ1 & "VALUES( "SQ1 = SQ1 & "" & MemoCod & ","SQ1 = SQ1 & "'" & Arquivo & "')"end if

Continua dando o mesmo erro "File Not Found"Será que tem que tratar o código do upload tb?

[fabiosc80 0]

if arquivo = "" thenResponse.Redirect("admf2.asp")elseSET TB = BC.Execute(SQ1)end ifResponse.Redirect("admf4.asp")analizando as ultimas linhas do seu código percebi que você já havia feito o if, o que tem nessa página admf2.asp? O erro deveria estar lá e não aqui.

Esse tratamento é por causa de um refresh que tinha que fazer numa pagina e ele perdia o codigo do cliente entao eu faço ele voltar pra uma pagina com um formulario em branco na segunda vez.

[tr374 0]

Pergunto nome_arquivo_padrão_quando_Arquivo=0 exite?o upload é na máquina do cliente?se for provavelmetenome_arquivo_padrão_quando_Arquivo=0 não exite mesmo.

[tr374 0]

acho que o problema é na parte que tenta salvar o arquivo e não no armazenamento da informação.Mas pra que uma pagina de upload se não será feito um upload?

O código do "if arquivo = "" then" parece estar ok,Se o arquivo <> "" está funcionado tudo certinho?

[fabiosc80 0]

Pergunto nome_arquivo_padrão_quando_Arquivo=0 exite?o upload é na máquina do user?se for provavelmetenome_arquivo_padrão_quando_Arquivo=0 não exite mesmo.

Não Entendi

[fabiosc80 0]

acho que o problema é na parte que tenta salvar o arquivo e não no armazenamento da informação.Mas pra que uma pagina de upload se não será feito um upload?

Mariufa é pq nessa pagina quando tem upload ele processa tb.

[tr374 0]

Pergunto nome_arquivo_padrão_quando_Arquivo=0 exite?o upload é na máquina do user?se for provavelmetenome_arquivo_padrão_quando_Arquivo=0 não exite mesmo.

Não Entendi

Arquivo está na máquina do cliente?se estiver, provavelmete o nome do arquivo padrão nulo não vai exitir.

[fabiosc80 0]

Pergunto nome_arquivo_padrão_quando_Arquivo=0 exite?o upload é na máquina do user?se for provavelmetenome_arquivo_padrão_quando_Arquivo=0 não exite mesmo.

Não Entendi

Arquivo está na máquina do cliente?se estiver, provavelmete o nome do arquivo padrão nulo não vai exitir.

O arquivo se origina a partir da maquina do cliente para a internet

[tr374 0]

acho que o problema é na parte que tenta salvar o arquivo e não no armazenamento da informação.Mas pra que uma pagina de upload se não será feito um upload?

Mariufa é pq nessa pagina quando tem upload ele processa tb.

marioufpa está certo se não for fazer upload melhor pular a parte do script de upload, mas pelo que vi no seu código já deveria estar pulando: "if arquivo = "" then"

[Mário Monteiro 179]

cara este erro só aparece quando nenhum arquivo é selecionado na hora do upload??

[fabiosc80 0]

cara este erro só aparece quando nenhum arquivo é selecionado na hora do upload??

Consegui resolver o problema.

As partes em vervelho foi oque eu alterei incluindo a mais no código.

 

___________________________________________

 

<!--#include file="conexao.asp"-->

 

<%

Dim CodigoJob,DescricaoADM,DescricaoCliente,Data,Arquivo,MemoCod,ext_upload

 

ext_upload = ".gif" 'EXTENSAO DOS ARQUIVOS DE UPLOAD

 

sq = "SELECT Memo.MemoCod AS Memo_MemoCod, Arqui.ArqCod, Arqui.MemoCod AS Arqui_MemoCod, Arqui.Arquivo FROM [Memo] RIGHT JOIN Arqui ON Memo.MemoCod=Arqui.MemoCod"

 

' Variaveis

' *********

Dim mySmartUpload

Dim intCount

 

' Criando Objeto

' ***************

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.AllowedFilesList = "gif,jpg,zip,cdr,psd,jpeg,tif,doc,txt"

mySmartUpload.MaxFileSize = 2000000

 

' Upload

' ******

mySmartUpload.Upload

 

CodigoJob = mySmartUpload.form("CodigoJob")

DescricaoADM = mySmartUpload.form("DescricaoADM")

DescricaoCliente = mySmartUpload.form("DescricaoCliente")

Data = Day(Data) & "/" & Month(Data) & "/" & Year(Data)

MemoCod = mySmartUpload.form("MemoCod")

 

For Each file In mySmartUpload.Files

Arquivo = File.FileName

next

 

if arquivo <> "" then

 

 

 

' Salva o arquivo em um caminho virtual

' ****************************************************************************

intCount = mySmartUpload.Save("Upload" )

 

Set fso = CreateObject("Scripting.FileSystemObject")

Set fileObject = fso.GetFile(Server.MapPath("UPLOAD/"&Arquivo))

Arquivo = "C_" &CodigoJob & "_" & Arquivo

fileObject.Name = Arquivo

Set fileObject = Nothing

Set fso = Nothing

 

' salva em um caminho fisico

' intCount = mySmartUpload.Save("c:\temp\")

%>

 

 

<%

 

 

 

 

 

 

 

Dim SQ,SQ1

 

SQ = ""

SQ = SQ & "INSERT INTO [Memo] "

SQ = SQ & "(CodigoJob,DescricaoCliente,Data)"

SQ = SQ & "VALUES( "

SQ = SQ & "" & CodigoJob & ","

SQ = SQ & "'" & DescricaoCliente & "',"

SQ = SQ & "'" & Data & "')"

 

 

 

SQ1 = ""

SQ1 = SQ1 & "INSERT INTO Arqui "

SQ1 = SQ1 & "(MemoCod,Arquivo)"

SQ1 = SQ1 & "VALUES( "

SQ1 = SQ1 & "" & MemoCod & ","

SQ1 = SQ1 & "'" & Arquivo & "')"

 

else

SQ = ""

SQ = SQ & "INSERT INTO [Memo] "

SQ = SQ & "(CodigoJob,DescricaoCliente,Data)"

SQ = SQ & "VALUES( "

SQ = SQ & "" & CodigoJob & ","

SQ = SQ & "'" & DescricaoCliente & "',"

SQ = SQ & "'" & Data & "')"

 

 

 

SQ1 = ""

SQ1 = SQ1 & "INSERT INTO Arqui "

SQ1 = SQ1 & "(MemoCod)"

SQ1 = SQ1 & "VALUES( "

SQ1 = SQ1 & "" & MemoCod & ")"end if

 

Dim BC : AbreBanco

Dim TB : SET TB = BC.Execute(SQ)

 

if Arquivo = "" then

Response.Redirect("clif2.asp")

else

SET TB = BC.Execute(SQ1)

end if

Response.Redirect("clif4.asp")

 

%>

 

___________________________________