Jump to content


zanelati2002's Content

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



Ordernar por                Order  

#114869 Vou Tentar De Novo

Posted by zanelati2002 on 08/06/2003, 14:41 in ASP

Consegui um codigo de autenticacao de usuarios mais esta dando erro nao consegui arrumar o codigo esta neste link quem souber teste para mim conto mais uma vez com quem manja de asp
http://www.sitedozan...t.net/login.zip

me ajudem

preciso que alguem celebro em asp teste o codigo pois o erro nao estou coseguindo arrumar e no d: alguma coisa no caminho do banco de dados em todos as paginas



#114971 Vou Tentar De Novo

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

vou testar o codigo mais so mais uma coisa sera que da para mostrar em um quadro os numeros de cadstros j´´a feitos



#120568 User Online Do Chacal

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

ninguem sabe como fazer isto



#120482 User Online Do Chacal

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

Mostrar a quantidade de user ja cadastrado



#95475 Top Sites

Posted by zanelati2002 on 10/05/2003, 01:39 in ASP

me desculpe a url correta http://www.libihost....tar/default.asp agora está correta



#95470 Top Sites

Posted by zanelati2002 on 10/05/2003, 01:34 in ASP

a url esta errda a correta é http://www.libihost....otar/defaut.asp



#95468 Top Sites

Posted by zanelati2002 on 10/05/2003, 01:31 in ASP

Estou tentando usr um codigo no top sites do meu site mais está dando erro alguem que conhece este codigo o que tenho que mudar mais já mudei o config
a http://www.libihost....otar/defaut.asp

todos os arquivos estão nesta pasta mais esta dando errado
também está em anexo o sitema top sites o arquivo se encontra em

http://www.sitedozan...net/arquivo.zip



#105938 Tirem A Minha Duvida

Posted by zanelati2002 on 25/05/2003, 16:42 in ASP

Consegui um codigo de login e cadastro mais como que eu faço para tirar os icon não colocar pois a pagina passa por um filtro
nome do codigo phils_login a pagina de cadastro se chama signupform a pagina do filtro para saber se esta faltando algo isto que eu queria mudar pois já tentei mudar e não dá certo a pagina chama signupprocess não sei se deu para entender este codigo na pagina de cadastro ele tem um icons meu feio gostaria de tirar mais para isto a pagina do filtro tem que ser mudado como faço isto



#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



#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



#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



#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



#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



#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



#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



#95694 Sistema De Autenticação

Posted by zanelati2002 on 10/05/2003, 15:49 in ASP

Onde posso achar um codigo em asp que autentique o usuario e mostre seu login tipo no momento você está lodago como: e o nome do user



#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&"'")



#263438 Sistema Criado Por Crazy

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

get



#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.



#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



#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



#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



#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



#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>




IPB Skin By Virteq