Ir para conteúdo

POWERED BY:

Arquivado

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

Ivan.Teles

Procedimento armazenado

Recommended Posts

MINHA DÚVIDA É A SEGUINTE. FIZ UM COMANDO ARMAZENADO NO DREAMWEAVER DECLARADO DA SEGUINTE MANEIRA.

 

NÃO SEI SE ESTA CERTO E NECESSITO DE AJUDA PRA CONCERTAR

 

<%

var_usuario = Request.QueryString("usuario") // captura nome do usuário

var_pagina = Request.QueryString("pagina") // captura pagina que esta acessando

 

if(var_usuario = "") AND (var_pagina = "") then //verifico se os campos estão vazios

return false // aki eu imagino que se os campos envirem vazios, não executa a inserção dos dados " pelo menos é o que eu estou imaginando"

else // se os campos estiverem com dados, passa os dados para Command1__para e Command1__para1

Command1__para = var_usuario AND Command1__para1 = var_pagina

end if

 

set Command1 = Server.CreateObject("ADODB.Command")

Command1.ActiveConnection = MM_conecta_STRING

Command1.CommandText = "INSERT INTO acesos (Nome, Paginas) VALUES ('" + Replace(Command1__para, "'", "''") + "', '" + Replace(Command1__para1, "'", "''") + "' ) "

Command1.CommandType = 1

Command1.CommandTimeout = 0

Command1.Prepared = true

Command1.Execute()

 

%>

 

BOM SE VOCÊS ENTENDERAM ME AJUDEM, EU QUERO QUE FUNCIONE DA SEGUINTE MANEIRA SE CAPTAR DADOS REGISTRA NO BANCO.

SE NÃO CAPTAR DADOS NÃO REGISTRA. OK

 

NO AGUARDO

Compartilhar este post


Link para o post
Compartilhar em outros sites

Seria assim:

<%
var_usuario = Request.QueryString("usuario") 'captura nome do usuário
var_pagina = Request.QueryString("pagina") 'captura pagina que esta acessando

if (var_usuario <> "") AND (var_pagina <> "") then 'verifico se os campos não estão vazios
Command1__para = var_usuario
Command1__para1 = var_pagina

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_conecta_STRING
Command1.CommandText = "INSERT INTO acesos (Nome, Paginas) VALUES ('" + Replace(Command1__para, "'", "''") + "', '" + Replace(Command1__para1, "'", "''") + "' ) "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

else 'se os campos estiverem sem dados, Avisa ao usuário
Response.Write "Um dos campos está vazio!"
end if
%>

Comentários são com ' e não com //

Compartilhar este post


Link para o post
Compartilhar em outros sites

um detalhe os dados são repassados via url por isso não é possivel avisar o usuario, apenas quero que se estiverem vazios não adicionar dados. entende

Compartilhar este post


Link para o post
Compartilhar em outros sites

Então é só tirar o ELSE e todo o Response.Write.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Repare que eu mudei o seu IF de "=" para "<>" e joguei o código de que executa o INSERT dentro do IF.

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.