armagedon
-
Total de itens
103 -
Registro em
-
Última visita
Tudo que armagedon postou
-
é isso mesmo q o bereta disse.
-
em produtos.html você poe <html> <body> <p>Escolha o tipo de produto</p> <p><a href="PRODUTOS.asp?Tipo=C">Produtos Para Crianças</a></p> <p><a href="PRODUTOS.asp?Tipo=A">Produtos Para Adultos</a></p> </body> </html> e em meuprodutos.asp <html> <body> <% tipodecliente = request.querystring("tipo") if tipodecliente = "C" then %> conteudo dos produtos de criança... <% end if if tipodecliente = "A" then %> conteudo dos produtos de adultos... <% end if %> </body> </html>
-
você faz a mesma coisa, só q dai poe <% If len(TipodeCliente)="A" then %> <b>Produtos para Adultos</b> <% end if %>
-
faz assim <% Dim SqlInsere Dim RsIns nome = TRIM ( Request.Form( "nome" ) ) senha = TRIM ( Request.Form( "senha" ) ) Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("cadastro.mdb") Set RsIns = Server.CreateObject("ADODB.RecordSet") Set RsCons = Server.CreateObject("ADODB.RecordSet") Sqlconsulta = "Select * from Teste Where nome='" & nome & "'" set RsCons = Conn.execute(Sqlconsulta) if RsCons.eof then SqlInsere = "Insert Into Teste(nome, senha)Values('" & nome & "','" & senha & "') " set RsIns = Conn.execute(SqlInsere) else Response.write "Nome de usuário já existe" end if %>
-
faz assim <!--#include file="conexao.asp"--> <% Set rs = conn.execute("Select * from tabela") do until rs.eof then %> <br><a href="alterarusuario.asp?id=<%=rs("id")%>">Alterar</a><br> <% rs.movenext loop %> dai no form q altera você coloka o Set rs = conn.execute("Select * from tabela where id =" & request.querystring("id") & " ")
-
eu tentei esse include virtual e não deu
-
ponha o seu código aki para podermos te ajudar
-
eu consegui tirar esse erro, mas eu não tou conseguindo fazer o q quero. Eu quero por no login do meu site aqueles checkbox perguntando c o usuario quer salvar usuario e senha nakele pc. Como não sei mecher com cookies tentei fazer com um bd. eu coloquei o codigo assim: pagina logar.asp <% ip = Request.ServerVariables("REMOTE_ADDR") sim = "sim" Set rs = conn.execute("Select * from cadastro where perlog ='" & sim & "' and ip = '" & ip & "' ") If not rs.eof then session("logado") = true end if %> <% if session("logado") = true then response.redirect("suaconta.asp") end if %> <form action=logando.asp method=get> ... pagina logando.asp <% Set rs = conn.execute("Select * from cadastro where admin =yes and nick='" & request.querystring("admin") & "' and senha='" & request.querystring("pass") & "' ") if rs.eof then logado_admin = false else logado_admin = true end if If logado_admin = true then session("logado") = true if request.querystring("lembrarme") = "sim" then ip = Request.ServerVariables("REMOTE_ADDR") sim = "sim" Set rs2 = conn.execute("update cadastro set perlog='" & sim & "', ip = '" & ip & "' where id = " & rs("id") & " ") end if %> esse codigo não dá erro, mas tb não da certo, porque sera? Set rs2 = conn.execute("u
-
o erro é o seguinte: Microsoft JET Database Engine error '80040e10' No value given for one or more required parameters. /blinknot/admin.asp, line 6 A linha do codigo é essa: Set rs = conn.execute("Select * From cadastro where perlog=lembrarme AND ip='" & ip & "' ")
-
então, agora q fiz isso, quero fazer algo como o BBCode, pra isso uso o replace. mas, eu queria que c o usuario digitasse: "ae galera ae" dai queria q não ficasse italico, pois ele não pôs o "" como faz isso?
-
ops, foi mal, eu que coloquei errado, deu certo agora, é q eu tinha feito assim: assunto = request.querystring("assunto") assunto = server.htmlencode("assunto") e o certo era sem as "(aspas) vlw ae gnt
-
ok bareta, eu usei o server.htmlencode mas dai quando usa isso, c o usuario escrever <i><b>ae</b></i>, dai nem vai aparecer o "ae". E eu queria q dai aparecesse o "ae" normal, sem <i> e <b>.
-
você quer deichar uma noticia em baixo da outra???
-
Private Sub command1_Click() Unload Me end sub tenta isso
-
Tipo, eu to fazendo um forum, dai não queria permitir tags, como posso fazer isso?
-
porque no servidor q tá hospedado o meu site o global.asa não é permitido.
-
Tem Como Fazer Atualizações Do Bd Pela Internet?
pergunta respondeu ao tuliod de armagedon em Visual Basic
eu fui no outro tópico q indicou pra outro tópico q indicou pro site do macrotti, dai nele tem um tutorial, mas q diz como conectar usando SQL server. Eu queria saber como conectar em um site da web mesmo com um bd em acess -
Qual codigo eu posso usar pra mostrar quais usuarios online sem global.asa?
-
eu q boiei, nakela q eu fiz ali, q eu postei ali em cima tava certo, só q no select eu coloquei where ID=" & request.querystring("id") & ". E o certo era coloka where idmsg=" & request.querystring("id") & " Foi mal pela minha distração e vlw
-
eu criei uma tabela com nome = msglidas e campos: id = autonumber idmsg = number quemleu = text dai puiz o seguinte codigo: Pag da msg <% Set rs4 = conn.execute("Select * from msglidas where id=" & request.querystring("id") & " and quemleu='" & session("nick") & "' ") If rs4.eof then Set rs3 = conn.execute("Insert into msglidas (idmsg, quemleu) VALUES(" & request.querystring("id") & ", '" & session("nick") & "') ") end if %> e na pagina onde você clika na msg: <% Set rs3 = conn.execute("Select * from msglidas where id=" & rs("id") & " and quemleu='" & session("nick") & "' ") %> <% if rs3.eof then %>não lida <% else %> Lida <% end if %> Dai eu tento com o primeiro usuarios, dai cm ele dá certo, mas dai c eu deslogar, e tentar com outro usuario, não dá certo porque será?
-
Vou tentar isso, vlw
-
Como eu posso fazer pra marcar uma mensagem como lida, tipo, quando a msg não foi lida ela tem a img1 do lado dela, e quando tah lida tah a img2 do lado dela Que nem em forum Como posso fazer isso?
-
mas você quer colokar uma img q esteja em um servidor ow no seu pc? C for no servidor tenta assim: <% Dim conn Set conn = server.createobject("ADODB.Connection") conn.open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db.mdb") & ";" 'aki você vai inserir no bd o local da img Set rs = conn.execute("Insert into tabela (campoimg) VALUES(http://site.com.br/img.jpg) ") %> Dai pra você colokar a img em algum lugar você usa: <% Dim conn Set conn = server.createobject("ADODB.Connection") conn.open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db.mdb") & ";" Set rs = conn.execute("Select * from tabela") %> <img src="<%=rs("campoimg")%>">