Ir para conteúdo
Fórum Script Brasil

mestre fyoda

Membros
  • Total de itens

    1.908
  • Registro em

  • Última visita

Tudo que mestre fyoda postou

  1. alguém poderia me indicar uma ?
  2. então seria assim caso tenha os campos :senha e login senha = new LoadVars(); login = new LoadVars(); senha.load("pagina.asp"); login.load("pagina.asp"); senha.onLoad = function() { login.onLoad = function() { trace("Carregado"); } Está correto .
  3. Ei cara não entendi o que significa a variavel valores ? Poderia me mandar um exemplo mais concreto . Por favor. Mande com os nome das variaveis . Grato . Pode ser em php.
  4. passa os comando , e se possivel me envia um tutorial.
  5. Eu já vi aqui e em outros foruns , não entendi nada . Como faço para eu me interagir o Flash MX com asp e o access . Como faço para guardar informaçoes no access usando o flash , pegando dados do bd .
  6. por favor entrem nesse site : http://www.renepinheiro.com/forum/checkbox/check_box.html gostaria de um exemplo .fla em flash MX, alguém poderia me passar e me explicar.
  7. meu script ta assim . onClipEvent (mouseDown) { teste.setChangeHandler(onClick); function onClick() { gotoAndPlay(2); } } eu so não entendi o myHandler , o que eu faço nele ?
  8. a minha checkbox se chama teste1 . como faço essa condiçao , se a checkbox teste1 estiver marcada faço a condição? if (---------)
  9. Eu tenho uma verção Trial , mas não tem um campo para colocar o serial number . Como faço para colocar os serial number no flash mx verção 6 Trial .
  10. erro : Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression 'id ='. /teste123/sistema em asp/banir_salvar.asp, line 10
  11. mestre fyoda

    Mudar Nivel

    por favor me ajudem . esta dando o seguinte erro : Microsoft JET Database Engine error '80040e07' Data type mismatch in criteria expression. /teste123/sistema em asp/muda_nivel.asp, line 14 <%@ Language=VBScript%> <% intSno=Request("Delete") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("banco.mdb")) id = Request("nivel") Set rs = conn.Execute("SELECT * FROM usuarios WHERE id = "& id &" ") If rs.EOF Then Response.Write "O usurio no existe!!!" ElseIf rs("nivel") = "1" Then ' tire as aspas caso seja valor numrico no BD Response.Write "O man, no pode excluir usurios de nvel 1..." Else a=split(intSno,",") for iLoop=LBound(a) to UBound(a) intDelid=Trim(a(iLoop)) conn.Execute "update from usuarios where id = " & id & " " next Response.Write "O nivel do Usuario foi modificado" End If rs.Close Set rs = Nothing %>
  12. Microsoft JET Database Engine error '80040e14' Syntax error (comma) in query expression 'id = 15, 16'. /teste123/sistema em asp/banir_salvar.asp, line 12 <!--#include file="conexao.asp"--> <% id = Request("ban") 'Desmarca todos os registros do banco Set verificar = Server.CreateObject("ADODB.Recordset") sql = "Select * from usuarios where id = "& id &" " verificar.open sql, conex, 3,3 If verificar.EOF Then Response.Write "O usurio no existe!!!" ElseIf verificar("nivel") = 1 Then ' tire as aspas caso seja valor numrico no BD Response.Write "O man, no pode excluir usurios de nvel 1..." Else while not verificar.eof verificar("banido") = false verificar.update verificar.movenext wend 'Verifica o que foi selecionado for each ban in request("ban") 'Marca o campo banido como true de acordo com o id selecionado Set salvar = Server.CreateObject("ADODB.Recordset") sql = "Select * from usuarios where id ="&ban salvar.open sql, conex, 3,3 salvar("banido") = true salvar.update next 'Redireciona o usuário para a página anterior response.Redirect("admin_banir.asp") end if %>
  13. mestre fyoda

    Mudar Nivel

    como faço um if pegando dados de uma checkbox e dizer se ela esta marcada .
  14. mestre fyoda

    Mudar Nivel

    vamos lá ,,, temos 3 checkbox com as Variaveis A,M,U . Quero que o Admin ele faça o Update do nivel de usuario atraves da checkbox , podendo optar pelo Admin , Moderador , Usuario .
  15. mestre fyoda

    Mudar Nivel

    não da erro , simplesmente não grava no bd .
  16. mestre fyoda

    Mudar Nivel

    Esse script não esta fazenso update no nivel . me ajudem <%@ Language=VBScript %> <BODY> <FORM action="mudar_nivel.asp" method="Post" name=Form> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("banco.mdb")) set rs = Server.CreateObject("ADODB.recordset") SQL = "select * from usuarios" RS.Open SQL,Conn,3,3 %> <table width="434" border="1" cellpadding="0" cellspacing="0" height="43" style="border-collapse: collapse" bordercolor="#CCCCCC"> <tr> <th align="left" bgcolor=#DFE19D width="121" height="13" bordercolor="#FFFFFF" bordercolordark="#006699"> <b> Selecione</b> <th align="left" bgcolor=#DFE19D width="118" height="13" bordercolor="#FFFFFF" bordercolordark="#006699"> <b><font size="2" face="arial"> Nome</font> </b> <td align="left" bgcolor=#DFE19D width="129" height="13" bordercolor="#FFFFFF" bordercolordark="#006699"> <p align="center"><b><font size="2" face="arial"> Login</font></b></td> </tr> <%intCounter=0%> <%do until rs.EOF%> <% intCounter=intCounter+1 intMod=intcounter mod 2 if intmod=0 then rcolor = "#c0c0c0" elseif intmod=1 then rcolor = "#FFFFFF" end if %> <tr> <td align="left" bgcolor=<%=rcolor%> width="121" height="20"> <p align="right"> <font size="2" face="arial" color="BLACK"> &nbsp;&nbsp; <width=35%>Adiministrador<input type=CheckBox name=A value=<%=RS("nivel")%>><br> Moderador<input type=CheckBox name=M value=<%=RS("nivel")%>><br> Usurio<input type=CheckBox name=U value=<%=RS("nivel")%>><br> </font> <td align="left" bgcolor=<%=rcolor%> width="78" height="20"> <font size="2" face="arial" color="BLACK"> <%Response.Write (RS("nome"))%> &nbsp;</font> <td align="center" bgcolor=<%=rcolor%> width="127" height="20"> <font size="2" face="arial" color="BLACK"> <%Response.Write(RS("usuario"))%> &nbsp;</font> <%rs.MoveNext%> </font></tr> <% A = Request.Form("A") M = Request.Form("M") U = Request.Form("U") loop SET rs=nothing set conn=nothing %> <% If Request("A") = "on" Then strSQL = "UPDATE usuarios set nivel = '"&A&"'" conexao.Execute(strSQL) end if %> <% If Request("M") = "on" Then strSQL = "UPDATE usuarios set nivel = '"&M&"'" conexao.Execute(strSQL) end if %> <% If Request("U") = "on" Then strSQL = "UPDATE usuarios set nivel = '"&U&"'" conexao.Execute(strSQL) end if %> </table> <input type="submit" value="Atualizar Nivel" name="B1"> </form> </BODY>
  17. então cara , valeu pela ajuda , obrigado a todos que me ajudaram
  18. me de uma ajuda pra fazer isso , não me passe o codigo e sim me de uma luz . è muito complicado fazer isso ?
  19. quando vou deletar o usuario e o Admin master ao mesmo tempo da esse erro : Microsoft JET Database Engine error '80040e14' Syntax error (comma) in query expression 'id = 15, 17'. /teste123/sistema em asp/deleta.asp, line 14
  20. ei cara , achei um outro erro , quando você vai deletar o usuario padrão ele da erro . Microsoft JET Database Engine error '80040e07' Data type mismatch in criteria expression. /teste123/sistema em asp/deleta.asp, line 27 <%@ Language=VBScript%> <% intSno=Request("Delete") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("banco.mdb")) id = Request("Delete") Set rs = conn.Execute("SELECT * FROM usuarios WHERE id = "& id &" ") If rs.EOF Then Response.Write "O usurio no existe!!!" ElseIf rs("nivel") = 1 Then ' tire as aspas caso seja valor numrico no BD Response.Write "O man, no pode excluir usurios de nvel 1..." Else a=split(intSno,",") dim iLoop for iLoop=LBound(a) to UBound(a) intDelid=Trim(a(iLoop)) conn.Execute "delete from usuarios where id = '" & intDelid & "' " next Response.Redirect "del_sucesso.asp" End If rs.Close Set rs = Nothing %>
  21. Valeu pessoal , consegui . Valeu para todos que contribuiram .
  22. o form é esse : deletar.asp <%@ Language=VBScript %> <%OPTION EXPLICIT%> <BODY> <FORM action="deleta.asp" method="Post" name=Form> <% Dim conn,rs,intCounter,intMod,rcolor,SQL set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("banco.mdb")) set rs = Server.CreateObject("ADODB.recordset") SQL = "select * from usuarios" RS.Open SQL,Conn,3,3 %> <table width="306" border="1" cellpadding="0" cellspacing="0" height="43" style="border-collapse: collapse" bordercolor="#CCCCCC"> <tr> <th align="left" bgcolor=#DFE19D width="84" height="13" bordercolor="#FFFFFF" bordercolordark="#006699"> <b> Selecione</b> <th align="left" bgcolor=#DFE19D width="98" height="13" bordercolor="#FFFFFF" bordercolordark="#006699"> <b><font size="2" face="arial"> Nome</font> </b> <td align="left" bgcolor=#DFE19D width="58" height="13" bordercolor="#FFFFFF" bordercolordark="#006699"> <p align="center"><b><font size="2" face="arial"> Login</font></b></td> </tr> <%intCounter=0%> <%do until rs.EOF%> <% intCounter=intCounter+1 intMod=intcounter mod 2 if intmod=0 then rcolor = "#c0c0c0" elseif intmod=1 then rcolor = "#FFFFFF" end if %> <tr> <td align="left" bgcolor=<%=rcolor%> width="84" height="20"> <font size="2" face="arial" color="BLACK"> <width=35%> <input type=CheckBox name=Delete value=<%=RS("id")%>> <td align="left" bgcolor=<%=rcolor%> width="58" height="20"> <font size="2" face="arial" color="BLACK"> <%Response.Write (RS("nome"))%> &nbsp;</font> <td align="center" bgcolor=<%=rcolor%> width="56" height="20"> <font size="2" face="arial" color="BLACK"> <%Response.Write(RS("usuario"))%> &nbsp;</font> <%rs.MoveNext%> </font></tr> <%loop SET rs=nothing set conn=nothing %> </table> <input type="submit" value="Deletar" name="B1"> </p> </form> </BODY>
  23. Agora esta dando esse erro . Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression 'id ='. /teste123/sistema em asp/deleta.asp, line 14
  24. Microsoft JET Database Engine error '80040e07' Data type mismatch in criteria expression. /teste123/sistema em asp/deleta.asp, line 14 <%@ Language=VBScript%> <% intSno=Request("Delete") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("banco.mdb")) id_usuario = Request.QueryString("id") Set rs = conn.Execute("SELECT * FROM usuarios WHERE id = '"& id &"' ") If rs.EOF Then Response.Write "O usuário não existe!!!" ElseIf rs("nivel") = 1 Then ' tire as aspas caso seja valor numérico no BD Response.Write "O mané, não pode excluir usuários de nível 1..." Else a=split(intSno,",") dim iLoop for iLoop=LBound(a) to UBound(a) intDelid=Trim(a(iLoop)) conn.Execute "delete from usuarios where id = '" & intDelid & "' " next Response.Redirect "del_sucesso.asp" End If rs.Close Set rs = Nothing %>
×
×
  • Criar Novo...