Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Mrweb

Check Box + Select In

Recommended Posts

Galera é o seguinte,

 

Tenho varios checkbox no form, faço o request, trato eles com o split, porem para inserir no banco nao consigo separa-los por aspas simples.

 

Como devo proceder?

escolha = Request.Form("mailing")escolha= Split(escolha,"','") For Each member in escolhaResponse.Write member
Como juntar tudo e deixar entre aspas, assim

'Sao Paulo,'São Caetano','Santo Andre','Sao Bernardo'

Compartilhar este post


Link para o post
Compartilhar em outros sites

faz um FOR e concatena as aspas a cada volta no NEXT até chegar no ultimo item do array

Compartilhar este post


Link para o post
Compartilhar em outros sites

Cara nao conheco muito bem o for

 

como ficaria o codigo?

escolha = Request.Form("mailing")escolha= Split(escolha,"','") For Each member in escolha

Ai eu faria outro for

For i=1 to membermember = "'" & member "'"
Algo assim, desculpe cara mas nao conheço bem o for

Compartilhar este post


Link para o post
Compartilhar em outros sites

não testei, mas a ideia é essa

escolha = split(Request.Form("mailing"),",")

for i = 0 to ubound(escolha)var = var&"'"&escolha(i)&"',"nextvar = mid(var,0, len(var)-1)response.write var
pensando bem, acho que com replace daria também, como vem os dados do campo mailing??

seria nome1,nome2,nome3....???

 

se for assim faça

escolha = replace(Request.Form("mailing"),",","','")response.write escolha

Compartilhar este post


Link para o post
Compartilhar em outros sites

Cara deixei assim, porém da o seguinte erro.

 

escolha = Request.Form("mailing")escolha= Split(escolha,"','") For Each member in escolhafor i = 0 to ubound(escolha)var = var&"'"&escolha(i)&"',"nextvar = mid(var,0, len(var)-1)response.write varnext

Erro de tempo de execução do Microsoft VBScript erro '800a0005'

 

Chamada de procedimento ou argumento inválido: 'mid'

 

/newsletter/enviando.asp, line 20

 

 

A linha 20 é essa

 

var = mid(var,0, len(var)-1)

 

Pode me ajudar cara, to desesperado

Compartilhar este post


Link para o post
Compartilhar em outros sites

ops...tente assimvar = mid(var,1, len(var)-1)mas reforço...se os dados fo formulário chegam separados por virguloa, usando o replace é mais facil, além de muito mais rapido

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ficou assim

 

escolha = replace(Request.Form("mailing"),",","','")response.write "'" & escolha & "'"

Muito Obrigado cara

Obrigado Mesmo

 

Abraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.