Jump to content

  2. → zanelati2002's Content

zanelati2002's Content

There have been 101 items by zanelati2002 (Search limited from 24/04/2023)


Tipos

See this member's


Ordernar por                Order  

#120053 Sera Que Tem Como Fazer Aparecer

Posted by zanelati2002 on 15/06/2003, 09:01 in ASP

Me ajude mais est´´a o primeiro de colocar em qualquer parte do site foi facil e o segundo

nao daria para voce colocar o codigo completo e se junta os dois ou o segundo tem que colocar em outra parte o nome da pasta que esta os dados se chama login2 e o nome do banco de dados siteusers .mdb

desculpe nao entender muito mais me ajude


#120043 Sera Que Tem Como Fazer Aparecer

Posted by zanelati2002 on 15/06/2003, 08:01 in ASP

preciso de mais explicaçao, aonde que eu coloco este codigo, na pagian do cadastro, me fale, e nao o usuarios online e quais os usuarios cadastrados que se logan online e nao a quantidade.


#120487 Sera Que Tem Como Fazer Aparecer

Posted by zanelati2002 on 15/06/2003, 16:28 in ASP

mais este e um novo site e um novo cadstro aquele deu certo o que tenho que te passar e a pagina de cadastro qual e a pagina


#120535 Sera Que Tem Como Fazer Aparecer

Posted by zanelati2002 on 15/06/2003, 17:08 in ASP

nao tenho esta pagina e a outra que voce passou e diferente


#123538 Sera Que Tem Como Fazer Aparecer

Posted by zanelati2002 on 19/06/2003, 06:54 in ASP

por gentileza me explique uma coisa o login.asp ele so vai fazer a conexao para usuarios.asp, pois eu tenho o login.asp que e assim
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Seu Ip</title>
<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: #debc00 1px solid; BORDER-LEFT: #debc00 1px solid; BORDER-RIGHT: #debc00 1px solid; BORDER-TOP: #debc00 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>
<body>

<form method="POST" action="signin.asp" target="_self" name="signin">

<table border="0" width="37" cellspacing="0" cellpadding="0">
  <tr>
          <TD width="553"><font face="Verdana" size="1" color="#FFFFFF">1</font></TD>
          <TD width="113"></TD>
  </tr>
  <tr>
          <TD width="553"><font face="Verdana" size="1"><IMG alt="" border=0 
            src="../images/login_login.jpg"></font></TD>
          <TD width="113"><font face="Verdana" size="1"><INPUT class=campo maxLength=20 name=username size=10></font></TD>
  </tr>
  <tr>
          <TD width="553"><font face="Verdana" size="1"><img border="0" src="../images/login_senha.jpg"></font></TD>
          <TD width="113"><font face="Verdana" size="1"><INPUT class=campo maxLength=20 name=password size=10 
          type=password></font></TD>
  </tr>
  <tr>
          <TD width="553"><font face="Verdana" size="1">&nbsp;</font></TD>
          <TD width="113"><font face="Verdana" size="1"><INPUT class=botao2 name=entrar type=submit value=entrar></font></TD>
  </tr>
  <tr>
          <TD width="553"><font face="Verdana" size="1" color="#FFFFFF">1</font></TD>
          <TD width="113">
          </TD>
  </tr>
  <tr>
          <TD width="553"><font face="Verdana" size="1">Seu Ip:</font></TD>
          <TD width="113"><font face="Verdana" size="1"><!--webbot bot="HTMLMarkup" startspan --><%=request.servervariables("REMOTE_ADDR")%>
<!--webbot bot="HTMLMarkup" endspan -->
            </font>
          </TD>
  </tr>
</table>

<input type="hidden" name="page" value="<%=Request.QueryString("page")%>">

</form>

</body>

</html>


preciso saber alem de fazer a pagina de usuarios.asp, eu tenho que substituir o login.asp e fazer o login.html estou no icq 163114701


#120582 Sera Que Tem Como Fazer Aparecer

Posted by zanelati2002 on 15/06/2003, 17:49 in ASP

developer, estou no icq 1631147101 mais caso voce nao responda a tempo voce ja sabe o que eu quero fazer os seguintes dados estao nao daria para o nome da pasta que esta os dados se chama login2 e o nome do banco de dados siteusers .mdb
a pagina do cadastro esta ai
<%
Option Explicit
Dim username

username = Request.Cookies("username")
%>

<html>
<head>
<title>Novo Membro</title>
<STYLE>A:link {
	COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
	TEXT-DECORATION: none
}
A:hover {
	TEXT-DECORATION: none
}
.menu:link {
	COLOR: #ffffff; TEXT-DECORATION: none
}
.menu:visited {
	COLOR: #ffffff; TEXT-DECORATION: none
}
.menu:hover {
	TEXT-DECORATION: none
}
.smenu:link {
	COLOR: #ffffff; TEXT-DECORATION: none
}
.smenu:visited {
	COLOR: #ffffff; TEXT-DECORATION: none
}
.smenu:hover {
	COLOR: #808080; FONT-WEIGHT: bold; TEXT-DECORATION: none
}
BODY {
	FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
BODY {
	SCROLLBAR-FACE-COLOR: #efefef
}
BODY {
	SCROLLBAR-SHADOW-COLOR: #efefef
}
BODY {
	SCROLLBAR-HIGHLIGHT-COLOR: #efefef
}
BODY {
	SCROLLBAR-3DLIGHT-COLOR: #efefef
}
BODY {
	SCROLLBAR-DARKSHADOW-COLOR: #000000
}
BODY {
	SCROLLBAR-TRACK-COLOR: #ffffff
}
BODY {
	SCROLLBAR-ARROW-COLOR: #000000
}
TD {
	FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.campo {
	BACKGROUND-COLOR: #f7f7f7; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.botao {
	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
}
.texto {
	COLOR: black; FONT-FAMILY: Verdana, arial; FONT-SIZE: 8pt
}
.input1 {
	BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.input2 {
	BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.textarea1 {
	BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.textarea2 {
	BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
</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: #debc00 1px solid; BORDER-LEFT: #debc00 1px solid; BORDER-RIGHT: #debc00 1px solid; BORDER-TOP: #debc00 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>
<body bgcolor="#FFFFFF" link="#DD0000" vlink="#DD0000" alink="#000000" background="../images/fundo3.gif">
<font face="arial,helvetica" size=2>

<%'See if they're actually already logged in
if username <> "" then%>

<p><b>Voc&ecirc; est&aacute; logado.</b></p>

<p>Se voc&ecirc; quer preencher um novo cadastro, precisa <a href="signout.asp"><b>sair 
  do sistema </b></a>primeiro.</p>

<%'Otherwise display the sign up form
else%>

<form name="signup" action="signupprocess.asp" method="post" target="x">
<table width="368" cellpadding=2 cellspacing=0 align="center" height="536">
<tr>
      <td align="center" width="356" colspan="2" height="83">
        <table border="0" width="364" cellspacing="0" cellpadding="0">
          <tr>
          <TD class=TD vAlign=center width="362"><font face="Verdana" size="2"><img border="0" src="../images/pontos_subtitulo.jpg">
           Site do Zanelati&nbsp;&nbsp;</font></TD>
          </tr>
          <tr>
          <TD bgColor=#debc00 height=1 width="362">&nbsp;</TD>
          </tr>
          <tr>
          <TD height=10 width="362"></TD>
          </tr>

</font>
        <tr>
          <TD class=TD width="362">
            <p align="center"><font face="Verdana" size="2">Fique Membro do Site
            do Zanelati</font></p>
          </TD>
        </tr>
<font face="arial,helvetica" size=2>

<tr>
          <TD 
          background="../images/linha_pontilhada.gif" height=2 width="362">&nbsp;</TD>
</tr>
        </table>
      </font>
      </td>
</tr>
<tr>
      <td align="center" width="194" height="25"><font face="arial,helvetica" size=2><b>Nome</b></font></td>
  <td align="center" width="162" height="25"><input type="text" name="firstname" size=13 class="campo"></td>
</tr>
<tr>
      <td align="center" width="194" height="25"><font face="arial,helvetica" size=2><b>Sobrenome</b></font></td>
  <td align="center" width="162" height="25"><input type="text" name="surname" size=13 class="campo"></td>
</tr>
<tr>
  <td align="center" width="194" height="25"><b>E-mail</b></td>
  <td align="center" width="162" height="25"><input type="text" name="email" size=13 class="campo"></td>
</tr>
<tr>
      <td align="center" width="194" height="25"><font face="arial,helvetica" size=2><b>Data de nascimento</b></font></td>
  <td align="center" width="162" height="25">
  <input type="text" name="birth_day" value="dd" size="2" maxlength="2" class="campo"> <input type="text" name="birth_month" value="mm" size="2" maxlength="2" class="campo"> <input type="text" name="birth_year" value="yyyy" size="4" maxlength="4" class="campo">
  </td>
</tr>
<tr>
      <td align="center" width="194" height="19"><font face="arial,helvetica" size=2><b>Sexo</b></font></td>
  <td align="center" width="162" height="19"><font face="arial,helvetica" size=2><b><input type="radio" name="sex" value="male" class="input1" checked>
        Homem 
        <input type="radio" name="sex" value="female" class="input2">
        Mulher</b></font></td>
</tr>
<tr>
  <td align="center" colspan=2 width="362" height="21"><hr color="#000000"></td>
</tr>
<tr>
      <td align="center" width="194" height="25"><b>Login</b></td>
  <td align="center" width="162" height="25"><input type="text" name="username" size=13 class="campo"></td>
</tr>
<tr>
      <td align="center" width="194" height="25"><font face="arial,helvetica" size=2><b>Senha</b></font></td>
  <td align="center" width="162" height="25"><input type="password" name="password" size=13 class="campo"></td>
</tr>
<tr>
      <td align="center" width="194" height="25"><font face="arial,helvetica" size=2><b>Confirme sua senha</b></font></td>
  <td align="center" width="162" height="25"><input type="password" name="passwordconfirm" size=13 class="campo"></td>
</tr>
<tr>
      <td align="center" colspan=2 width="362" height="16"><font face="arial,helvetica" size=1><b>(note: 
        sua senha deve ter entre 5 e 15 caracteres)</b></font></td>
</tr>
<tr>
  <td align="center" colspan=2 width="362" height="21"><hr color="#000000"></td>
</tr>
<tr>
      <td align="center" colspan=2 width="362" height="251"> <font face="arial,helvetica" size=2><b>Escolha 
        uma imagem para voc&ecirc;:</b></font><br>
        <br>
  <table width="100%" cellpadding=2 cellspacing=0 height="1">
  <tr>
	<td align="center" height="66"><img src="icons/1.gif" onClick="document.signup.icon[0].checked=true"><br><input type="radio" name="icon" value="1"></td>
	<td align="center" height="66"><img src="icons/2.gif" onClick="document.signup.icon[1].checked=true"><br><input type="radio" name="icon" value="2"></td>
	<td align="center" height="66"><img src="icons/3.gif" onClick="document.signup.icon[2].checked=true"><br><input type="radio" name="icon" value="3"></td>
	<td align="center" height="66"><img src="icons/4.gif" onClick="document.signup.icon[3].checked=true"><br><input type="radio" name="icon" value="4"></td>
	<td align="center" height="66"><img src="icons/5.gif" onClick="document.signup.icon[4].checked=true"><br><input type="radio" name="icon" value="5"></td>
  </tr>
  <tr>
	<td align="center" height="1"><img src="icons/16.gif" onClick="document.signup.icon[15].checked=true"><br><input type="radio" name="icon" value="16"></td>
	<td align="center" height="1"><img src="icons/17.gif" onClick="document.signup.icon[16].checked=true"><br><input type="radio" name="icon" value="17"></td>
	<td align="center" height="1"><img src="icons/18.gif" onClick="document.signup.icon[17].checked=true"><br><input type="radio" name="icon" value="18"></td>
	<td align="center" height="1"><img src="icons/19.gif" onClick="document.signup.icon[18].checked=true"><br><input type="radio" name="icon" value="19"></td>
	<td align="center" height="1"><img src="icons/20.gif" onClick="document.signup.icon[19].checked=true"><br><input type="radio" name="icon" value="20"></td>
  </tr>
  <tr>
	<td align="center" height="1"><img src="icons/21.gif" onClick="document.signup.icon[20].checked=true"><br><input type="radio" name="icon" value="21"></td>
	<td align="center" height="1"><img src="icons/22.gif" onClick="document.signup.icon[21].checked=true"><br><input type="radio" name="icon" value="22"></td>
	<td align="center" height="1"><img src="icons/23.gif" onClick="document.signup.icon[22].checked=true"><br><input type="radio" name="icon" value="23"></td>
	<td align="center" height="1"><img src="icons/24.gif" onClick="document.signup.icon[23].checked=true"><br><input type="radio" name="icon" value="24"></td>
	<td align="center" height="1"><img src="icons/25.gif" onClick="document.signup.icon[24].checked=true"><br><input type="radio" name="icon" value="25"></td>
  </tr>
  </table>
  
  </td>
</tr>
<tr>
   <td align="center" colspan=2 width="362" height="19"><font face="arial,helvetica" size="2">Envie-me 
        novidade por e-mail&nbsp; 
        <input type="checkbox" name="sendemail" checked></font></td>
</tr>
<tr>
  <td align="center" colspan=2 width="362" height="1"><input type="submit" value="Cadastre-se" class="botao"></td>
</tr>
</table>

</form>

<%end if%>

</body>
</html>


#119241 Sera Que Tem Como Fazer Aparecer

Posted by zanelati2002 on 14/06/2003, 16:49 in ASP

Sera que tem como fazer aparecer, nome de usuarios que estao online no site e tambem numeros de cadastros ja feitos


#120448 Sera Que Tem Como Fazer Aparecer

Posted by zanelati2002 on 15/06/2003, 15:38 in ASP

nao tenho o que preciso te passar


#265453 Enviu De Senha Esquecida

Posted by zanelati2002 on 28/12/2003, 09:45 in ASP

este codigo foi criado pelo crazy é para enviar por email a senha do usuario caso ele esqueça dela só que o problema ele so esta buscando o login mais e se tiver mais de um login igual teria que buuscar o login e a senha teria jeito crazy ou alguem que possa me ajudar segue o codigo 
<%

Dim ConnectString, conn

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("siteusers.mdb")

Set conn = Server.CreateObject("ADODB.Connection")

conn.open ConnectString



email=request.querystring("email")

set rs = conn.execute("select * from users where email='"&email&"'")



If rs.EOF = True Then

    Response.Write "Email inválido!"

Else

    Set meuMail = CreateObject("CDONTS.NewMail") 

    sCorpo = "Seu login é: " & rs("username") & " e sua senha é: " & rs("password")



    meuMail.From = "sitedozanelati@ig.com.br"

    meuMail.To = rs("email") 

    meuMail.Subject = "Envio de Senha" 

    meuMail.BodyFormat = 0 

    meuMail.MailFormat = 0 

    meuMail.Body = sCorpo

    meuMail.Send 

    Set meuMail = Nothing 

%>

<html>



<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<meta name="GENERATOR" content="Microsoft FrontPage 4.0">

<meta name="ProgId" content="FrontPage.Editor.Document">

<title>Confirma Mensagem</title>

</head>

<body background="../zanelati_r41_c7.gif">

<div align="center">

  <center><table border="0" width="55%" cellspacing="0" cellpadding="0">

  <tr>

    <td width="100%" align="center">

      <font face="Verdana" size="2" color="#FFFFFF">1</font></td>

  </tr>

  <tr>

    <td width="100%" align="center">

      <p align="center"><font face="Verdana" size="2" color="#000000">Sua Senha Foi enviada para

      Seu e-mail com Sucesso</font></td>

  </tr>

  <tr>

    <td width="100%" align="center"><font size="2" face="Verdana" color="#000000">Lembramos que

      Sua Senha é de Responsabilidade Tua.</font></td>

  </tr>

  <tr>

    <td width="100%" align="center"><font color="#FFFFFF" size="2" face="Verdana">1</font></td>

  </tr>

</table>

  </center>

</div>

</body>

</html>

<%

End If



rs.close

set rs = nothing



conn.close

set conn = nothing

%>


#265478 Enviu De Senha Esquecida

Posted by zanelati2002 on 28/12/2003, 10:19 in ASP 

<html>



<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<meta name="GENERATOR" content="Microsoft FrontPage 4.0">

<meta name="ProgId" content="FrontPage.Editor.Document">

<title>Esqueci Minha Senha</title>

<script src="icons/script.js"></SCRIPT>

<LINK 

href="icons/padrao.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>



<script language=javascript>

       <!--Abre

        function AbreJanela(pagina,janela,w,h,scrolling,top,left) {

      if (!scrolling) { scrolling='auto' }

      if (top) { top=',top='+top }

      if (left) { left=',left='+left }

        resultado = window.open(pagina,janela,'width='+w+',height='+h+',scrollbars='+scrolling+',toolbar=no,location=no,status=no,menubar=no,resizable=no'+top+left)}

       -->

  </SCRIPT>







<body background="../zanelati_r41_c7.gif">

<script language=JavaScript1.2>

function valida(){

var login =  document.formcontato.login.value;

var email = document.formcontato.email.value;



if ( login == '' ){

	alert('Campo login em branco.');

	document.formcontato.login.focus();

	return false;	}

if ( email == '' ){

	alert('Campo email em branco.'); 

	document.formcontato.email.focus();

	return false;	}



formcontato.envia.disabled=true;

return true;

}

</SCRIPT>



      <TABLE align=center width="296">

        <TR>

          <TD class=TD width="274">

            <p align="left"><font face="Verdana" size="1">Esqueci&nbsp;&nbsp;

            minha&nbsp;&nbsp; Senha&nbsp;&nbsp; me&nbsp;&nbsp; mande&nbsp;&nbsp;

            por&nbsp;&nbsp; e-mail</font>

            <p>&nbsp;</p>



            <FORM action=enviar_senha.asp id=formcontato method=GET name=enviar 

            onsubmit="return valida();" target="x"><font face="Verdana" size="1">Login

              de Cadastro:<BR><INPUT class=campo maxLength=20 

            name=login size=27><BR>E-mail de Cadastrado:<BR><INPUT class=campo maxLength=100 

            name=email size=26><BR><BR><INPUT class=botao2 name=envia type=submit value=Enviar> 

            <BR></font></FORM></TD></TR>

</TABLE>



<p><font color="#FFFFFF" size="1" face="Verdana">1</font></p>

<div align="center">

  <center>

<table border="0" width="62%" cellspacing="0" cellpadding="0">

  <tr>

    <td width="100%">

      <p align="center"><font face="Verdana" size="1">Obs: Caso não consiga se

      lembrar do seu login de cadastro ou senha, </font><font face="Verdana" size="2"> me mande um <a href="mailto:sitedozanelati@ig.com.br"><font color="#FF0000">e-mail

      </font></a>ou vá até <a href="fale_conosco.asp" target="x"><font color="#FF0000">fale

      conosco.</font></a></font></td>

  </tr>

</table>



  </center>

</div>



</body>



</html>


#265470 Enviu De Senha Esquecida

Posted by zanelati2002 on 28/12/2003, 10:07 in ASP

cara me confundi crazy quero que busque o login e o email de cadastro e falei xxxxxx o codigo não permite login iguais mais sera que da para arrumar isto buscar o login e o email do cara


#264846 Sistema Newsletter

Posted by zanelati2002 on 27/12/2003, 15:54 in ASP

crazy de uma olhada fui testar o codigo que você fez e esta dando o seguinte erro
Erro de tempo de execução do Microsoft VBScript erro '800a0046'

Permissão negada

/sitedozanelati/mail/enviar.asp, line 25


#114033 Autenticacao E Login

Posted by zanelati2002 on 07/06/2003, 16:15 in ASP

mais voce nao vai me ajudar a fazer um quaze igual a do teu site sera que exixte um codigo parecido


#114032 Autenticacao E Login

Posted by zanelati2002 on 07/06/2003, 16:13 in ASP

o banco de dados esta na pasta Dados/nomedobd.mdb agora o que eu nao consigo entender o que ´´e este D:\webpoint\rev\balmer-link\linksdovale.com\Dados\usuarios.mdb se esta na minha pasta padrao


#113971 Autenticacao E Login

Posted by zanelati2002 on 07/06/2003, 15:09 in ASP

Bom consegui finalmente achar o codigo que talves pode servir para mim de login e autenticacao de usuarios me ajudem a descobrir o errom o codigo esta por partes

1. adiciona.asp
<!-- Inicio do codigo fonte !--> 


<%
Dim nome,senha,paginainicial,numero
nome = replace(request.form("nome"), "'", "''")
senha = replace(request.form("senha"), "'", "''")
paginainicial = replace(request.form("paginainicial"), "'", "''")
numero = replace(request.form("numero"), "'", "''")

Set DB = Server.CreateObject("ADODB.Connection")
DB.Open "DRIVER={Driver do Microsoft Access (*.mdb)}; DBQ=D:\webpoint\rev\balmer-link\linksdovale.com\dados\usuarios.mdb"

inserir = "INSERT INTO tabela_de_usuarios (nome,senha,paginainicial) " & _
"VALUES ('" & nome & "','" & senha & "','" & paginainicial & "')"
DB.Execute(inserir)
response.redirect ".../senha/usuarios.asp"
%>

<!-- Fim do codigo donte !-->

2.altera.asp

<!-- Inicio do codigo fonte !--> 

<%
Dim nome,senha,paginainicial,numero
nome = replace(request.form("nome"), "'", "''")
senha = replace(request.form("senha"), "'", "''")
paginainicial = replace(request.form("paginainicial"), "'", "''")
numero = replace(request.form("numero"), "'", "''")

Set DB = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=D:\webpoint\rev\balmer-link\linksdovale.com\dados\usuarios.mdb"
DB.Open "DRIVER={Driver do Microsoft Access (*.mdb)};"

alterar = "UPDATE DISTINCTROW tabela_de_usuarios SET nome = '" & nome & "', senha = '" & senha & "', paginainicial = '" & paginainicial & "' WHERE numero = " & (numero) & ""
DB.Execute(alterar)
response.redirect "usuarios.asp"
%>


<!-- Fim do codigo donte !-->

3. deleta.asp

<!-- Inicio do codigo fonte !--> 

<%
Dim nome,senha,paginainicial,numero
nome = replace(request.form("nome"), "'", "''")
senha = replace(request.form("senha"), "'", "''")
paginainicial = replace(request.form("paginainicial"), "'", "''")
numero = replace(request.form("numero"), "'", "''")

Set DB = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=D:\webpoint\rev\balmer-link\linksdovale.com\dados\usuarios.mdb"
DB.Open "DRIVER={Driver do Microsoft Access (*.mdb)}; " & cnpath

deletar = "DELETE DISTINCTROW numero, nome, senha, paginainicial FROM tabela_de_usuarios WHERE numero = " & (numero) & ""
DB.Execute(deletar)
response.redirect "usuarios.asp"
%>


<!-- Fim do codigo donte !-->

4.usuario.asp

<!-- Inicio do codigo fonte !--> 


<%
If Request.cookies("autenticacao")("anome") <> "usuario" or _
Request.cookies("autenticacao")("asenha") <> "123456" then
response.redirect "logon.asp"
end if
%>

<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>

<p align="center"><font face="Verdana" size="1" color="#FF0000"><b>USUÁRIO</b>

</font>

<font face="Verdana" size="1" color="#FF0000"> <b>LOGADO</b>

</font>

</p>


<!-- Fim do codigo donte !-->

6. login.asp

</head>

<body>

<font face="Verdana" size="1">

<BR>
</font>
<form method="verificarsenha.asp" method="post" target="_self">
      <TABLE cellPadding=0 cellSpacing=0 width="51">
        <TBODY>
        <TR>
          <TD width="252"><font face="Verdana" size="1"><IMG alt="" border=0 
            src="../images/login_login.jpg"></font></TD>
          <TD width="83"><font face="Verdana" size="1"><INPUT class=campo maxLength=20 name=login size=15></font></TD></TR>
        <TR>
          <TD width="252"><font face="Verdana" size="1"><img border="0" src="../images/login_senha.jpg"></font></TD>
          <TD width="83"><font face="Verdana" size="1"><INPUT class=campo maxLength=20 name=senha size=15 
          type=password></font></TD>
        <TR>
          <TD width="252"><font face="Verdana" size="1">&nbsp;</font></TD>
          <TD width="83"><font face="Verdana" size="1"><INPUT class=botao2 name=entrar type=submit value=entrar></font></TD></TR></FORM>
        <TR>
          <TD width="335" colspan="2"><font face="Verdana" size="1">Seu Ip: <%=request.servervariables("REMOTE_ADDR")%>
            </font></TD>
        </TR>
        </TBODY></TABLE>

</form>

</body>

</html>

7. cadastro.asp

<!-- Inicio do codigo fonte !--> 

<%
Set DB = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=" & server.mappath("Dados/usuarios.mdb")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath

listar = "SELECT * FROM tabela_de_usuarios ORDER BY numero DESC"
Set lista = DB.Execute(listar)
%>

<script language=JavaScript1.2>
function valida(){
var nome =  document.cadform.nome.value;
var home =  document.cadform.home.value;
var login = document.cadform.login.value;
var senha = document.cadform.senha.value;
var senha2 = document.cadform.senha2.value;
var cidade = document.cadform.cidade.value;
var email = document.cadform.email.value;

if ( login == '' ){
	alert('Campo login em branco.');
	document.cadform.login.focus();
	return false;	}
if ( senha == '' ){
	alert('Campo senha em branco.'); 
	document.cadform.senha.focus();
	return false;	}
if ( senha2 == '' ){
	alert('Campo confirmação de senha em branco.'); 
	document.cadform.senha2.focus();
	return false;	}
if ( nome == '' ){
	alert('Campo nome em branco.'); 
	document.cadform.nome.focus();
	return false;	}
if ( home == '' ){
	alert('Campo home em branco.'); 
	document.cadform.home.focus();
	return false;	}
if ( cidade == '' ){
	alert('Campo cidade em branco.'); 
	document.cadform.cidade.focus();
	return false;	}
if ( email == '' ){
	alert('Campo email em branco.'); 
	document.cadform.email.focus();
	return false;	}

cadform.cadastra.disabled=true;
return true;
}
</SCRIPT>

<head>
<title>Novo membro</title>
<STYLE>A:link {
	COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
	TEXT-DECORATION: none
}
A:hover {
	TEXT-DECORATION: none
}
.menu:link {
	COLOR: #ffffff; TEXT-DECORATION: none
}
.menu:visited {
	COLOR: #ffffff; TEXT-DECORATION: none
}
.menu:hover {
	TEXT-DECORATION: none
}
.smenu:link {
	COLOR: #ffffff; TEXT-DECORATION: none
}
.smenu:visited {
	COLOR: #ffffff; TEXT-DECORATION: none
}
.smenu:hover {
	COLOR: #808080; FONT-WEIGHT: bold; TEXT-DECORATION: none
}
BODY {
	FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
BODY {
	SCROLLBAR-FACE-COLOR: #efefef
}
BODY {
	SCROLLBAR-SHADOW-COLOR: #efefef
}
BODY {
	SCROLLBAR-HIGHLIGHT-COLOR: #efefef
}
BODY {
	SCROLLBAR-3DLIGHT-COLOR: #efefef
}
BODY {
	SCROLLBAR-DARKSHADOW-COLOR: #000000
}
BODY {
	SCROLLBAR-TRACK-COLOR: #ffffff
}
BODY {
	SCROLLBAR-ARROW-COLOR: #000000
}
TD {
	FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.campo {
	BACKGROUND-COLOR: #f7f7f7; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.botao {
	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
}
.texto {
	COLOR: black; FONT-FAMILY: Verdana, arial; FONT-SIZE: 8pt
}
.input1 {
	BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.input2 {
	BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.textarea1 {
	BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
.textarea2 {
	BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt
}
</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: #debc00 1px solid; BORDER-LEFT: #debc00 1px solid; BORDER-RIGHT: #debc00 1px solid; BORDER-TOP: #debc00 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>
<body background="../images/fundo3.gif">

<div align="center">
  <center>

<TABLE cellPadding=0 cellSpacing=0 height="100%" width=409>
  <TBODY>
  <TR>
    <TD class=TD vAlign=top width=84>
      <div align="center">
      <TABLE width="348">
        <TBODY>
        <TR>
          <TD colSpan=2 height=10 width="340"></TD></TR>
        <TR>
          <TD class=TD colSpan=2 vAlign=center width="340"><font face="Verdana" size="1"><IMG alt="" border=0 
            src="../images/pontos_subtitulo.jpg" width="36" height="10">   Site do
            Zanelati - Cadastrar novo Membro -&nbsp;</font></TD></TR>
        <TR>
          <TD bgColor=#debc00 colSpan=2 height=1 width="340"></TD></TR>
        <TR>
          <TD align=middle class=TD colSpan=2 height=20 width="340"></TD></TR>
        <FORM action=adiciona.asp id=cadform method=post name=cadform 
        onsubmit="return valida();">
        <TR>
          <TD align=middle class=TD colSpan=2 width="340"><font face="Verdana" size="1"><b>Dados de Acesso</b></font></TD></TR>
        <TR>
          <TD bgColor=#f3f3f3 colSpan=2 height=1 width="340" background="../images/menu_pontilhado.gif"></TD></TR>
        <TR>
          <TD colSpan=2 height=10 width="340"></TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">login:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=30 name=login 
          size=20></font></TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">senha:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=20 name=senha 
            type=password></font></TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">confirme a senha:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=20 name=senha2 
            type=password></font></TD></TR>
        <TR>
          <TD colSpan=2 height=20 width="340"></TD></TR>
        <TR>
          <TD align=middle class=TD colSpan=2 width="340"><font face="Verdana" size="1"><b>Dados Pessoais</b></font></TD></TR>
        <TR>
          <TD bgColor=#f3f3f3 colSpan=2 height=1 width="340" background="../images/menu_pontilhado.gif"></TD></TR>
        <TR>
          <TD colSpan=2 height=10 width="340"></TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">Seu
            nome:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=30 name=nome 
        size=20></font></TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">&nbsp;Sua
            Home Page:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=30 name=home 
        size=20></font> </TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">Seu
            nascimento:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><SELECT class=campo name=dia size=1> <OPTION 
              selected value=01>01</OPTION> <OPTION value=02>02</OPTION> <OPTION 
              value=03>03</OPTION> <OPTION value=04>04</OPTION> <OPTION 
              value=05>05</OPTION> <OPTION value=06>06</OPTION> <OPTION 
              value=07>07</OPTION> <OPTION value=08>08</OPTION> <OPTION 
              value=09>09</OPTION> <OPTION value=10>10</OPTION> <OPTION 
              value=11>11</OPTION> <OPTION value=12>12</OPTION> <OPTION 
              value=13>13</OPTION> <OPTION value=14>14</OPTION> <OPTION 
              value=15>15</OPTION> <OPTION value=16>16</OPTION> <OPTION 
              value=17>17</OPTION> <OPTION value=18>18</OPTION> <OPTION 
              value=19>19</OPTION> <OPTION value=20>20</OPTION> <OPTION 
              value=21>21</OPTION> <OPTION value=22>22</OPTION> <OPTION 
              value=23>23</OPTION> <OPTION value=24>24</OPTION> <OPTION 
              value=25>25</OPTION> <OPTION value=26>26</OPTION> <OPTION 
              value=27>27</OPTION> <OPTION value=28>28</OPTION> <OPTION 
              value=29>29</OPTION> <OPTION value=30>30</OPTION> <OPTION 
              value=31>31</OPTION></SELECT> <SELECT class=campo name=mes size=1> 
              <OPTION selected value=01>01</OPTION> <OPTION value=02>02</OPTION> 
              <OPTION value=03>03</OPTION> <OPTION value=04>04</OPTION> <OPTION 
              value=05>05</OPTION> <OPTION value=06>06</OPTION> <OPTION 
              value=07>07</OPTION> <OPTION value=08>08</OPTION> <OPTION 
              value=09>09</OPTION> <OPTION value=10>10</OPTION> <OPTION 
              value=11>11</OPTION> <OPTION value=12>12</OPTION></SELECT> <SELECT 
            class=campo name=ano size=1> <OPTION selected value=50>50</OPTION> 
              <OPTION value=51>51</OPTION> <OPTION value=52>52</OPTION> <OPTION 
              value=53>53</OPTION> <OPTION value=54>54</OPTION> <OPTION 
              value=55>55</OPTION> <OPTION value=56>56</OPTION> <OPTION 
              value=57>57</OPTION> <OPTION value=58>58</OPTION> <OPTION 
              value=59>59</OPTION> <OPTION value=60>60</OPTION> <OPTION 
              value=61>61</OPTION> <OPTION value=62>62</OPTION> <OPTION 
              value=63>63</OPTION> <OPTION value=64>64</OPTION> <OPTION 
              value=65>65</OPTION> <OPTION value=66>66</OPTION> <OPTION 
              value=67>67</OPTION> <OPTION value=68>68</OPTION> <OPTION 
              value=69>69</OPTION> <OPTION value=70>70</OPTION> <OPTION 
              value=71>71</OPTION> <OPTION value=72>72</OPTION> <OPTION 
              value=73>73</OPTION> <OPTION value=74>74</OPTION> <OPTION 
              value=75>75</OPTION> <OPTION value=76>76</OPTION> <OPTION 
              value=77>77</OPTION> <OPTION value=78>78</OPTION> <OPTION 
              value=79>79</OPTION> <OPTION value=80>80</OPTION> <OPTION 
              value=81>81</OPTION> <OPTION value=82>82</OPTION> <OPTION 
              value=83>83</OPTION> <OPTION value=84>84</OPTION> <OPTION 
              value=85>85</OPTION> <OPTION value=86>86</OPTION> <OPTION 
              value=87>87</OPTION> <OPTION value=88>88</OPTION> <OPTION 
              value=89>89</OPTION> <OPTION value=90>90</OPTION> <OPTION 
              value=91>91</OPTION> <OPTION value=92>92</OPTION> <OPTION 
              value=93>93</OPTION> <OPTION value=94>94</OPTION> <OPTION 
              value=95>95</OPTION> <OPTION value=96>96</OPTION> <OPTION 
              value=97>97</OPTION> <OPTION value=98>98</OPTION> <OPTION 
              value=99>99</OPTION> <OPTION value=00>00</OPTION> <OPTION 
              value=01>01</OPTION> <OPTION value=02>02</OPTION></SELECT> </font> </TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">Sua
            cidade:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=50 name=cidade 
          size=20></font></TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">Seu
            estado:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><SELECT class=campo name=estado size=1> <OPTION 
              selected value=AC>Acre<OPTION value=AL>Alagoas<OPTION 
              value=AP>Amapá<OPTION value=AM>Amazonas<OPTION 
              value=BA>Bahia<OPTION value=CE>Ceará<OPTION value=DF>Distrito
              Federal<OPTION value=ES>Espírito Santo<OPTION 
              value=GO>Goiás<OPTION value=MA>Maranhão<OPTION 
              value=MT>Mato-Grosso<OPTION value=MS>Mato-Grosso do Sul<OPTION 
              value=MG>Minas Gerais<OPTION value=PA>Pará<OPTION 
              value=PB>Paraíba<OPTION value=PR>Paraná<OPTION 
              value=PE>Pernanbuco<OPTION value=PI>Piauí<OPTION value=RJ>Rio de
              Janeiro<OPTION value=RN>Rio Grande do Norte<OPTION value=RS>Rio
              Grande do Sul<OPTION value=RO>Rondônia<OPTION 
              value=RR>Roraima<OPTION value=SC>Santa Catarina<OPTION 
              value=SP>São Paulo<OPTION value=SE>Sergipe<OPTION 
              value=TO>Tocantins</OPTION></SELECT> </font> </TD></TR>
        <TR>
          <TD align=right class=TD width="113"><font face="Verdana" size="1">Seu
            e-mail:</font></TD>
          <TD width="221"><font face="Verdana" size="1"><INPUT class=campo maxLength=30 name=email 
          size=20></font></TD></TR>
        <TR>
          <TD width="113"></TD>
          <TD width="221"><font face="Verdana" size="1"><INPUT class=botao2 name=cadastra type=submit value=Cadastrar></font></TD></TR></FORM></TBODY></TABLE>
      </div>
    </TD>
  </TR></TBODY></TABLE>
  </center>
</div>
<TABLE>
  <TBODY></TBODY></TABLE>
[CODE]

8. verificarsenha.asp
<!-- Inicio do codigo fonte !-->

<%
Response.Buffer = True
Set DB = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=" & Server.MapPath("\Dados\usuarios.mdb")
DB.Open "DRIVER={Driver do Microsoft Access (*.mdb)}; " & cnpath

Executar = "SELECT * FROM tabela_de_usuarios"
Set RecSet = DB.Execute(Executar)

do while not recset.eof
vnome = RecSet("nome")
vsenha = RecSet("senha")
vpaginainicial = RecSet("paginainicial")

If Request.form("nome") = (vnome) then
If Request.form("senha") = (vsenha) then
response.cookies("autenticacao")("anome") = request.form("nome")
response.cookies("autenticacao")("asenha") = request.form("senha")
response.clear
response.redirect(vpaginainicial)
end if
end if
recset.movenext
loop

Public Function DoLog(arquivo,nome,senha)

Dim ObjFSO, ObjFile, ObjStream, Dia, Mes, Ano, Hora, IpNum

Const forReading = 1, forWriting = 2, forAppending = 8
Const TriDef = -2, TriTrue = -1, TriFalse = 0

Set ObjFSO = CreateObject("Scripting.FileSystemObject")

If ObjFSO.FileExists(arquivo) = False then

objFSO.CreateTextFile(arquivo)

End If

Set ObjFile = objFSO.GetFile(arquivo)
Set objStream = ObjFile.OpenAsTextStream(forAppending,TriDef)

Dia = Day(Date())
Mes = Month(Date())
Ano = Year(Date())
Hora = Time()
IpNum = Request.ServerVariables("REMOTE_ADDR")

ObjStream.WriteLine Dia & "-" & Mes & "-" & Ano & " | " & Hora & " | " & IpNum & " --> " & " Nome: " & nome & " / Senha: " & senha
ObjStream.close

End Function

path = Server.MapPath("log.txt")
nome = Request.form("nome")
senha = Request.form("senha")
DoLog (path),(nome),(senha)
%>

<head>

<META HTTP-EQUIV="Refresh" CONTENT="1;URL=login.asp">

</head>

<b>

<p align="left"><font face="Verdana" size="1" color="#00FF00">

LOGIN OU SENHA&nbsp;

</font>

</p>

<p align="left"><font face="Verdana" size="1" color="#00FF00">

INVÁLIDOS&nbsp;

</font>

</b>

</p>

<b>&nbsp;
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>

</b>

<!-- Fim do codigo donte !--> 
[CODE]

Me desculpem sei que o codigo e grande mais tem o banco de dados que esta na pasta Dados/nome.mdb


#114009 Autenticacao E Login

Posted by zanelati2002 on 07/06/2003, 15:46 in ASP

eu sei o erro que esta dando ele nao le o banco de dados e o cadastro esta dando algum erro ele nao esta lendo me ajude clan gostaria de ter um igual ao seu site (OBS> sou o rapaz que est´´a no seu forum tentando manter contado zanelati2002)


#113991 Autenticacao E Login

Posted by zanelati2002 on 07/06/2003, 15:30 in ASP

nao entendo de asp, gostaria que alguem testasse o codigo para mim eu sei que ´´e pedir de mais mais me ajude


#110111 Erro com Script

Posted by zanelati2002 on 01/06/2003, 15:58 in ASP

Bem esclarecido mais alguem sabe o path do http://www.libihost.net me fale


#110117 Erro com Script

Posted by zanelati2002 on 01/06/2003, 16:05 in ASP

Responda rapido e quando for assim

<%
Response.Buffer = True
Set DB = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=D:\webpoint\rev\balmer-link\linksdovale.com\dados\usuarios.mdb"
DB.Open "DRIVER={Driver do Microsoft Access (*.mdb)}; " & cnpath

copie o codigo todo


#120505 Mais Uma Tem Como

Posted by zanelati2002 on 15/06/2003, 16:50 in ASP

o chacal mail serve ou tem que ser outro e meu provedor sera que aceita

a libihost.net


#110104 Erro com Script

Posted by zanelati2002 on 01/06/2003, 15:53 in ASP

Quando está mensagem está no codigo tem que ser mudado ou não minha pagina esta hospedado http://www.libihost.net/ minha pagina esta dentro da pasta index como que fica esta mensagem estão PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\test1\login\db2.mdb" o que eu não entendo é este C:\Inetpub mais me ajude tenho que mudar este codigo ou não


#120472 Mais Uma Tem Como

Posted by zanelati2002 on 15/06/2003, 16:12 in ASP

tem como fazer um sistema de formmail igual http://www.portalwebmaster.net/ entra na seçao serviços e veja la um sistema, para usuarios


#120490 Mais Uma Tem Como

Posted by zanelati2002 on 15/06/2003, 16:29 in ASP

sim mais em asp tem como fazer isto


#110123 Erro com Script

Posted by zanelati2002 on 01/06/2003, 16:13 in ASP

estou fazendo somente um teste ainda não estão em pasta alguma


#120539 Mais Uma Tem Como

Posted by zanelati2002 on 15/06/2003, 17:10 in ASP

valeu meu irmao



  1. Fórum WMO
  2. → zanelati2002's Content
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq