Upload com insert, pra finalizar.

[fabiosc80 0]

Semana passada vcs me ajudaram com um problema com o Smart Upload

 

Porem meu patrao quer que alem do código e o nome do arquivo. apareça uma letra "A" ou "C" na frente do que ta sendo mandado pra net e gravado.

 

EX....

Administrador fica assim:

 

A_03_Arquivo.jpg

 

Cliente fica assim:

 

C_03_Arquivo.jpg

 

Como faço em cima daquele código que vcs me ajudaram a fazer? eu até consegui mudar o nome do arquivo mas parece que na hora de gravar no banco ele nao consegue mudar oolha só o código...

 

________________________________________________________

 

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

<%Session.LCID = 1046%>

<%

 

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

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 = now

MemoCod = mySmartUpload.form("MemoCod")

 

For Each file In mySmartUpload.Files

Arquivo = File.FileName

next

 

 

 

' 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 = 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,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 : AbreBanco

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

 

if arquivo = "" then

Response.Redirect("admf2.asp")

else

SET TB = BC.Execute(SQ1)

end if

Response.Redirect("admf2.asp")

 

%>

____________________________________________________________

 

Só falta isso e um problema com datas que depois se eu nao solucionar pergunto ok?

Me ajudem pelo amor de deus.

 

Abraços

 

Fábio http://forum.imasters.com.br/public/style_emoticons/default/upset.gif http://forum.imasters.com.br/public/style_emoticons/default/upset.gif http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

[Mário Monteiro 179]

cara se é so pra colocar esta letra você muda aqui

 

[tr][/tr][tr][/tr]

ASP	Set fso = CreateObject("Scripting.FileSystemObject") Set fileObject = fso.GetFile(Server.MapPath("UPLOAD/"&Arquivo)) Arquivo = CodigoJob & "_" & Arquivo fileObject.Name = Arquivo Set fileObject = Nothing Set fso = Nothing

 

na linha em negrito coloca a letra adequada e o resto será feito automaticamente pois o codigo ta pronto

[fabiosc80 0]

cara se é so pra colocar esta letra você muda aqui

 

ASP [/tr][tr]

Set fso = CreateObject("Scripting.FileSystemObject")

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

Arquivo = CodigoJob & "_" & Arquivo

fileObject.Name = Arquivo

Set fileObject = Nothing

Set fso = Nothing

[/tr]

 

na linha em negrito coloca a letra adequada e o resto será feito automaticamente pois o codigo ta pronto

Entao eu tava fazendo isso ja e ta dando esse erro aqui direto:

 

____________________________________

Microsoft JET Database Engine error '80040e14'

 

Syntax error (missing operator) in query expression 'codigojob ='.

 

/grafica/admf2.asp, line 10

_________________________________________

 

A linha 10 da pagina Admf2.asp é:

 

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

 

ele pega um select pra checar se um campo ta ativo ou não.

[Mário Monteiro 179]

este codigojob não está vazio??é o que parece, dá um write nele pra ver

[fabiosc80 0]

este codigojob não está vazio??é o que parece, dá um write nele pra ver

m***** da ficando vazio.....é que esse select nao tinha até sexta

[Mário Monteiro 179]

você precisa pegar corretamente este valor senão vai continuar com o erro, verifica sua string SQL

[fabiosc80 0]

você precisa pegar corretamente este valor senão vai continuar com o erro, verifica sua string SQL

Eu criei outra pagina só pra incluir.quando ele inclui ele volta pra ela e quando ele carrega a primeira vez carrega na antiga.

[fabiosc80 0]

você precisa pegar corretamente este valor senão vai continuar com o erro, verifica sua string SQL

Eu criei outra pagina só pra incluir.quando ele inclui ele volta pra ela e quando ele carrega a primeira vez carrega na antiga.

ME fala uma coisa as datas do chat que fiz aqui tao aparecendo na tela com o formato americano. como faço pra fazer aparecer no formato brasileiro ja que o session.lcid=1046 nao da dando certo?

[Mário Monteiro 179]

então deve ser problema de cache ela já ta no seu micro e não vai buscar no server denovo

[fabiosc80 0]

então deve ser problema de cache ela já ta no seu micro e não vai buscar no server denovo

você ta falando pra limpar o tremporários?Já fiz isso e nao deu certo.

[Mário Monteiro 179]

não é isso poe este codigo no topo de sua pagina que ele não pega mais a page do cache<%Response.Expiresabsolute = Now() - 2Response.AddHeader "pragma","no-cache"Response.AddHeader "cache-control","private"Response.CacheControl = "no-cache"%>

[fabiosc80 0]

não é isso poe este codigo no topo de sua pagina que ele não pega mais a page do cache<%Response.Expiresabsolute = Now() - 2Response.AddHeader "pragma","no-cache"Response.AddHeader "cache-control","private"Response.CacheControl = "no-cache"%>

Continua jogando as datas no formato americano...

[Mário Monteiro 179]

mas isso não é pra mudar as datas e sim pra não pegar page do cache

[fabiosc80 0]

mas isso não é pra mudar as datas e sim pra não pegar page do cache

Mas como faço pra ele mostrar a data no formato brasileiro?

[Mário Monteiro 179]

cara se ta vindo do banco assim tenta montar sua data no formato que você quer tipo:Data = RS("Data")Data = Day(Data) & "/" & Month(Data) & "/" & Year(Data)Não sei se resolver seu problema

[fabiosc80 0]

cara se ta vindo do banco assim tenta montar sua data no formato que você quer tipo:Data = RS("Data")Data = Day(Data) & "/" & Month(Data) & "/" & Year(Data)Não sei se resolver seu problema

O problema é:Aonde eu jogo isso.Cara to perdido aqui

[Mário Monteiro 179]

cara deve ser alterado na pagina que manda escrever na tela a data, qual pagina faz isso?

[fabiosc80 0]

cara deve ser alterado na pagina que manda escrever na tela a data, qual pagina faz isso?

admf1.aspmas oque eu falei é?é pra colocar em topo essas coisas.

[tr374 0]

onde você colocava a data assim:

<%=data%>

 

você passa a colocar a data assim:

<%

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

response.write data

%>

 

Se for na SQL deixa assim: ... where Data = Day(Data) & "/" & Month(Data) & "/" & Year(Data) order...

[Mário Monteiro 179]

se der poe o trecho de codigo que escreve na teladeve ter ou response.write Data ou <%=Data%>, dá uma procurada que é neste ponto que deve ser mudado