Check box

[ricardo coelho designer 0]

Como vão?

 

Bom estou com problemas de inserção no bd com check box no qual, não consigo fazer a validar o check do bd utilizando o formulario. o código que estou usando é:

 

insereformulario.asp

<%option Explicit%><!--#Include file="conexcontato.asp"--><%Dim Conexao, rs, strSQL, Dep, Nome, Empresa, Cargo, Email, Telefone, Assunto, Newsletter, Ip, Data,HoraDep = Request.Form("Dep")Nome = Request.Form("Nome")Empresa = Request.Form("Empresa")Cargo = Request.Form("Cargo")Email = Request.Form("Email")Telefone = Request.Form("Telefone")Assunto = Request.Form("Assunto")Newsletter = Request.Form("Newsletter") = "on" then Newsletter = True else Newsletter = FalseIp = request.servervariables("REMOTE_ADDR")Data = dateHora = timestrSQL = "INSERT INTO Contato (Dep, Nome, Empresa, Cargo, Email, Telefone, Assunto, Newsletter, Ip, Data,Hora )"strSQL = strSQL & "values ('" & Dep & "','" & Nome & "','" & Empresa & "','"& Cargo &"','"& Email &"','"& Telefone &"','"& Assunto &"','"& Newsletter &"','"& Ip &"','"& Data &"','"& Hora &"')" 'abre a conexaoCall abre_conexaoSet rs=Conexao.Execute(strSQL)'fecha a conexaoCall fecha_conexaoSet rs = Nothing%><!--#Include file="emailformulario.asp"--><%' Mostra Mensagem de Confirmação na TelaResponse.write "Dados Enviados com Sucesso!"' Redireciona após 2 segundosresponse.write "<br><br>você será redirecionado em 2 segundos..<br>"response.write "<meta http-equiv='refresh' content='2; url=contato.asp?autonumero=1'/>"%>

Agradeço desde já

[shumi 0]

o campo que você manda gravar o check box é que formato?Sim/Não?Abraços

[ricardo coelho designer 0]

o campo que você manda gravar o check box é que formato?Sim/Não?Abraços

é isso mesmo esqueci de mencionar .

[shumi 0]

Então antes de gravar você tem que fazer isso:

IF Request("CAMPO_CHECKBOX") = VALOR_TICADO THENCAMPO_CHECKBOX = 0ELSECAMPO_CHECKBOX = 1END IF

E grava a variavel CAMPO_CHECKBOX

 

Abraços

[ricardo coelho designer 0]

Então antes de gravar você tem que fazer isso:

IF Request("CAMPO_CHECKBOX") = VALOR_TICADO THENCAMPO_CHECKBOX = 0ELSECAMPO_CHECKBOX = 1END IF

E grava a variavel CAMPO_CHECKBOXAbraços

Cara muito obrigado valeu mesmo você não sabe o quanto me ajudou.... VAleu

[shumi 0]

Precisando estamos ai! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif