[Resolvido] Check Box

Boris · Outubro 1, 2007

Galera, estou com um problema ...

Não estou conseguindo mandar a informação de um Check box para o banco...

Será que alguem pode me ajudar....

eu tenho que cadastrar no meu Banco S se estiver marcado e N se não estiver marcado.

Tenho o seguinte codigo

ASP

<tr>

<!--

.style1 { color: #FF0000;

font-weight: bold;

}

.texto8 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: normal; color: #333333; text-decoration: none}

.texto8bold {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #3F68AD; text-decoration: none}

.texto8boldred {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #FF0000; text-decoration: none }

.sombra { filter:progid:DXImageTransform.Microsoft.dropshadow(OffX=3, OffY=5, Color='#999999', Positive='true')

}

-->

</style>

<head>

<%

On error resume Next

Dim objConn, stringSQL, strConnection, id

id = Request.QueryString("radio")

' Conectando com o banco de dados contato.mdb

Set objConn = Server.CreateObject("ADODB.Connection")

Set objRS = Server.CreateObject("ADODB.Connection")

objConn.Open "DBQ=" & Server.MapPath("....Dadosbancodd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

stringSQL = "SELECT * FROM tbClipping WHERE idClipping = "&id

Set objRS = objConn.Execute(stringSQL)

'Deletando registro da tabela contato onde esta a id

if err <> 0 Then%>

<span class="texto8bold">Não tem infomrações a serem alteradas retorne ao <a href="../admin.asp" class="texto8bold">GERENCIADOR</a> </span>

<%'response.write "<meta http-equiv='refresh' content='2'; url='../admin.asp'>"%>

</div>

<tr>

<tr>

<tr>

</tr>

<tr>

<tr>

<tr>

<tr>

<%Response.write objRS("data")%>

</strong></div></td>

<td width="284"><span class="style5">Titulo : </span><span class="legenda"><span class="texto8">

<%Response.write objRS("titulo")%>

</span> </span><span class="texto8"><br />

<strong>Veiculo</strong></span><span class="legenda"><strong> :</strong> <span class="texto8">

<%Response.write objRS("veiculo")%>

</span>

<br />

</span><span class="style5">Publicado</span><span class="legenda"><strong> :

</strong></span><span class="texto8boldred">

<%Response.write objRS("publicar")%>

</span><br /></td>

<td width="105"><p class="texto8"><strong><span class="texto8bold">Front Page ? </span><span class="legenda"><br />

</select>

<br>

<label>

<%

if request("frontpage")="" then

frontpage=N

else

frontpage=S

end if

%>

Front Page</label>

</span></strong></p>

</td>

</tr>

<tr>

<% end if %>

</span> </div></td>

</tr>

</table></td>

</tr>

</table></td>

</tr>

</table>

<br />

</tr>

<tr>

</tr>

</table></td>

</tr>

</table>

</center>

</div>

</form> </td>

</tr>

</table> </td>

</tr>

</table>

ASP

<%

'Força o programador a declarar todas as variáveis, evitando erro de digitação no uso das variéveis

Option Explicit

'Não deixa informações no Cache

Response.Expires = 0

'Declaração das variáveis

Dim objConn, strQuery, sql_query, RsQuery, campo, sql, front, idClipping, Sim, Nao

Dim ObjRs, frontpage, N, S

'Atrubuição dos valores as respectivas variáveis

'front = Request.form("front")

idClipping = Request.form("idClipping")

frontpage = Request.Form("frontpage")

'Cria o objeto RecordSet e atribui a variável

Set objConn = Server.CreateObject("ADODB.Connection")

'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...

'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)

'(*.mdb) indica que o arquivo utiliza extensão mdb

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("....Dadosbancodd.mdb") & ";Persist Security Info=False"

'strQuery = "UPDATE tbClipping SET front='"&front&"' WHERE idClipping='"&idClipping"'"WHERE id_usuario="&id_usuario

strQuery = "UPDATE tbClipping SET frontpage='"&front&"' WHERE idClipping="&idClipping

response.write strQuery & "<br>"

response.end

'Caso ocorra um erro esta função de erro será chamada

On error Resume Next

'Executaa inserção no Banco de Dados

Set ObjRs = objConn.Execute(strQuery)

'Fecha o Objeto de Conexão

objConn.close

'"APAGA" qualquer instancia que possa ter no objeto objRs e objConn

Set objRs = Nothing

Set objConn = Nothing

'forum

if err.number <> 0 Then

response.write("Erro código"&err.number &" - "& err.description)

response.end()

else

'Redireciona o usuário caso não tenha ocorrido erro na transação

'response.redirect "sucesso.asp"

end if

%>

Valew Galera.... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Ted k' · Outubro 1, 2007

Quando for cadastrar faça isso aqui

ASP

If Request.Form("frontpage") = True Then

front = "S"

Else

front = "N"

ENd If

Boris · Outubro 2, 2007

Consegui valew so que tiver que usar de outra forma...

If Request.Form("frontpage") = "" Thenfront = "N"Elsefront = "S"ENd If

Ted k' · Outubro 2, 2007

Ok irmãozinho qualquer coisa você pode postar æ que auxiliamos!

Boris · Outubro 2, 2007

Galera como faço pra colocar o Check box conforme o meu banco de dados ???

Eu estou tentando da seguinte forma e não tá rolando

Se no meu banco estiver com a informação de S o Check tem que está marcado caso esteja N ou em branco tem que está desmarcado.

ASP

<%

If objRS("publicar") = "N" or "" Then

Response.Write("<input name='publicar' type='checkbox' id='publicar'>")

Else

Response.Write("<input name='publicar' type='checkbox' id='publicar' checked>")

ENd If

%>

Está certo da maneira que coloquei ?

Ted k' · Outubro 2, 2007

Essa linha:

ASP

If objRS("publicar") = "N" or "" Then

troque por essa aqui

ASP

If ""&objRS("publicar")&"" = "N" or ""&objRS("publicar")&"" = "" Then

Boris · Outubro 2, 2007

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

Valew, Deu Certinho, obrigadão

Ted k' · Outubro 2, 2007

Show Boris, se precisar posta novamente!

Arquivado

[Resolvido] Check Box

Recommended Posts

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante