Ir para conteúdo
Fórum Script Brasil

Marcelo do GBT

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    9

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Marcelo do GBT postou

  1. Marcelo do GBT
    Caro Kuroi, Agradeço sua atenção e presteza, mas não consegui realmente, pois continua dando erros. Mas também vou aceitar seu conselho, e vou devolver o serviço, pois como voce mesmo disse, como posso querer fazer algo sem conhecimento, e como meu conhecimento é outro, não adianta eu querer fazer algo a toque de caixa. Bem, também acho que um forum que só sirva para quem já sabe, não faz muito sentido, pois eu acredito que forum, tem que ser para quem esta inciando, pois quem sabe, não precisa de ajuda, concorda? Muito obrigado!
  2. Marcelo do GBT
    Caro Kuroi, Será que não daria para ser mais claro, pois eu não manjo de asp, e voce mandar eu olhar a linha, não significa nada, pois o que preciso, é que me diga exatamente o que tenho que fazer, ou mudar, entende? Agradeço se for mais preciso!
  3. Marcelo do GBT
    Tipo de erro: ADODB.Field (0x80020009) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /guia/estatisticas/acessos.asp. este é o erro, mas ele não indica linha alguma, apenas da o erro!
  4. Marcelo do GBT

    metatraffic

    uma questão postou Marcelo do GBT ASP

    Caros amigos, Baixei o metatraffic do scrit brasil, mas não sei como configurar para ele ler as informações do meu site, alguém pode me ajudar, pois como sou novo na programação em asp, quero saber se tem que alterar alguma coisa, ou não! Agradeço a quem poder ajudar-me
  5. Marcelo do GBT

    Action Post

    uma questão postou Marcelo do GBT ASP

    Caros, Tenho um quiz em meu portal, e como eu é quem cuido dele agora, preciso saber como fazer para que quando alguém se cadastre, além da ação atual, de gravar as infromações do banco de dados, ela também mande as informações para meu e-mail, então segue o codigo atual, para que algume me ajude nisto, ok? CADASTRO.ASP <html> <head> <meta http-equiv="Content-Language" content="en-us"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>QuizNet &gt; Cadastro</title> </head> <body> <p align="center"><img src="img/logo1.gif" width="300" height="100"></p> <table width="289" border="0" align="center" cellpadding="0" cellspacing="0"> <!-- fwtable fwsrc="Sem título" fwbase="mod_quiz.gif" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" --> <tr> <td><img src="spacer.gif" width="289" height="1" border="0" alt=""></td> <td><img src="spacer.gif" width="1" height="1" border="0" alt=""></td> </tr> <tr> <td height="29" valign="top" bgcolor="#CCCC00"><img name="top_quiz" src="img/top_quizCad.gif" width="289" height="21" border="0" alt=""></td> <td><img src="spacer.gif" width="1" height="21" border="0" alt=""></td> </tr> <tr> <td> <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCCC00"> <tr> <td><form action="envia_cadastro2.asp" method="POST"> <div align="center"> <table width="272" border="0" cellpadding="0" cellspacing="0"> <center> <tr> <td width="35%" align="right"><div align="left"><font color="#006633" size="2" face="Tahoma">Nome Completo </font></div></td> <td width="65%"><font color="#006633" size="2" face="Tahoma">&nbsp; <input type="text" name="nome" size="25" style="font-family: Tahoma; font-size: 8 pt; color: #000000; border: 1px dashed #006633;"> </font></td> </tr> <tr> <td align="right"><div align="left"><font color="#006633" size="2" face="Tahoma">E-Mail:</font></div></td> <td><font color="#006633" size="2" face="Tahoma">&nbsp; <input type="text" name="email" size="25" style="font-family: Tahoma; font-size: 8 pt; color: #000000; border: 1px dashed #006633;"> </font></td> </tr> <tr> <td align="right"><div align="left"><font color="#006633" size="2" face="Tahoma">Login:</font></div></td> <td><font color="#006633" size="2" face="Tahoma">&nbsp; <input type="text" name="login" size="25" style="font-family: Tahoma; font-size: 8 pt; color: #000000; border: 1px dashed #006633;"> </font></td> </tr> <tr> <td align="right"><div align="left"><font color="#006633" size="2" face="Tahoma">Senha:</font></div></td> <td><font color="#006633" size="2" face="Tahoma">&nbsp; <input type="password" name="senha" size="25" style="font-family: Tahoma; font-size: 8 pt; color: #000000; border: 1px dashed #006633;"> </font></td> </tr> </center> <tr> <td align="right"> <p align="left"><font color="#006633" size="2" face="Tahoma">Repita a Senha: </font></td> <center> <td><font color="#006633" size="2">&nbsp;<font face="Tahoma"> <input type="password" name="senha2" size="25" style="font-family: Tahoma; font-size: 8 pt; color: #000000; border: 1px dashed #006633;"> </font></font></td> </center> </tr> <tr> <td align="right"><font color="#006633" size="2">&nbsp;</font></td> <td>&nbsp;</td> </tr> <tr> <td align="right"><font color="#006633" size="2">&nbsp;</font></td> <td> <p align="center"><font color="#006633" size="2" face="Tahoma"> <input border="0" src="img/cadastre_se.gif" name="I1" type="image" WIDTH="90" HEIGHT="21" style="font-family: Tahoma; font-size: 8 pt; color: #000000;"> </font> </tr> </table> </div> </form></td> </tr> </table> </td> <td><img src="spacer.gif" width="1" height="158" border="0" alt=""></td> </tr> <tr> <td height="19" valign="top"><div align="center"><font size="2" face="Tahoma"><a href="java script:history.go(-1)">Voltar</a></font></div></td> <td><img src="spacer.gif" width="1" height="2" border="0" alt=""></td> </tr> <tr> </tr> </table> </body> </html> ENVIA_CADASTRO.ASP <!--#include file="config.inc" --> <p align="center"><img border="0" src="logo1.gif" WIDTH="300" HEIGHT="100"></p> <% nome = request("nome") email = request("email") login = request("login") senha = request("senha") senha2 = request("senha2") if nome = "" OR email = "" OR login = "" OR senha = "" OR senha2 = "" OR senha <> senha2 then Response.Write("<center><pre>Ocorreram erros ao enviar o seu cadastro!<br>Verifique se você preencheu todos os campos do formulário ou repetiu a senha corretamente!<br><a href=""java script:history.go(-1)""><img border=0 src=voltar.gif></a></pre></center>") Response.End end if ' Verifica se já existe algum usuário com o mesmo login no serviço strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(bdados) Set conn = Server.CreateObject("ADODB.Connection") conn.open strCon sql = "SELECT * FROM usuarios WHERE login = '" & login & "'" Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = 3 rs.CursorLocation = 3 rs.LockType = 3 rs.Open sql, conn if rs.recordcount <> "0" then Response.Write("<BR><Br><center><pre>Já existe algum usuário cadastrado com o seu login. Por favor, escolha outro login.<br><a href=""java script:history.go(-1)""><img border=0 src=voltar.gif></a></pre></center>") Response.End end if rs.close ' Cadastro do usuário strCon2 = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(bdados) Set conn2 = Server.CreateObject("ADODB.Connection") conn2.open strCon2 sql2 = "INSERT INTO usuarios(nome, email, login, senha) VALUES('" & nome & "', '" & email & "', '" & login & "', '" & senha & "')" Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.Open sql2, conn2 if err.Number > "0" then Response.Write("<center><pre>Ocorreram erros ao enviar o seu cadastro!</pre></center>") else Response.Write("<center><pre>Você foi cadastrado com sucesso! Clique <a href=login.asp>aqui</a> para entrar na página de login.</pre></center>") end if %>
  6. Marcelo do GBT
    Caro Jhonas, Eu copie e colei o que voce dise para eu fazer, mas esta dando o mesmo erro, será que voce pode colocar o codigo inteiro para que consiga fazer este negocio rodar? Por favor, me de certinho, pois como falei, sou novo em asp! Obrigado do while not rs.eof %> <table width="150%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="19%"><%If dia_cat = 1 then%> <b>Dia:</b> <% dia_cat = 0 End If%> <%If dia_cat = 0 then%> &nbsp; <%End If%> </td> <td width="19%"><font face="Arial, Helvetica, sans-serif" size="2" color="#006633"><%=rs("diadb")%></font> </td> <td width="60%" align="left" bgcolor="#F0FFF8" bordercolor="#000033"><font face="Arial, Helvetica, sans-serif" size="2" color="#006633"><b><%=rs("hits")%></b></font></td> <td width="2%">&nbsp;</td> </tr> </table> <% rs.movenext loop rs.close Logo após o < do while not rs.eof > voce deve testar se o fim o arquivo foi encontrado ... se não colocar esse teste para finalizar o loop, uma nova tentativa de ler o registro será comandada pelo while e ocorrerá o erro if rs.eof then rs.close // ou o comando para sair do loop end if abraço
  7. Marcelo do GBT
    Caro Jhonas, E como devo fazer para corrigir este erro??? Por favor ajude-me! Esse erro ocorre quando o ponteiro do registro da tabela é forçado a ler o registro após o registro final. rs.movenext loop rs.close abraço
  8. Marcelo do GBT
    Caros, sou novo na programação em asp, mas como já tenho o site pronto, apenas faço algumas alterações. O problema é que esta ocorrendo um erro muito estranho, e não sei como resolver, por isso, peço ajuda a quem poder me ajudar. O erro é o seguinte: Tipo de erro: ADODB.Field (0x80020009) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /guia/estatisticas/acessos.asp. o tal acesso.asp é o seguinte: <% mes = request.querystring("mesdb") ano = Year(now) %> <style type="text/css"> <!-- .link { color: #006633; text-decoration: none} --> </style> <% set conn = createobject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("../contador/contador_acessos.mdb") set rs = conn.execute("SELECT * FROM acessos where mesdb= '"&mes&"'") %> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="150" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="218" valign="top"> <table border="0" width="150" bordercolor="#000033"> <tr> <td width="51%" align="left" bgcolor="#CCFFE7" height="15"><b><font face="Arial, Helvetica, sans-serif" size="2" color="#000000">M&ecirc;s: </font></b><font face="Arial, Helvetica, sans-serif" size="2" color="#006633"><%=rs("mesdb")%></font><font face="Arial, Helvetica, sans-serif" size="2" color="#000000">&nbsp; </font></td> <td width="49%" align="center" bgcolor="#F0FFF8" height="15"><b><font face="Arial, Helvetica, sans-serif" size="1" color="#006633">Paginas Clicadas</font></b></td> </tr> </table> <% dia_cat = 1 do while not rs.eof %> <table width="150%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="19%"><%If dia_cat = 1 then%> <b>Dia:</b> <% dia_cat = 0 End If%> <%If dia_cat = 0 then%> &nbsp; <%End If%> </td> <td width="19%"><font face="Arial, Helvetica, sans-serif" size="2" color="#006633"><%=rs("diadb")%></font> </td> <td width="60%" align="left" bgcolor="#F0FFF8" bordercolor="#000033"><font face="Arial, Helvetica, sans-serif" size="2" color="#006633"><b><%=rs("hits")%></b></font></td> <td width="2%">&nbsp;</td> </tr> </table> <% rs.movenext loop rs.close conn.close set rs = nothing set conn = nothing %> </td> </tr> </table> e o que faz o envio para o contador_acessos.mdb é o seguinte: <% diadb = Day(now) mes = Month(now) anodb = Year(now) id = Day(now) Select case mes case 1 mesdb = "Janeiro" case 2 mesdb = "Fevereiro" case 3 mesdb = "Março" case 4 mesdb = "Abril" case 5 mesdb = "Maio" case 6 mesdb = "Junho" case 7 mesdb = "Julho" case 8 mesdb = "Agosto" case 9 mesdb = "Setembro" case 10 mesdb = "Outubro" case 11 mesdb = "Novembro" case 12 mesdb = "Dezembro" End Select '------------------------------------------------------------------------------------------------- if diadb = "" then diadb = diadb end if 'Conectando com o banco de dados... set conn = createobject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("contador/contador_acessos.mdb") set rs = conn.execute("select * from acessos where diadb = '" & diadb & "'") if rs.eof then v = 1 conn.execute "INSERT INTO acessos(id, diadb, mesdb, anodb, hits) VALUES ('"&id&"','"&diadb&"','"&mesdb&"','"&anodb&"',"&v&")" else conn.execute("UPDATE acessos SET hits = hits +1 WHERE id = '" & id & "'") end if 'Fecha as conexões rs.close conn.close set rs = nothing set conn = nothing %> Então o que pode estar acontecendo???
  9. Marcelo do GBT

    Combobox

    uma questão postou Marcelo do GBT ASP

    Não sei como fazer isso, pois sou novo, estou aprendendo, mas será que alguém pode me explicar como faço o combo com os seguintes requerimentos: tenho um site, nele existe uma barra (menu) das categorias, (74) o que quero é que quando a pessoa click na categoria do menu, abra a combo com as cidades e assim que ele escolher a cidade carregue o bairro, até ai tudo bem, pois as combos já permitem alterar estado, para cidade e cidade para bairro, mas o problema é que minha pagina que é resultado_procura.asp, tem que saber que a busca que a pessoa escolheu, se refere a determinada categoria. Então minha duvida é se existe uma forma de quando clicar na categoria do menu, abrir a combo que remeterá a busca da cidade e bairros da categoria escolhida, pois do contrario, ele não saberá responder se a busca da cidade e do bairo refere-se a qual categoria, entenderam? por favor veja se podem me ajudar, pois preciso disso urgente!!!!! Marcelo
  10. Marcelo do GBT

    sou novo, estou aprendendo, me diga como faço para colocar no forum, e aproposito, será que voce pode me explicar como faço o combo com os seguintes requerimentos:

    tenho um site, nele existe uma barra (menu) das categorias, o que quero é que quando a pessoa click na categoria do menu, abra a combo com as cidades e assim que ele escolher a cidade carregue o bairro, até ai tudo bem, pois

×
×
  • Criar Novo...