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. não adiantou cara , esta dando erro ,mas o site não aponta o erro . http://ee.domaindlx.com/teste123/sistema%2...asp/deletar.asp
  2. esta dando erro ........ mas o erro não esta sendo mostrado . link : http://ee.domaindlx.com/teste123/sistema%2...asp/deletar.asp eu tirei essa linha , mas nada adiantou . SQL = "select * from usuarios where usuario = '"&usuario&"'" Set RS = conn.Execute(SQL).
  3. <%@ Language=VBScript%> <% intSno=Request("Delete") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("banco.mdb")) usuario = Request.Form("usuario") SQL = "select * from usuarios where usuario = '"&usuario&"' and nivel <> 1 " Set RS = conn.Execute(SQL) If not RS.EOF Then %> <script> alert("Você não pode deletar usuario master. Este codigo eu peguei pronto não se pode fazer isso também."); window.location.href=("index.asp"); </script> <% end if 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" conn.Close set conn=nothing %>
  4. ops , esqueci de lhe dizer , o script de mudar_nivel ele não esta atualizando no banco de dados , porque ?
  5. no bd esta como numero ...... me ajude com esse outro script .... link .. http://ee.domaindlx.com/teste123/sistema%2...mudar_nivel.asp codigo <%@ Language=VBScript %><%OPTION EXPLICIT%> <BODY> <FORM action="mudar_nivel.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="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>Usuário<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><%loopSET rs=nothing set conn=nothing %> <% If Request("A") = "on" ThenstrSQL = "UPDATE INTO usuarios (nivel) VALUES ('"&A&"')" Set rsInsere = conexao.Execute(strSQL) end if %> <% If Request("M") = "on" ThenstrSQL = "UPDATE INTO usuarios (nivel) VALUES ('"&M&"')" Set rsInsere = conexao.Execute(strSQL) end if %> <% If Request("U") = "on" ThenstrSQL = "UPDATE INTO usuarios (nivel) VALUES ('"&U&"')" Set rsInsere = conexao.Execute(strSQL) end if %> </table> <input type="submit" value="Atualizar Nivel" name="B1"> </form> </BODY>
  6. Valeu dark0 , mas ele esta deletando o admin master ....... já tentei mudar essa linha de comando , If not RS.EOF Then mas deleta de qualquer jeito .
  7. Microsoft VBScript runtime error '800a01a8' Object required: 'conexao' /teste123/sistema em asp/deleta.asp, line 13 <%@ Language=VBScript%> <% intSno=Request("Delete") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("banco.mdb")) usuario = Request.Form("usuario") SQL = "select * from usuarios where usuario = '"&usuario&"' and nivel <> 1 " Set RS = conexao.Execute(SQL) If not RS.EOF Then %> <script> alert("Você não pode deletar usuario master. Este codigo eu peguei pronto não se pode fazer isso também."); window.location.href=("index.asp"); </script> <% end if 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" conn.Close set conn=nothing %> Obrigado , mas agora esta dando esse erro .
  8. o link é : http://ee.domaindlx.com/teste123/sistema%2...asp/deletar.asp o unico usuário é o 1 , ele é o admin Master.
  9. já dei uma olhada , to ligado que quando é uma string se usa ' ' , mas não esta dando certo , ando estou hospedado na doamindlx.com ela não aponta o erro .
  10. No bd eu criei uma variavel chamada nivel , onde o Usuario Master recebe 1 .
  11. não entendi nada , você poderia me passar o codigo consertado .
  12. Gostaria de colocar nesse script um jeito do usuario não deletar o usuário Master <%@ Language=VBScript%> <% Option Explicit %> <% Dim intSno,intDelid,conn,a intSno=Request("Delete") set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("banco.mdb")) usuario = Request.Form("usuario") SQL = "select * from usuarios where usuario = '"&usuario&"' " Set RS = conexao.Execute(SQL) 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" conn.Close set conn=nothing %>
  13. Erro de compilação do Microsoft VBScript erro '800a03ea' Erro de sintaxe /clanevil/paginacao.asp, line 139 function formatadata(data)
  14. O meu codigo esta dando erro : Erro de compilação do Microsoft VBScript erro '800a03ea' Erro de sintaxe /clanevil/paginacao.asp, line 140 function formatadata(data) ^ <% dim dataatual, datanascimento, n1, n2 function formatadata(data) dd = day(data) mm = month(data) aa = year(data) if len(dd) = 1 then dd = "0" & dd if len(mm) = 1 then mm = "0" & mm formatadata = cstr(dd & "/" & mm & "/" & aa) end function function idade(dataatual, datanascimento) if (cint(mid(dataatual, 4, 2)))>=(cint(mid(datanascimento, 4, 2))) then if (cint(mid(dataatual, 1, 2)))>=(cint(mid(datanascimento, 1, 2))) then n1 = cint(mid(dataatual, 7, 4)) n2 = cint(mid(datanascimento, 7, 4)) idade = n1-n2 else n1 = cint(mid(dataatual, 7, 4)) n2 = cint(mid(datanascimento, 7, 4)) idade = n1-n2-1 end if else n1 = cint(mid(dataatual, 7, 4)) n2 = cint(mid(datanascimento, 7, 4)) idade = n1-n2-1 end if Response.Write idade end function call idade(formatadata(date),formatadata(rs("dob")) %>
  15. mestre fyoda

    Calcular Idade

    Dark o script funcionou em partes . Eu testei com essa data 25/12/1982 , e ela da que a pessoa tem 22 anos na realidade teria que ter 21 anos . Poderia me ajudar a solucionar esse pequeno problema . Valeu cara . Agradeço .
  16. mestre fyoda

    Calcular Idade

    Ei dark você poderia quebrar um gualho , poderia incluir esse codigo no meu codigo , nem tenho ideia como funciona esse codigo . isso mesmo , no bd guarda a data de nascimento , no form o usuario digita . os nomes das variaveis são : dob -> data de nascimento RS chama o select para printar na tela . quebra essa , implementa no script paginacao.asp .
  17. mestre fyoda

    Calcular Idade

    não entendi ......... você poderia inserir esse codigo no meu codigo . cadastrar.asp <% Dim nome Dim email Dim strSQL Dim rsInsere nome = Request.Form("nome") snome = Request.Form("snome") email = Request.Form("email") login = Request.Form("login") senha = Request.Form("senha") c_senha = Request.Form("c_senha") dob = Request.Form("birth_day") & "/" & Request.Form("birth_month") & "/" & Request.Form("birth_year") icon = Request.Form("icon") 'Criando um objeto de conexão ADO Set conexao = Server.CreateObject("ADODB.Connection") 'Abrindo a conexão ADO conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banco.mdb") SQL = "select * from usuarios where email = '"&email&"' " Set RS = conexao.Execute(SQL) If not RS.EOF Then Response.Redirect "email_naoexiste.asp" Else SQL = "select * from usuarios where login = '"&login&"' " Set RS = conexao.Execute(SQL) IF not RS.EOF Then Response.Redirect "usuario_jacadastrado.asp" Else IF senha <> c_senha Then Response.Redirect "errodesenha.asp" Else strSQL = "INSERT INTO usuarios (nome,snome,email,login,senha,data,icon,dob) VALUES ('"&nome&"','"&snome&"','"&email&"','"&login&"','"&senha&"','"&now&"','"&icon&"','"&dob&"')" Set rsInsere = conexao.Execute(strSQL) Response.redirect "red_cadastro.asp" END IF END IF END IF %> paginacao.asp <% 'Efetuando a conexão com a base de dados criada ----------------------- Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("banco.mdb") Conn.open '-------------------------------------------------------------------------- 'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo, 'pois vamos utilizar algumas funções deste objeto Set RS = Server.CreateObject("adodb.recordset") RS.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise. 'Vamos fazer a busca na tabela contatos SQL = "select * from usuarios" RS.Open SQL,Conn,3,3 'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 'que zero, se é maior que o número total de páginas, etc. IF RS.EOF then Response.Write "nenhum registro encontrado" Response.End 'paramos o programa ELSE 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF 'Fim das verificações de exceções 'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta RS.AbsolutePage=intpagina ' Inicia o contador que vai controlar os registros mostrados intrec=0 'Enquanto o contador for menor que a quantidade de registros mostrados ou ' não for o final do arquivo %> <% While intrec < RS.PageSize and not RS.EOF %> <head> <style> <!-- a{text-decoration:none} //--> </style> </SCRIPT> <LINK href="images/padrão.css" rel=stylesheet type=text/css> <STYLE type=text/css>#divUpControl { HEIGHT: 13px; LEFT: 518px; POSITION: absolute; TEXT-ALIGN: right; TOP: 340px; WIDTH: 12px; Z-INDEX: 1 } #divDownControl { HEIGHT: 12px; LEFT: 519px; POSITION: absolute; TEXT-ALIGN: right; TOP: 573px; WIDTH: 11px; Z-INDEX: 1 } #divContainer { CLIP: rect(0px 163px 232px 0px); HEIGHT: 232px; LEFT: 353px; OVERFLOW: hidden; POSITION: absolute; TOP: 346px; VISIBILITY: hidden; WIDTH: 163px } #divContent { LEFT: 0px; POSITION: absolute; TOP: 0px } </STYLE> <STYLE type=text/css>.tabela { BACKGROUND: #f5f5f5; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px } .link { COLOR: #000000; TEXT-DECORATION: none } .link:hover { COLOR: #ff8040; TEXT-DECORATION: none } .TD { COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px } .campo { BACKGROUND: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px } .botao { BACKGROUND: #f3f3f3; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #bbbbbd 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #bbbbbd 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px } .botao2 { BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #ffffff; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #ffffff; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #ffffff; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt } .Menu:link { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px } .Menu:visited { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px } .Menu:unknown { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px } .Menu:hover { BACKGROUND-COLOR: #f5f5f5; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px } </STYLE> </head> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="32%" id="AutoNumber1" height="17" bgcolor="#C0C0C0" align="center"> <tr> <td width="14%" height="17" bgcolor="#F8F8F8" rowspan="8"> <p align="center"> &nbsp;<img src="<%=RS("icon")%>.gif" width=32 height=32 align="left" ></td> <td width="86%" height="10" bordercolor="#C0C0C0" bgcolor="#F8F8F8"> <font size="1" face="Verdana" class="TD"><b>&nbsp;Nome: <%=RS("nome")%></b></font></td> </tr> <tr> <td width="86%" height="7" bordercolor="#C0C0C0" bgcolor="#F8F8F8"> <font size="1" face="Verdana" class="TD"><b>&nbsp;Sobre Nome: <%=RS("nome")%></b></font></td> </tr> <tr> <td width="86%" height="2" bordercolor="#C0C0C0" bgcolor="#F8F8F8"> <font face="Verdana" size="1" class="TD"><b>&nbsp;Email: <%=RS("email")%></b></font></td> </tr> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> <font face="Verdana" size="1" class="TD"><b>&nbsp;Data Cadastro:<%=RS("data")%></b> </font></p> </td> </tr> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> <font face="Verdana" size="1" class="TD"><b>&nbsp;Idade:<%=RS("idade")%></b> </font></p> </td> </tr> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> <font face="Verdana" size="1" class="TD"><b>&nbsp;Login:<%=RS("login")%></b> </font></p> </td> </tr> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> <font face="Verdana" size="1" class="TD"><b>&nbsp;Sexo:<%=RS("sexo")%></b> </font></p> </td> </tr> </table> <p align="center"> <br> <% RS.MoveNext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF RS.EOF then response.write " " END IF Wend 'fim do loop 'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. IF intpagina > 1 then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>" class="TD">Anterior</a>&nbsp;&nbsp;&nbsp; <a href="paginacao.asp?pagina=<%=intpagina + 1%>" class="TD">&nbsp;&nbsp;&nbsp;&nbsp; Próxima </a> <% END IF %>
  18. mestre fyoda

    Calcular Idade

    dark0 , eu coloquei um campo no formulario para o usuario digitar a data de nascimento e depois garda esse informação no bd . Eu vou printar na tela a idade , login , nome e etc .... você poderia me passar o codigo para calcular a idade . Por favor , envie o codigo com explicação . Se não for pedir muito , não complique o codigo , pois não manjo muito de asp .
  19. mestre fyoda

    Calcular Idade

    não entendi bolufaz o que foi explicado , poderia me ajudar com algo mais simples , mas por favor comenta para que eu possa entender .
  20. mestre fyoda

    Calcular Idade

    por favor me ajudem a calcular uma idade . Mas me passem codigo simples com explicações .
  21. mestre fyoda

    Paginaçao

    o nome do campo é icon . me ajudem a implementar o codigo . Como faço para chamar uma figura no bd , sendo que ela não esta salva no bd como .gif ou .jpg , ela esta salva como 1 . Detalhe , a figura esta dentro de um RESPONSE WRITE .
  22. AGORA ESTÀ DANDO ESSE ERRO : Microsoft OLE DB Provider for ODBC Drivers erro '80040e37' [Microsoft][Driver ODBC para Microsoft Access] Não foi possível encontrar a tabela de saída 'dados'. /clanevil/cadastrar.asp, line 42
  23. Ele aviza que o usuario já esta cadastrado , detalhe o meu bd está vazio e dá esse erro . <% If Request.Form("enviado") = "sim" Then nome = Replace(Request.Form("nome"), "'", "/") snome = Replace(Request.Form("snome"), "'", "/") sexo = Replace(Request.Form("sexo"), "'", "/") email = Replace(Request.Form("email"), "'", "/") login = Replace(Request.Form("login"), "'", "/") senha = Replace(Request.Form("senha"), "'", "/") c_senha = Replace(Request.Form("c_senha"), "'", "/") Set CX = Server.CreateObject("ADODB.connection") CX.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banco.mdb") Set CX2 = Server.CreateObject("ADODB.connection") CX2.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banir/banco.mdb") Set rs = CX.Execute("Select * from usuarios where login = '"&login&"' ") IF rs.EOF Then Response.Write "Usuário já cadastrado" Else Set rs = CX.Execute("Select * from usuarios where email = '"&email&"' ") IF rs.EOF Then Response.Write "Email já cadastrado" Else if senha <> c_senha Then Response.Write "Senha e confirma Senha estão incorretos " Else sql = "insert into dados (nome, snome,email,login, senha, sexo) values ('"&nome&"', '"&snome&"' ,'"&email&"', '"&login&"', '"&senha&"', '"&sexo&"')" sq2 = "insert into dados (nome, email,usuario, senha) values ('"&nome&"', '"&email&"', '"&login&"', '"&senha&"')" CX.execute(sql) CX2.execute(sq2) CX.close set CX = nothing CX2.close set CX2 = nothing response.Redirect("red_cadastro.asp") END IF END IF END IF Else %> <head> <style> <!-- a{text-decoration:none} //--> </style> </SCRIPT> <LINK href="images/padrão.css" rel=stylesheet type=text/css> <STYLE type=text/css>#divUpControl { HEIGHT: 13px; LEFT: 518px; POSITION: absolute; TEXT-ALIGN: right; TOP: 340px; WIDTH: 12px; Z-INDEX: 1 } #divDownControl { HEIGHT: 12px; LEFT: 519px; POSITION: absolute; TEXT-ALIGN: right; TOP: 573px; WIDTH: 11px; Z-INDEX: 1 } #divContainer { CLIP: rect(0px 163px 232px 0px); HEIGHT: 232px; LEFT: 353px; OVERFLOW: hidden; POSITION: absolute; TOP: 346px; VISIBILITY: hidden; WIDTH: 163px } #divContent { LEFT: 0px; POSITION: absolute; TOP: 0px } </STYLE> <STYLE type=text/css>.tabela { BACKGROUND: #f5f5f5; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px } .link { COLOR: #000000; TEXT-DECORATION: none } .link:hover { COLOR: #ff8040; TEXT-DECORATION: none } .TD { COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px } .campo { BACKGROUND: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px } .botao { BACKGROUND: #f3f3f3; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #bbbbbd 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #bbbbbd 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px } .botao2 { BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #ffffff; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #ffffff; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #ffffff; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt } .Menu:link { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px } .Menu:visited { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px } .Menu:unknown { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px } .Menu:hover { BACKGROUND-COLOR: #f5f5f5; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px } </STYLE> <script type="text/javascript"> </script> <!--TEMPLATE: skin_global, Template Part: css_inline--> <style type='text/css'> html { overflow-x: auto } form { display: inline } img { vertical-align: middle; border: 0px } BODY { font-family: Verdana, Tahoma, Arial, sans-serif; font-size: 11px; margin: 10px 10px 10px 10px; color: #003366; background-color: #FFF } TABLE, TR, TD { font-family: Verdana, Tahoma, Arial, sans-serif; font-size: 11px; color: #003366 } a:link, a:visited, a:active { text-decoration: none; color: #003366 } a:hover { text-decoration: underline; color: #465584 } fieldset.search { padding: 6px; line-height: 150% } label { cursor: pointer } img.attach { padding: 2px; border: 0px outset #EEF2F7 } #blaz-header { background-color: #4b4b4b; height: 85px; border: 1px solid #345487; } #blaz-logo { float: left; } #blaz-banner { padding-top: 13px; text-align: center; } h1 { font-size: 15px; color: #003366; line-height: 150% } .googleroot { padding: 6px; line-height: 130% } .googlechild { padding: 6px; margin-left: 30px; line-height: 130% } .googlebottom, .googlebottom a:link, .googlebottom a:visited, .googlebottom a:active { font-size: 11px; color: #3A4F6C } .googlish, .googlish a:link, .googlish a:visited, .googlish a:active { font-size: 14px; font-weight: bold; color: #00D } .googlepagelinks { font-size: 1.1em; letter-spacing: 1px } .googlesmall, .googlesmall a:link, .googlesmall a:active, .googlesmall a:visited { font-size: 10px; color: #434951 } li.helprow { padding: 0px; margin: 0px 0px 10px 0px } ul#help { padding: 0px 0px 0px 15px } option.cat { font-weight: bold } option.sub { font-weight: bold; color: #555 } .caldate { text-align: right; font-weight: bold; font-size: 11px; padding: 4px; margin: 0px; color: #777; background-color: #DFE6EF } .warngood { color: green } .warnbad { color: red } #padandcenter { margin-left: auto; margin-right: auto; text-align: center; padding: 14px 0px 14px 0px } #profilename { font-size: 28px; font-weight: bold } #calendarname { font-size: 22px; font-weight: bold } #photowrap { padding: 6px } #phototitle { font-size: 24px; border-bottom: 1px solid black } #photoimg { text-align: center; margin-top: 15px } #ucpmenu { line-height: 150%; width: 22%; background-color: #F5F9FD; border: 1px solid #345487 } #ucpmenu p { padding: 2px 5px 6px 9px; margin: 0px } #ucpcontent { line-height: 150%; width: auto; background-color: #F5F9FD; border: 1px solid #345487 } #ucpcontent p { padding: 10px; margin: 0px } #ipsbanner { position: absolute; top: 1px; right: 5% } #logostrip { padding: 0px; margin: 0px; background-color: #4B4B4B; border: 1px solid #345487 } #submenu { font-size: 10px; margin: 3px 0px 3px 0px; font-weight: bold; color: #3A4F6C; background-color: #DFE6EF; border: 1px solid #BCD0ED } #submenu a:link, #submenu a:visited, #submenu a:active { font-weight: bold; font-size: 10px; text-decoration: none; color: #3A4F6C } #userlinks { background-color: #F0F5FA; border: 1px solid #C2CFDF } #navstrip { font-weight: bold; padding: 6px 0px 6px 0px; color: #003366; font-size: 12px } .activeuserstrip { padding: 6px; background-color: #BCD0ED } .pformstrip { font-weight: bold; padding: 7px; margin-top: 1px; color: #3A4F6C; background-color: #D1DCEB } .pformleft { padding: 6px; margin-top: 1px; width: 25%; border-top: 1px solid #C2CFDF; border-right: 1px solid #C2CFDF; background-color: #F5F9FD } .pformleftw { padding: 6px; margin-top: 1px; width: 40%; border-top: 1px solid #C2CFDF; border-right: 1px solid #C2CFDF; background-color: #F5F9FD } .pformright { padding: 6px; margin-top: 1px; border-top: 1px solid #C2CFDF; background-color: #F5F9FD } .post1 { background-color: #F5F9FD } .post2 { background-color: #EEF2F7 } .postlinksbar { padding: 7px; margin-top: 1px; font-size: 10px; background-color: #D1DCEB; background-image: url(style_images/1/tile_sub.gif) } .row1 { background-color: #F5F9FD } .row2 { background-color: #F0F0F0 } .row3 { background-color: #EEF2F7 } .row4 { background-color: #E4EAF2 } .row5 { background-color: #E4EAF2; font-size: 12px } .darkrow1 { color: #4C77B6; background-color: #C2CFDF } .darkrow2 { color: #3A4F6C; background-color: #BCD0ED } .darkrow3 { color: #3A4F6C; background-color: #D1DCEB } .hlight { background-color: #DFE6EF } .dlight { background-color: #EEF2F7 } .titlemedium { font-weight: bold; padding: 7px; margin: 0px; color: #3A4F6C; background-image: url(style_images/1/tile_sub.gif) } .titlemedium a:link, .titlemedium a:visited, .titlemedium a:active { text-decoration: underline; color: #3A4F6C } .maintitle { vertical-align: middle; font-weight: bold; letter-spacing: 0px; padding: 8px 0px 8px 5px; color: #FFF; background-image: url(style_images/1/tile_back.gif); font-size: 12px } .maintitle a:link, .maintitle a:visited, .maintitle a:active { text-decoration: none; color: #FFF } .maintitle a:hover { text-decoration: underline } .plainborder { background-color: #F5F9FD; border: 1px solid #839DCE } .tableborder { background-color: #FFF; border: 1px solid #839DCE } .tablefill { padding: 6px; background-color: #F5F9FD; border: 1px solid #839DCE } .tablepad { padding: 6px; background-color: #F5F9FD } .tablebasic { width: 100%; padding: 0px 0px 0px 0px; margin: 0px; border: 0px } .wrapmini { float: left; line-height: 1.5em; width: 25% } .pagelinks { float: left; line-height: 1.2em; width: 35% } .desc { font-size: 10px; color: #434951 } .edit { font-size: 9px } .signature { font-size: 12px; color: #003366; line-height: 150% } .postdetails { font-size: 10px } .postcolor { font-size: 12px; line-height: 160% } .postcolor a:link, .postcolor a:visited, .postcolor a:active { text-decoration: underline; } .normalname { font-size: 12px; font-weight: bold; color: #003 } .normalname a:link, .normalname a:visited, .normalname a:active { font-size: 12px } .unreg { font-size: 11px; font-weight: bold; color: #900 } .searchlite { font-weight: bold; color: #F00; background-color: #FF0 } #QUOTE { font-family: Verdana, Arial; font-size: 11px; padding-top: 2px; padding-right: 2px; padding-bottom: 2px; padding-left: 2px; color: #444444; background-color: #FAFAFA; border: 1px solid #D1D7DC; line-height: 110% } #CODE { font-family: Courier, 'Courier New', Verdana, Arial; font-size: 11px; padding-top: 2px; padding-right: 2px; padding-bottom: 2px; padding-left: 2px; color: #006600; background-color: #FAFAFA; border: 1px solid #D1D7DC; line-height: 110% } .copyright { font-family: Verdana, Tahoma, Arial, Sans-Serif; font-size: 9px; line-height: 12px } .codebuttons { font-size: 10px; font-family: verdana, helvetica, sans-serif; vertical-align: middle } .forminput, .textinput, .radiobutton, .checkbox { font-size: 12px; line-height: 160%; font-family: verdana, helvetica, sans-serif; vertical-align: middle } .thin { padding: 6px 0px 6px 0px; line-height: 140%; margin: 2px 0px 2px 0px; border-top: 1px solid #FFF; border-bottom: 1px solid #FFF } .purple { font-weight: bold; color: purple } .red { font-weight: bold; color: red } .green { font-weight: bold; color: green } .blue { font-weight: bold; color: blue } .orange { font-weight: bold; color: #F90 } </style> </head> <form method="POST" action="cadastrar.asp"> <input type="hidden" name="enviado" value="sim"> <table width='100%' height='85%' align='center'> <tr> <td valign='middle'> <table align='center' cellpadding="4" class="tablefill"> <tr> <td width="100%" align="center" nowrap="nowrap"> <p align="center"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b> Cadastro de Usuários </b><BR><BR><BR><BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; Nome: <input type="text" name="nome" class="campo" size="20"><br><br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sobre Nome: <input type="text" name="snome" class="campo" size="20"><br><br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Email: <input type="text" name="email" class="campo" size="20"><br><br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Login: <input type="text" name="login" class="campo" size="20"><br><br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;Senha: <input type="password" name="senha" class="campo" size="20"><br><br> Confirma a Senha:<input type="password" name="c_senha" class="campo" size="20"><br><br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sexo: <select size="1" class="TD" name="sexo"> <option>---( Escolha um&nbsp; Sexo)---</option> <option value="masculino">Masculino</option> <option value="feminino">Feminino</option> <option value="Lesbica">Lesbica</option> <option value="Gay">Gay</option> </select><BR><BR> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type="submit" class="botao2" name="Enviar" value="Cadastrar" ><BR><BR><BR><BR> </form> </td> </tr> </table> </td> </tr> </table> <% END IF %>
  24. mestre fyoda

    Erro No Script

    Microsoft OLE DB Provider for ODBC Drivers erro '80004005' [Microsoft][Driver ODBC para Microsoft Access] O campo 'mural.nome' não pode ser uma seqüência de caracteres de comprimento nulo. /clanevil/mural/mural_action.asp, line 22 <% Dim nome Dim nick Dim email Dim cidade Dim imagem Dim mensagem nome = Request.form("txtnome") nick = Request.form("txtnick") email = Request.form("txtemail") cidade = Request.form("txtcidade") imagem = Request.form("imagem") mensagem = Request.form("txtmensagem") set conexao = createobject("Adodb.connection") constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("mural.mdb") conexao.open constr set rs = conexao.execute("insert into mural(nome,nick,email,cidade,imagem,mensagem) Values('"& nome &"','"& nick &"','"& email &"','"& cidade &"','"& imagem &"','"& mensagem &"')") if err>0 then Response.write"Ocorreu um erro" else Response.write"Mensagem enviada com sucesso" end if %>
×
×
  • Criar Novo...