Jump to content


zanelati2002's Content

There have been 101 items by zanelati2002 (Search limited from 29/03/2023)



Ordernar por                Order  

#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



#265467 Mensagem De Agradecimento

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

este foi um codigo que fizeram para mim é para mandar a mensgem de agradecimento para o usuario que acabou de se registrar.
1. sera que eu coloquei o codigo no lugar certo
2. pois fiz um teste eu mesmo me cadastrando e até agora o email não chegou com meu login e senha . me ajude alguem crazy mais uma vez conto com você .
o erro que esta dando é que o arquivo não esta vindo para o email do usuario que se registrou segue o codigo inteiro do
<%
Option Explicit
Dim sql, rsUser, username, password, passwordconfirm, firstname, surname, email, dob, sex, notfilled(7), badflag, count, passwordLength, calltype, icon, starsign, dobmonth, dobday, sendemail

'Assign form values to variables
username = Request.Form("username")

'Make sure they've not put any quotation marks in their username
If InStr(username,chr(34)) <> 0 or InStr(username,chr(39)) <> 0 then
	errorfunction("invalidchars")
end if

firstname = Request.Form("firstname")
surname = Request.Form("surname")
email = Request.Form("email")
sex = Request.Form("sex")
password = Request.Form("password")
passwordconfirm = Request.Form("passwordconfirm")
dob = Request.Form("birth_day") & "/" & Request.Form("birth_month") & "/" & Request.Form("birth_year")
icon = Request.Form("icon")

'Only way to set a variable from a checkbox:
if Request.Form("sendemail") = "on" then sendemail = True else sendemail = False end if

'Check everything's been filled in, badflag determines whether error function is called
badflag = 0

'nofilled() is an array that will store the fields which are not filled in

if firstname = "" then
	notfilled(0) = "First Name"
	badflag = 1
end if
if surname = "" then
	notfilled(1) = "Surname"
	badflag = 1
end if
if email = "" then
	notfilled(2) = "Email"
	badflag = 1
end if
if username = "" then
	notfilled(3) = "Username"
	badflag = 1
end if
if password = "" then
	notfilled(4) = "Password"
	badflag = 1
end if
if sex = "" then
	notfilled(5) = "Sex"
	badflag = 1
end if
if IsDate(dob) = "False" then
	notfilled(6) = "Date of Birth"
	badflag = 1
end if
if icon = "" then
	notfilled(7) = "Your choice of icon"
	badflag = 1
end if

if badflag = 1 then
	signuperror()
end if

'Check password length is between 5 and 15 characters long
passwordLength = Len(password)
if passwordLength < 5 or passwordLength > 15 then
	errorfunction("length")
end if

'Check password and confirmed password are the same
if password <> passwordconfirm then
	errorfunction("confirm")
end if

'Open connection and insert user details into the database
%>
<!--#include file="conn.asp"-->
<%

'For a bit of profiling fun, get their star sign
getstarsign()

'Then add it to the database. It's in a seperate function because we need to error trap to see if there's been a duplicate entry. It's not good form to have On Error Resume Next throughout your whole page

UserUpdate()

Function UserUpdate()
On Error Resume Next

Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.open "users", conn, 3, 3
rsUser.AddNew
rsUser("username") = username
rsUser("password") = password
rsUser("firstname") = firstname
rsUser("surname") = surname
rsUser("email") = email
rsUser("dob") = dob
rsUser("starsign") = starsign
rsUser("sex") = sex
rsUser("icon") = icon
rsUser("sendemail") = sendemail
rsUser.Update

if Err.Number = -2147217887 then
	Err.clear
	errorfunction("badusername")
else
	'Set username cookie to sign them in now
	Response.Cookies("username") = username
%>
<%

' Atribuindo os dados do formulário submetido as váriveis strNome e

strEmail

' strNome = Trim(Request.Form("username"))

strEmail = Trim(Request.Form("email"))

' Agora vamos criar uma conexão com o CDONTS para enviar os dados

' submetidos para o webmaster do site.

' O Email será enviado pelo usuário recém cadastrado

Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.To = "sitedozanelati@ig.com.br"

objMail.From = strEmail

