Redimencional um Session

[nordi 1]

Bem pessoal ... Tenho um aplicação na qual fiz um split com algumas session simulando um flexgrid ele tem a funcao de inserir os valores q o meu cliente informou, estes valores sao armazenadas em session e na hora do insert eu insiro este valores atraves de session e um indice e coloquei para pag os valores, mas hoje me deparo com um probelma no primeiro insert ele leva um valor branco... para minha sessao e assim insere todos os pedidos mas insere a 1º linha em branco... alguem conhece alguma forma de iniciar um session sem nenhum valor....

[Penna 0]

Não entendi muito bemMas na primeira pagina apague sempre suas sessions.Session("Nome") = Empty

[Mário Monteiro 179]

cara da um print na sua session e veja se ela não inicia com o caracter que você usa no split

[nordi 1]

Muito Obrigado pela Atençã do Forum Imasters... Mas o que acontece e que ele insere um valor branco... e logo apos sim insere os valore da minha sessao... estranho... fiz tb um teste... inicie minha sessao com um valor ai ele nao inseriu este valor colocou o valor q eu inicie ele... o que pude concluir q a sessao inicia com um valor nulo ou branco mas ja fiz os dois parametros no meu insert, se estes valores fosem nulos ou branco ele nao inseria mas ele foram ignorado e inserir normalmento...

[Mário Monteiro 179]

cara você disse que usa split, os dados que você insere começam do indice 0 ou do indice 1?verifica isso, deve ser bobagem seu erro

[nordi 1]

ea assim meu insert

 

 

 

 

%>

If Request("acao")="limpa" then

 

FPROD = trim(Request.form("txtPROD"))

FUNID = trim(Request.form("txtUnid"))

FDESC = trim(Request.form("txtDESC"))

FMED = trim(Request.form("txtMED"))

FQTD = trim(Request.form("txtQTD"))

 

Session("QTD") & "," & Request.Form("txtQTD")

Session("UNID") & "," & Request.Form("txtUNID")

Session("PRODS") & "," & Request.Form("txtPROD")

Session("MED") & "," & Request.Form("txtMED")

Session("DESCRICAO") & "," & Request.Form("txtDESCRICAO")

Session("QTD") & "," & Request.Form("txtQTD")

 

QTD = SPLIT(Session("QTD"),",")

UNID = SPLIT(Session("UNID"),",")

PROD = SPLIT(Session("PRODS"),",")

MED = SPLIT(Session("MED"),",")

DESC = SPLIT(Session("DESC"),",")

QTD = SPLIT(Session("QTD"),",")

 

AbreConexao()

Set Res_ID = conexao.execute("SELECT MAX(ID_DOACAO) AS ID_MAIOR FROM TB_DOACAO_MCT")

vID_MAIOR = Res_ID("ID_MAIOR")

For X = LBOUND(Prod) To UBOUND(Prod)

SQL = "INSERT TB_DOACAO_ITEM (ID_DOACAO,QTD,UNID,PRODUTO,MED,DESCRICAO) VALUES ('"& vID_MAIOR &"','"& QTD(X) &"','"& UNID(X) &"',"

SQL = SQL & "'"& PROD(X) &"','"& MED(X) &"','"& DESC(X) &"')"

Conexao.execute(SQL)

Next

Session.Abandon()

End If

 

%>

[Mário Monteiro 179]

cara antes do codigo de inserir faz umresponse.write Session("PRODS") e verifica se começa com virgula

[nordi 1]

sim fica assim ,33,33,33

[Mário Monteiro 179]

o que eu suapeitavasua session começa com virgula, quando dá split o primeiro indice fica sem nadavocê tem duas alternativas:1- testar antes de concatenar se sua sesseion está vaziatipo assimIF Session("PRODS") = "" THENSession("PRODS") = Request.Form("txtPROD")ELSESession("PRODS") = Session("PRODS") & "," & Request.Form("txtPROD")END IFou2- continuar como esta mas antes de usar o split você faz issoSession("PRODS") = RIGHT(Session("PRODS"), LEN(Session("PRODS")) - 1)para tirar apenas a virgula antes do resto da session

[nordi 1]

Apenas para efeito de agradecimento... funcionou 1º equilavei ela a "" e dopois retirei o branco da session..muito obrigado!

[Mário Monteiro 179]

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif