Código esta se perdendo

[fabiosc80 0]

Tenho uma formulario admf4.asp que cadastra alguns dados e que envia arquivos pra net tb.acontece que ao cadastrar a primeira vez na segunda ele perde o código da tabela e nao cadastra denovo na sequencia.Oque faço;Como recuperar o CodigoJob (codigo1)Abaixo segue o código._________________________________________________________________

<!--#include file="conexao.asp"--><%Session.LCID = 1046%><%dim codigo1codigo1 = request.querystring("cod")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,html,htm,png"   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 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 = "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 & "')"elseSQ = ""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)"SQ1 = SQ1 & "VALUES( "SQ1 = SQ1 & "" & MemoCod & ")"end ifDim BC : AbreBancoDim TB : SET TB = BC.Execute(SQ)if arquivo = "" thenresponse.redirect ("admf4.asp")elseSET TB = BC.Execute(SQ1)Response.Redirect("admf4.asp")end if%>

[Mário Monteiro 179]

como este codigo se perde? ele está armazenado em um variavel.

[fabiosc80 0]

como este codigo se perde? ele está armazenado em um variavel.

esse é o problemanao sei. só sei que ao voltar pra pagina admf4.asp ele nao cadastra mais por causa que perde esse código.ele nao mantem o codigo.da erro de insert linha 94.Que é os SQ

[fabiosc80 0]

Será que tem como passar o cpodigo pelo response.redirect como se faz com links?

Cara tao me pressionando aqui.

To até com medo.... http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

[fabiosc80 0]

Ninguem vai me ajudar?

[Mário Monteiro 179]

cara se voce muda de pagina deve passar a informação também...passa ela na url mesmo e pega com request

[fabiosc80 0]

cara se voce muda de pagina deve passar a informação também...passa ela na url mesmo e pega com request

ja consegui pessoal valeu.fiz assim no response.redirect:Response.Redirect "admf2.asp?cod="&codigojob

[Mário Monteiro 179]

beleza cara