Codigo da Empresa

[fabiosc80 0]

Estou fazendo um Upload com cadastro no banco de dados, porem na hora de tanto cadastrar no Banco de dados como mandar o arquivo pra pasta upload eu tenho que cadatrar assim:

 

"E_Codigo_Nome do Arquivo"

 

 

Só que o código ao invés de aparecer um numero aparece a palavra código.

 

Vejam o código asp que to fazendo.

 

 

 

ASP [/tr][tr]<!--#include file="conexao.asp"-->

<%

Dim Nome,Logotipo,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

 

Nome = mySmartUpload.form("Nome")

 

For Each file In mySmartUpload.Files

Logotipo = 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/"&Logotipo))

Logotipo = "A_" & CodigoEmpresa & "_" & Logotipo

fileObject.Name = Logotipo

Set fileObject = Nothing

Set fso = Nothing

 

%>

<%

 

Dim SQ

 

SQ = ""

SQ = SQ & "INSERT INTO Empresa"

SQ = SQ & "(Nome,Logotipo)"

SQ = SQ & "VALUES( "

SQ = SQ & "'" & Nome & "',"

SQ = SQ & "'" & Logotipo & "')"

 

Dim BC : AbreBanco

SET TB = BC.Execute(SQ)

 

Response.Redirect("empresainc.asp")

 

%>

[/tr]

 

Como fazer ali aparecer o código que ta na tabela?

[Paulo Pereira 0]

ASP [/tr][tr]Logotipo = "A_" & CodigoEmpresa & "_" & Logotipo [/tr]

 

Tenta abrir e fechar aspas no final... As vezes é um coisa besta dessas q tá te atrasando...

 

ASP [/tr][tr]Logotipo = "A_" & CodigoEmpresa & "_" & Logotipo ""[/tr]

 

Abraços

[fabiosc80 0]

ASP [/tr][tr]Logotipo = "A_" & CodigoEmpresa & "_" & Logotipo [/tr]

 

Tenta abrir e fechar aspas no final... As vezes é um coisa besta dessas q tá te atrasando...

 

ASP [/tr][tr]Logotipo = "A_" & CodigoEmpresa & "_" & Logotipo ""[/tr]

 

Abraços

Nao deu certo

[Paulo Pereira 0]

:( Então tem q analisar melhor... dá onde vem o CodigoEmpresa ?

[fabiosc80 0]

:( Então tem q analisar melhor... dá onde vem o CodigoEmpresa ?

CodigoEmpresa é o campo autonumeraçao da tabela Empresa

[Paulo Pereira 0]

E quando você dá um Response.Write (CodigoEmpresa), ele aparece o valor ?

[FabricioGomes 0]

mostra o codigo que inicializa a variavel codigoempresa...provavelmente o erro esta ai, nao nessa pagina... ok?

[fabiosc80 0]

mostra o codigo que inicializa a variavel codigoempresa...provavelmente o erro esta ai, nao nessa pagina... ok?

Aonde você diz isso? aonde inicia?

[fabiosc80 0]

mostra o codigo que inicializa a variavel codigoempresa...provavelmente o erro esta ai, nao nessa pagina... ok?

Aonde você diz isso? aonde inicia?

Help-me

[FabricioGomes 0]

mostra o codigo onde tem Codigoempresa = ????alguma coisa????só isso... o erro está nessa parte, ja que nao vem um codigo e sim a palavra "codigo"

[fabiosc80 0]

mostra o codigo onde tem Codigoempresa = ????alguma coisa????só isso... o erro está nessa parte, ja que nao vem um codigo e sim a palavra "codigo"

Não mostra nada.Ao invés de mostrar o código aparece a palavra Codigoempresa escrita

[Mário Monteiro 179]

de onde vem este codigo, você passa pelo form?? senão é melhor você pegar do db com uma consulta basica

[fabiosc80 0]

de onde vem este codigo, você passa pelo form?? senão é melhor você pegar do db com uma consulta basica

ele nao ta vindo do form da outra pagina.Como seria essa consulta?Pois a pagina é assim.Uma pagina com um text e um file que cadastra no banco de dados e manda o arquivo pra pasta uploadporem o nome do arquivo tem que ser assim ex:E_65_Logo.jpgque no caso seria:E_CodigoEmpresa_LogotipoSabe como faço pra mudar o nome na hora de cadatrar e vir esse codigo daempresa como o codigo autonumeracao que ta cadastrando no banco de dados ?

[Mário Monteiro 179]

seleciona do banco este id numeração antes de montar este nome...

[fabiosc80 0]

seleciona do banco este id numeração antes de montar este nome...

Sei que você vai querer me xingar atémas eu travei aqui de tal forma que naosei como fazer.

[Mário Monteiro 179]

tipo em que momento você aramzena este valor no banco??

[fabiosc80 0]

tipo em que momento você aramzena este valor no banco??

aqui

 

ASP [/tr][tr]<%

 

Dim SQ

 

SQ = ""

SQ = SQ & "INSERT INTO Empresa"

SQ = SQ & "(Nome,Logotipo)"

SQ = SQ & "VALUES( "

SQ = SQ & "'" & Nome & "',"

SQ = SQ & "'" & Logotipo & "')"

 

Dim BC : AbreBanco

SET TB = BC.Execute(SQ)

 

Response.Redirect("empresainc.asp")

 

%>

[/tr]

 

Mas é aqui que ele ta mudando errado veja:

 

ASP [/tr][tr]Set fso = CreateObject("Scripting.FileSystemObject")

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

Logotipo = "A_" & CodigoEmpresa & "_" & Logotipo

fileObject.Name = Logotipo

Set fileObject = Nothing

Set fso = Nothing

[/tr]

[Mário Monteiro 179]

sim e onde você atribui um valor a variavel CodigoEmpresa ??

[fabiosc80 0]

sim e onde você atribui um valor a variavel CodigoEmpresa ??

é autonumeracao

[Mário Monteiro 179]

mas é isto que estou tentando mostrar...O campo é autonumeração, mas o que você está usando naqule codigo é uma variavel qeu precisa pegar o valor que esta no banco senão vai ficar vazia...