objMail.Subject = "Cadastro no site!"

' Vamos criar agora uma mensagem padrão a ser enviado para o webmaster

' vbcrlf = quebra de linha

strMsgParaCadastro = "Nome: " & strusername & vbcrlf

strMsgParaCadastro = strMsgParaCadastro & "Email: " & stremail & vbcrlf


strMsgParaCadastro = strMsgParaCadastro & "-----------------------------"

objMail.Body = strMsgParaCadastro

objMail.Send

' Email para o webmaster enviado, portanto fechamos a conexão com o


CDONTS

Set objMail = nothing

' Agora imediatamente, criamos a mensagem padrão que será enviada
de agradecimento

' ao usuário recém cadastrado.

strMsgObrigado = "Olá " & strusername & vbcrlf

strMsgObrigado = strMsgObrigado & "Obrigado por se cadastrar em nosso site" & vbcrlf

strMsgObrigado = strMsgObrigado & "Breve você receberá mais informações." & vbcrlf & vbcrlf

strMsgObrigado = strMsgObrigado & "Abraços," & vbcrlf

strMsgObrigado = strMsgObrigado & "Webmaster"

' Criando novamente outra conexão com o CDONTS para enviar o email ao usuário.

Set objMail = Server.CreateObject("CDONTS.NewMail")

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

objMail.To = strEmail ' observe

objMail.Subject = "Seu cadastro em nosso site!"

objMail.Body = strMsgObrigado

objMail.Send
%>
<html>
<head>
<title>Philweb - Free ASP Applications</title>
</head>
<body bgcolor="#FFFFFF" link="#DD0000" vlink="#DD0000" alink="#000000">
<font face="arial,helvetica" size=2>

  
<p><b>Obrigado por se cadastrar<%=firstname%>&nbsp;<%=surname%></b></p>

  
<p><b>Voc&ecirc; agora possui um nome de usu&aacute;rio <%=username%> e est&aacute; 
  logado!</b></p>

  
<p><a href="index.asp">Clique aqui para voltar &aacute; p&aacute;gina inicial</a>
<p>

  </font>
  </td>
</tr>
</table>

</body>
</html>

<%
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing
%>
<%
end if
End Function%>


<%
Function getstarsign()
dobmonth = Request.Form("birth_month")
dobday = Request.Form("birth_day")
Select Case dobmonth
	Case 1
  if dobday < 21 then
 	 starsign = "Capricorn"
  else
 	 starsign = "Aquarius"
  end if
	Case 2
  if dobday < 20 then
 	 starsign = "Aquarius"
  else
 	 starsign = "Pisces"
  end if
	Case 3
  if dobday < 21 then
 	 starsign = "Pisces"
  else
 	 starsign = "Aries"
  end if
	Case 4
  if dobday < 21 then
 	 starsign = "Aries"
  else
 	 starsign = "Taurus"
  end if
	Case 5
  if dobday < 22 then
 	 starsign = "Taurus"
  else
 	 starsign = "Gemini"
  end if
	Case 6
  if dobday < 22 then
 	 starsign = "Gemini"
  else
 	 starsign = "Cancer"
  end if
	Case 7
  if dobday < 24 then
 	 starsign = "Cancer"
  else
 	 starsign = "Leo"
  end if
	Case 8
  if dobday < 24 then
 	 starsign = "Leo"
  else
 	 starsign = "Virgo"
  end if
	Case 9
  if dobday < 24 then
 	 starsign = "Virgo"
  else
 	 starsign = "Libra"
  end if
	Case 10
  if dobday < 24 then
 	 starsign = "Libra"
  else
 	 starsign = "Scorpio"
  end if
	Case 11
  if dobday < 23 then
 	 starsign = "Scorpio"
  else
 	 starsign = "Sagittarius"
  end if
	Case 12
  if dobday < 22 then
 	 starsign = "Sagittarius"
  else
 	 starsign = "Capricorn"
  end if
End Select
End Function
%>

<%Function signuperror()%>
<html>
<head>
<title>Philweb - Free ASP Applications</title>
</head>
<body bgcolor="#FFFFFF" link="#DD0000" vlink="#DD0000" alink="#000000">
<font face="arial,helvetica" size=2>

<p><b>You have not filled in the following fields correctly:</b></p>

<%for count = 0 to 7%>
	<%if notfilled(count) <> "" then%>
	<b><%=notfilled(count)%></b><br>
	<%end if%>
<%next%>

<p><a href="javascript:self.history.go(-1)">Please try again</a></p>

</font>
</table>

</body>
</html>
<%Response.end
End Function%>


<%Function errorfunction(calltype)%>
<html>
<head>
<title>Philweb - Free ASP Applications</title>
</head>
<body bgcolor="#FFFFFF" link="#DD0000" vlink="#DD0000" alink="#000000">
<font face="arial,helvetica" size=2>

<%if calltype = "confirm" then%>
<p><b>Your password and confirmed password were not the same</b></p>
<p><a href="javascript:self.history.go(-1)">Please try again</a></p>

</font>
</body>
</html>
<%Response.end%>
<%elseif calltype = "length" then%>
<p><b>Your password is not between 5 and 15 characters long</b></p>
<p><a href="javascript:self.history.go(-1)">Please try again</a></p>

</font>
</body>
</html>
<%Response.end%>
<%elseif calltype = "badusername" then%>
<p><b>Sorry, the username &quot;<%=username%>&quot; already exists.</b></p>
<p><a href="javascript:self.history.go(-1)">Please try again</a></p>

</font>
</body>
</html>
<%
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing
Response.end
%>
<%elseif calltype = "invalidchars" then%>
<p><b>Sorry, your username cannot contain any quotation marks.</b></p>
<p><a href="javascript:self.history.go(-1)">Please try again</a></p>

</font>
</body>
</html>
<%Response.end%>
<%end if
End Function%>



#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

%>



#264876 Alguem Pode Me Dar Uma Dica

Posted by zanelati2002 on 27/12/2003, 16:22 in ASP

valeu cara manja muitooooooooooooooooooo



#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



#264739 Alguem Pode Me Dar Uma Dica

Posted by zanelati2002 on 27/12/2003, 14:02 in ASP

tenho uma conexão so que quando clica no link está abrindo na mesma pagina exite a posibilidade para abrir em outra pagina. sei que tem que colocar isto target="_blank mais não sei aonde

<%
set conn = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("db/guest.mdb")
conn.open constr

set rs = conn.execute("select top 10 * from assinar order by site desc")
do while not rs.eof
response.write("<a href='"&rs("site")&"'>"&rs("site")&"<br>")
rs.movenext
loop
%>



#263453 Sistema De Login

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

não consego entender este erro que esta dando so postei o erro emcima
que é nesta linha line 226

exatamente em cima explica certinho leia mais uma vez e valeu por ter me ajudado naqueles codigos



#263449 Sou Aprendiz...

Posted by zanelati2002 on 25/12/2003, 09:48 in ASP

entre no meu site é mural legla ve se serve que eu te mando.
http://www.libihost....elati/index.asp



#263447 Sistema De Login

Posted by zanelati2002 on 25/12/2003, 09:46 in ASP

até agora não obtive exoto neste codigo não consigo achar este erro mudo varias coisas e o erro é o mesmo



#263443 So Mais Esta A Quem Souber

Posted by zanelati2002 on 25/12/2003, 09:34 in ASP

tenho um quadro e gostaria de mostrar isto

Site inclusão visitas visitar Site
Isto seria
nome do site data da inlcusão numero de visitas visitar


Como faço para mostrar nesta ordem para o usuario a conexão é

<% Set Conexao = CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath(db)
ConexaoAberta = FALSE
Sub AbreConexao()
	if not ConexaoAberta then
	Conexao.Open ConStr
	ConexaoAberta = True
	end if
end sub
Sub FechaConexao()
	if ConexaoAberta then
	Conexao.close
	ConexaoAberta = False
	end if
end sub %>

no banco de dados os nome das tabelas são
nome, dia, cliques, url como mostrar emcima



#263439 Como Fazer Isto Me Confundo

Posted by zanelati2002 on 25/12/2003, 09:23 in ASP

e quando o link apontar par sites
<%
set conn = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("db/guest.mdb")
conn.open constr

set rs = conn.execute("select top 10 * from assinar order by site desc")
do while not rs.eof
response.write(rs("site")&"<br>")
rs.movenext
loop
%>



#263438 Sistema Criado Por Crazy

Posted by zanelati2002 on 25/12/2003, 09:18 in ASP

get



#263425 Como Fazer Isto Me Confundo

Posted by zanelati2002 on 25/12/2003, 08:21 in ASP

tenho uma conexão o mesmo mostra os ultimos 10 que assinaram meu livro de visitas os email como que eu faço para quando mostrar os emails automaticamente quando mostrar o user clica e manda um email para o cara tipo um link direto para o autlook express
<%
set conn = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("db/guest.mdb")
conn.open constr

set rs = conn.execute("select top 10 * from assinar order by email desc")
do while not rs.eof
response.write(rs("email")&"<br>")
rs.movenext
loop
%>



#263420 Sistema Criado Por Crazy

Posted by zanelati2002 on 25/12/2003, 07:49 in ASP

Bom este é um codigo para enviou de senha esquecida mais esta dando um erro
Microsoft JET Database Engine erro '80040e10'

No value given for one or more required parameters.

/sitedozanelati/login2/enviar_senha.asp, line 8

e também ele so esta buscando o login no banco de dados e precisa também buscar o email no banco de dados login e email para ser mandados para o email do usuario o codigo feito pelo crazy se encontra aqui
<%
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
%>

o erro esta na linha 8
set rs = conn.execute("select * from users where email='"&email&"'")



#263416 Sistema De Login

Posted by zanelati2002 on 25/12/2003, 07:15 in ASP

peguei este ssitema mais fiz algumas alterações e agor esta dando este tipo de pau Erro de compilação do Microsoft VBScript erro '800a03f4'

'If' esperado

/sitedozanelati/login2/signupprocess3.asp, line 226

End Function
----^
a linha 226 é esta <%
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing
%>
<%
end if
End Function%>


<%
Function getstarsign()

exatamente neste end if
End Function%>

o codigo inteiro é este
<%
Option Explicit
Dim sql, rsUser, username, password, passwordconfirm, firstname, surname, email, dob, sex, notfilled(7), badflag, count, passwordLength, calltype, icon, starsign, dobmonth, dobday, sendemail

'Assign form values to variables
username = Request.Form("username")

'Make sure they've not put any quotation marks in their username
If InStr(username,chr(34)) <> 0 or InStr(username,chr(39)) <> 0 then
	errorfunction("invalidchars")
end if

firstname = Request.Form("firstname")
surname = Request.Form("surname")
email = Request.Form("email")
sex = Request.Form("sex")
password = Request.Form("password")
passwordconfirm = Request.Form("passwordconfirm")
dob = Request.Form("birth_day") & "/" & Request.Form("birth_month") & "/" & Request.Form("birth_year")
icon = Request.Form("icon")

'Only way to set a variable from a checkbox:
if Request.Form("sendemail") = "on" then sendemail = True else sendemail = False end if

'Check everything's been filled in, badflag determines whether error function is called
badflag = 0

'nofilled() is an array that will store the fields which are not filled in

if firstname = "" then
	notfilled(0) = "First Name"
	badflag = 1
end if
if surname = "" then
	notfilled(1) = "Surname"
	badflag = 1
end if
if email = "" then
	notfilled(2) = "Email"
	badflag = 1
end if
if username = "" then
	notfilled(3) = "Username"
	badflag = 1
end if
if password = "" then
	notfilled(4) = "Password"
	badflag = 1
end if
if sex = "" then
	notfilled(5) = "Sex"
	badflag = 1
end if
if IsDate(dob) = "False" then
	notfilled(6) = "Date of Birth"
	badflag = 1
end if
if icon = "" then
	notfilled(7) = "Your choice of icon"
	badflag = 1
end if

if badflag = 1 then
	signuperror()
end if

'Check password length is between 5 and 15 characters long
passwordLength = Len(password)
if passwordLength < 5 or passwordLength > 15 then
	errorfunction("length")
end if

'Check password and confirmed password are the same
if password <> passwordconfirm then
	errorfunction("confirm")
end if

'Open connection and insert user details into the database
%>
<!--#include file="conn.asp"-->
<%

'For a bit of profiling fun, get their star sign
getstarsign()

'Then add it to the database. It's in a seperate function because we need to error trap to see if there's been a duplicate entry. It's not good form to have On Error Resume Next throughout your whole page

UserUpdate()

Function UserUpdate()
On Error Resume Next

Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.open "users", conn, 3, 3
rsUser.AddNew
rsUser("username") = username
rsUser("password") = password
rsUser("firstname") = firstname
rsUser("surname") = surname
rsUser("email") = email
rsUser("dob") = dob
rsUser("starsign") = starsign
rsUser("sex") = sex
rsUser("icon") = icon
rsUser("sendemail") = sendemail
rsUser.Update

if Err.Number = -2147217887 then
	Err.clear
	errorfunction("badusername")
else
	'Set username cookie to sign them in now
	Response.Cookies("username") = username
%>
<html>
<head>
<title>Site do Zanelati</title>

</head>

<font face="Verdana" size=1>

  
<p align="center"><b>Obrigado por se cadastrar <%=firstname%>  <%=surname%> </b></p>

  
<p align="center"><b><%=username%>  Agora você é um membro do Site do Zanelati e esta logado no
Sistema </b></p>

  
<p>&nbsp;
<p>

  </font>

<font face="Verdana" size=1>

<p><b>Você esqueceu de preencher os seguintes Dados:</b></p>

<%for count = 0 to 7%>
	<%if notfilled(count) <> "" then%>
	<b><%=notfilled(count)%></b><br>
	<%end if%>
<%next%>

<p><a href="javascript:self.history.go(-1)">Tente Novamente</a></p>

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

<%if calltype = "confirm" then%>
<p><b>Sua confirmação de Senha Tem que ser igual a sua Senha</b></p>
<p><a href="javascript:self.history.go(-1)">Tente Novamente</a></p>

</font>
<font face="Verdana" size=1>
<p><b>Sua senha deve ter entre 5 e 15 caracteres</b></p>
<p><a href="javascript:self.history.go(-1)">Tente Novamente</a></p>

<p><b>Já temos cadastrado <%=username%> em nosso sistema</b></p>
<p><a href="javascript:self.history.go(-1)">Tente Novamente</a></p>

<p><b>Seu username não pode conter caracteres especiais</b></p>
<p><a href="javascript:self.history.go(-1)">Tente Novamente</a></p>

</html>

<%
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing
%>
<%
end if
End Function%>


<%
Function getstarsign()
dobmonth = Request.Form("birth_month")
dobday = Request.Form("birth_day")
Select Case dobmonth
	Case 1
  if dobday < 21 then
 	 starsign = "Capricorn"
  else
 	 starsign = "Aquarius"
  end if
	Case 2
  if dobday < 20 then
 	 starsign = "Aquarius"
  else
 	 starsign = "Pisces"
  end if
	Case 3
  if dobday < 21 then
 	 starsign = "Pisces"
  else
 	 starsign = "Aries"
  end if
	Case 4
  if dobday < 21 then
 	 starsign = "Aries"
  else
 	 starsign = "Taurus"
  end if
	Case 5
  if dobday < 22 then
 	 starsign = "Taurus"
  else
 	 starsign = "Gemini"
  end if
	Case 6
  if dobday < 22 then
 	 starsign = "Gemini"
  else
 	 starsign = "Cancer"
  end if
	Case 7
  if dobday < 24 then
 	 starsign = "Cancer"
  else
 	 starsign = "Leo"
  end if
	Case 8
  if dobday < 24 then
 	 starsign = "Leo"
  else
 	 starsign = "Virgo"
  end if
	Case 9
  if dobday < 24 then
 	 starsign = "Virgo"
  else
 	 starsign = "Libra"
  end if
	Case 10
  if dobday < 24 then
 	 starsign = "Libra"
  else
 	 starsign = "Scorpio"
  end if
	Case 11
  if dobday < 23 then
 	 starsign = "Scorpio"
  else
 	 starsign = "Sagittarius"
  end if
	Case 12
  if dobday < 22 then
 	 starsign = "Sagittarius"
  else
 	 starsign = "Capricorn"
  end if
End Select
End Function
%>

<%Function signuperror()%>
<%Response.end
End Function%>


<%Function errorfunction(calltype)%>
<%Response.end%>
<%elseif calltype = "length" then%>
<%Response.end%>
<%elseif calltype = "badusername" then%>
<%
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing
Response.end
%>
<%elseif calltype = "invalidchars" then%>
<%Response.end%>
<%end if
End Function%>
alguem pode me ajudar com isto



#136970 Login Cadastro Com Autenticaçao

Posted by zanelati2002 on 05/07/2003, 16:28 in ASP

Fiz um sistema de login e cadastro mais agora quero fazer com que mostre o numero de usuarios cadastrados e os que estao online quando se logam como da amigosWm, me ajudem a fazer isto de uma olhada http://www.libihost....elati/index.asp
obrigado



#131072 Ratio De Banner

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

hospedei minha pagina na brinkster.com so que estou enfrentando problemas de configuracao peguei um sistema de ratio de banner x-changer
temos o seguinte problema
'Atenção não deixar os dois componentes ativos, somente um !
Smtp = "smtp.ig.com.br" 'Servidor SMTP
Cdonts = "on" 'Componente Cdonts caso desativado deixar em off caso ativado deixar em on
AspMail = "off" 'Componente ASPMAIL caso desativado deixar em off caso ativado deixar em on

congiguracoa de smtp sera que a brinkers tem isto ou tem alguma coisa que posso fazer para mudar esta configuracao alguem pode me ajudar



#126670 Como Faço Para Mudar Isto

Posted by zanelati2002 on 22/06/2003, 17:14 in ASP

'Banco de dados: Indique abaixo o caminho onde se localiza o banco de dados,
'Caso você não sabia o caminho físico do banco de dados, mas sabe que ele está,
'No mesmo direitório que as páginas, habilite essa linha e trave a outra com '
CaminhoDB = Server.MapPath("/asp/xchanger/xchanger.mdb") 'Atenção sem o sistema tiver em um subdiretório, especificar o subdiretório, Ex: subdiretório asp, então /asp/xchanger.mdb
'CaminhoDB = "C:\sites\divulgue\www\xchanger.mdb"
'Caso o seu servidor não suporte o método abaixo de conexão libere o outro
'método e trave o que está liberado
StringDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
'StringDB = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="


nao sei fazer a configuracao para meu banco de dados ele se chama xchanger.mdb e esta na pasta dados



#126290 Onde Posso Conseguir

Posted by zanelati2002 on 22/06/2003, 10:01 in ASP

so queria fazer com que este sistema que encontrei funcionasse mais nada veja so http://www.digitalwi...wnload.asp?id=1



#126272 Onde Posso Conseguir

Posted by zanelati2002 on 22/06/2003, 09:42 in ASP

nao sei se alguem conhece este sistema xchanger e uma troca de banners mais nao funciona sera que tem algum macete para funcionar http://www.digitalwi...wnload.asp?id=1 este e o link



#126269 Sistemas De Buscas

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

entra pela pagina e acessa a busca mais aqui abre normal



#126254 Sistemas De Buscas

Posted by zanelati2002 on 22/06/2003, 08:52 in ASP

e um script feito em asp http://www.lkonline.net/busca/asp/# e uma busca ou nao de uma olhada no link acima com busca de palavras chaves e outras coisiunhas sera que tem um igual ai em algum lugar



#126239 Alguem Desifra Erros

Posted by zanelati2002 on 22/06/2003, 07:56 in ASP

Peguei este forum que por sinal muito legal http://www.scriptbra... so que quando eu coloco no servidor ele da este tipo de erro quando vou cadastrar outro membro





Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.

/sitedozanelati/forum/done.asp, line 101



#126236 Chat E Forum

Posted by zanelati2002 on 22/06/2003, 07:24 in ASP

sera que ha possibilidades de mudar os nomes das salas ou com senha sera que existe




IPB Skin By Virteq