Jump to content

  2. → zanelati2002's Content

zanelati2002's Content

There have been 101 items by zanelati2002 (Search limited from 14/05/2023)


Tipos

See this member's


Ordernar por                Order  

#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


#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


#113747 Sera Que Exite

Posted by zanelati2002 on 07/06/2003, 01:00 in ASP

Como faço para visializar o codigo fonte de uma pagina feita em asp, sera que tem como


#113758 Sera Que Exite

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

eu sei mais por exemplo j´´a em alguma pagina de donwload assim "com este codigo voce pode visualizar tipo a de valida_login.asp acho que n~~ao d´´a


#123539 Script De Afliados

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

conheço um super legal e rodo em meu site a do chacal banner tente este depois voce poste aqui se nao te ajudar http://www.chacalscripts.rg3.net


#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


#114863 Qual ´e O Programa Que Se Usa

Posted by zanelati2002 on 08/06/2003, 14:35 in Teoria da arte e tipologia

qual e o programa que se usa para fazer este tipo de banner

http://www.clubemasters.com.br/ igual a desta pagina


#90536 Provedor Gratis

Posted by zanelati2002 on 03/05/2003, 14:28 in ASP

Olá amigos do forum estou tentando hospedar um topsites no http://www.libihost.net mais é muito grande coisa de 2k a mais não esta dando no, ai me cadastrei no www.websamba.com mandaram o email de comfirmação mais não consigo acessr o ftp tem algum macete estou tentando pelo ftp commander me ajude


#110107 Porque Não Esta Dando

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

Ele não aceita somente diz que uma mensagem falando que não deu certo o envio talvez pode ser os ips ou algo assim pois um dia coloquem um codigo que tinha algo parecido, mais quem souber o que tem errado me fale


#110088 Porque Não Esta Dando

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

tenho um site e fiz um sistema de login mais não estou conseguindo colocar está pagina sera que tem algum codigo errado me ajudem 
<!-- Inicio do codigo fonte !--> 

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

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=logon.asp">

</head>

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

<p align="center"><font face="Verdana" size="1" color="#FF0000">

LOGIN OU SENHA INVÁLIDOS TENTE NOVAMENTE

</font>

</b>

</p>

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

Ela não está aceitando mais a brinker aceita


#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


#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


#126229 Onde Posso Conseguir

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

eu quero um sistema que de para divulgar o banner do user que se cadastrar dando para ver os cliques do seu banner nao precisa ser igual, mais o que eu quero e parecido com http://banner.portalwebmaster.net/
entre e veja obrigado


#125554 Onde Posso Conseguir

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

sera que tem como eu conseguir um sitema em asp de ratio banner nao sei se esta e a palavra mais e iguakl a http://banner.portalwebmaster.net/ para divulgacao do site


#108455 Onde Conseguir Este Codigo

Posted by zanelati2002 on 30/05/2003, 00:39 in ASP

Amigios do Forum aonde eu posso conseguir um codigo que já puchei da net mais não lembro da onde foi um codigo que mostra os 10 ultimos ips, a hora que o visitante entrou no site, quantas vezes entrou e também a busca por ip, quem saber o site me fala, Valeu


#109214 Onde Conseguir Este Codigo

Posted by zanelati2002 on 31/05/2003, 15:13 in ASP

Obrigado por responder mais não é este é um codigo pronto com busca de ip e detalhes hora de entrada, dia, este codigo eu fiz download mais não lembro de onde quem souber me fale
obrigado


#124017 O Que Esta De Errado Neste Chat

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

vou postar pagina por pagina

chat.asp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Bate Papo do Site do Zanelati</TITLE>
<META content="text/html; charset=windows-1252" http-equiv=Content-Type><LINK 
href="chat.css" rel=stylesheet 
type=text/css>
<script language="JavaScript">
function validate(form) {
	if (form.elements[0].value=="") {
  alert('Não vai colocar o apelido?')
  form.elements[0].focus()
  return false
	}
	return true
}
</script>

<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY class=frontpage>
<TABLE border=0 cellPadding=0 cellSpacing=0 
style="position: absolute; top: 90; left: 0" width="693" height="284">
  <TBODY>
  <TR>
    <TD 
    style="COLOR: #333333; FONT-SIZE: 10px; FONT-WEIGHT: bold; PADDING-BOTTOM: 8px; PADDING-RIGHT: 8px; TEXT-ALIGN: right">Participe 
      do Bate Papo do Site do Zanelati</TD></TR>
  <TR>
    <TD align=middle 
    style="BACKGROUND-COLOR: #0099cc; BORDER-BOTTOM: #ffffff 1px dashed; BORDER-TOP: #ffffff 1px dashed"><BR>
      <%
IF Request.QueryString("lotada") = "true" then
	Response.Write "<b>Você tentou entrar em uma sala lotada!!!!</b><br><br>"
End If
%>
      <form method="POST" action="frame.asp" onsubmit="return validate(this)">
      <TABLE border=0 cellPadding=2 cellSpacing=0 width=240>
        <TBODY>
        <TR>
          <TD>&nbsp;</TD>
          <TD align=right style="FONT-SIZE: 10px">Apelido:</TD>
          <TD width="100%"><INPUT class=editField maxLength=32 name=nome 
            size=28 tabIndex=1></TD>
          <TD>&nbsp;</TD></TR>
        <TR>
          <TD>&nbsp;</TD>
          <TD align=right colSpan=2><INPUT border=0 class=btn name=login tabIndex=2 title="Usuário no chat" type=submit value=entrar></TD>
          <TD>&nbsp;</TD></TR><INPUT name=mode type=hidden value=userLogin> 
</FORM>
        <TR>
          <TD>&nbsp;</TD>
          <TD align=middle colSpan=2 style="COLOR: #999999"><BR><BR><BR></TD>
          <TD>&nbsp;</TD></TR>
        <TR>
          <TD>&nbsp;</TD>
          <TD colSpan=2>
            <TABLE border=0 cellPadding=4 cellSpacing=0 
            style="BORDER-RIGHT: #003300 3px double" width="100%">
              <TBODY>
              <TR>
                <TD class=uocap colSpan=3>Entre e Participe</TD></TR>
              <TR>
                <TD class=uo colSpan=3>&nbsp;marque encontros com amigos</TD></TR></TBODY></TABLE></TD>
          <TD>&nbsp;</TD></TR></TBODY></TABLE>
      </form>
      <BR></TD></TR>
  <TR>
    <TD 
    style="COLOR: #666666; FONT-SIZE: 10px; FONT-WEIGHT: lighter; PADDING-BOTTOM: 8px; PADDING-LEFT: 8px; PADDING-RIGHT: 8px; PADDING-TOP: 8px; TEXT-ALIGN: justify">
      <P style="TEXT-ALIGN: center">[Site do Zanelati - Todos os direitos 
      reservados]</P></TD></TR></TBODY></TABLE><!-- Copyright(c) 2002, The Theill Web Site --></BODY></HTML>

expire.asp
<html>

<head>
<LINK 
href="chat.css" rel=stylesheet 
type=text/css>

</head>

<body>

<p><a href="chat.asp" target="_top">Sua sessão de chat expirou. Clique aqui
para entrar novamente</a></p>

</body>

</html>


f_msg.asp

<html>
<head>
<LINK 
href="chat.css" rel=stylesheet 
type=text/css>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#3171AD" text="#FFFFFF">
</body>
</html>

f_post.asp

<html>

<head>
<title></title>
<LINK 
href="chat.css" rel=stylesheet 
type=text/css>
<script language=JavaScript>
function foco(){
var Form
Form = document.envia;
Form.msg.focus(); 
}
</SCRIPT>
</head>

<body topmargin="0" leftmargin="0" bgcolor="#3171AD" text="#FFFFFF"
style="border-top-style: solid; border-top-color: #FFFF00">

<%
If Session("logon") = false then
	Response.Redirect("expire.asp")
End IF
%>
<%
Function mau(msg)
msg=lcase(msg)
mau=false
	if instr(1, msg, "xxxxx que pariu") then mau=true
	if instr(1, msg, "xxxxx") then mau=true
	if instr(1, msg, "xxxxx") then mau=true
	if instr(1, msg, "xxxxxx") then mau = true
	if instr(1, msg, "xxxxxx") then mau = true
	if instr(1, msg, "vai tomar no") then mau = true
	if instr(1, msg, "xxxxx") then mau = true
	if instr(1, msg, "xxxxx") then mau = true
	if instr(1, msg, "xxxxxx") then mau = true
end function
Function image(pic, post)
if pic <> "none" then
	post = post & ".........<img src='../s_gif/" & pic & "'><br>"
	image = post
else
	image = post
End If
End Function

'************************************************
dim origem, destino, reserv, msg, id, acao, varid1, varid2, p3, p4, p5, pic
reserv = Request.Form("Reservado")
msg = Request.Form("msg")
id = Request.Form("destinatario")
acao = Request.Form("action")
if id = "1234" then destino = "TODOS" & reserv
pic = Request.Form("imagem")

'Transforma msg para evitar erros no JavaScript
msg = Server.HTMLencode(msg)

If trim(msg) <> "" then     	 'Postou mensagem
	a = Application("id01")
	b = Application("nome01")
	c = Application("msg01")
	l = Application("last01")
	For i = 0 to 29      'Procura usuario
  if a(i) = Session.SessionID then
 	 origem = b(i)
 	 exit for
  End if
	next
	If origem="" then 
  Session("logon") = false
  session("last") = true
  response.redirect("expire.asp")
	End If
	for i = 0 to 29      'Procura vitima
  if a(i) = id then
 	 destino = b(i)
 	 exit for
  end if
	next

	'personaliza as acoes
	Select Case acao
  Case "grita com"
 	 msg = "<b>" & ucase(msg) & "</b>"
	End Select
	
	if reserv <> false then     	 'Prive
  p1 = "<font color = cyan>(" & FormatDateTime(now, 3) & ")</font> "
  p2 = "<font color = yellow><b>" & origem & "</b></font> "
  p3 = "<font color = white>reservadamente " & acao & " </font>"
  p4 = "<font color = yellow><b>" & destino & "</b></font>: "
  p5 = "<font color = white><i>" & msg & "</i></font><br>"
  post = p1 & p2 & p3 & p4 & p5
  post = image(pic, post)
  if mau(msg) then
 	 post = post & "<b>BOT para " & origem & ": BOCA-SUJA!<b><br>"
  end if
  if id = "1234" then
 	 post = "<b>BOT para " & origem & ": pra quê falar reservadamente com todos???</b><br>"
  End If
  for i = 0 to 29
 	 if a(i) = id or a(i) = Session.SessionID then
    c(i) = c(i) & post
 	 end if
  next
	else         	 'todos veem a msg
  p1 = "<font color = cyan>(" & FormatDateTime(now, 3) & ")</font> "
  p2 = "<font color = yellow><b>" & origem & "</b></font> "
  p3 = "<font color = white> " & acao & " </font>"
  p4 = "<font color = yellow><b>" & destino & "</b></font>: "
  p5 = "<font color = white>" & msg & "</font><br>"
  post = p1 & p2 & p3 & p4 & p5
  post = image(pic, post)
  if mau(msg) then
 	 post = post & "<b>BOT para " & origem & ": BOCA-SUJA!<b><br>"
  end if
  for i = 0 to 29
 	 'if c(i) <> "" then
    c(i) = c(i) & post
 	 'end if
  next
  
  'Adiciona as 10 ultimas
  for i = 1 to 8
 	 l(i) = l(i+1)
  next
  l(9) = post
	end if
	Application.lock
	Application("msg01") = c
	Application("last01") = l
	Application.unlock
else
	a = Application("id01")
	b = Application("nome01")
	For i = 0 to 29      'Procura usuario
  if a(i) = Session.SessionID then
 	 origem = b(i)
 	 exit for
  End if
	next
end if
chatn = Session("chatn")
%>
<form action="f_post.asp" method="post" name="envia">
  <table border="0" cellpadding="2" cellspacing="2" width="100%">
    <tbody>
      <tr>
        <td colspan="2"><b><% Response.write origem %></b><input
          name="Reservado" type="checkbox" value="false"><font face="Arial"
          size="2">reservadamente&nbsp; </font><select name="Action" size="1">
            <option selected value="fala para">fala para</option>
            <option value="pergunta para">pergunta para</option>
            <option value="responde para">responde para</option>
            <option value="concorda com">concorda com</option>
            <option value="discorda de">discorda de</option>
            <option value="desculpa-se com">desculpa-se com</option>
            <option value="surpreende-se com">surpreende-se com</option>
            <option value="murmura para">murmura para</option>
            <option value="sorri para">sorri para</option>
            <option value="suspira por">suspira por</option>
            <option value="flerta com">flerta com</option>
            <option value="não tá nem aí com">não tá nem aí com</option>
            <option value="entusiasma-se com">entusiasma-se com</option>
            <option value="ri de">ri de</option>
            <option value="dá um fora em">dá um fora em</option>
            <option value="briga com">briga com</option>
            <option value="grita com">grita com</option>
            <option value="xinga">xinga</option>
          </select> <select name="destinatario" size="1">
            <option selected value="1234">TODOS</option>
           <%
        varid1 = application("nome01")
        varid2 = application("id01")
        for i = 0 to 29
       	 if varid2(i) <> Session.SessionID and varid2(i) <> "" then
          response.write "<option value=" & varid2(i) & ">" & varid1(i) & "</option>" & vbcrlf
       	 End If
        next
            %>
          </select></td>
      </tr>
      <tr>
        <td width="32"><a href="sai.asp" target="_top"><img alt="Sair"
          border="0" src="../s_gif/sair.gif" width="32" height="32"></a></td>
        <td>&nbsp;&nbsp;&nbsp;<select name="imagem" size="1">
            <option selected value="none">Enviar imagem</option>
            <option value="boia.gif">Bóia</option>
            <option value="briga.gif">Briga</option>
            <option value="cerveja.gif">Cerveja</option>
            <option value="coco.gif">Cocô</option>
            <option value="desculpa.gif">Desculpa</option>
            <option value="drink.gif">Drink</option>
            <option value="entusiasmo.gif">Entusiasmo</option>
            <option value="flerta.gif">Tubarão</option>
            <option value="naotanemai.gif">Não tô nem aí</option>
            <option value="nuvem.gif">Nuvem</option>
            <option value="presente.gif">Presente</option>
            <option value="rosa.gif">Rosa</option>
            <option value="sapo.gif">Sapo</option>
            <option value="xixarrao.gif">Xixarrão</option>
            <option value="pergunta.gif">Interrogação</option>
            <option value="ride.gif">Riso</option>
            <option value="sorri.gif">Sorriso</option>
          </select> &nbsp;<input name="msg" size="50"> <input name="Submit"
          type="submit" value="Enviar">&nbsp;&nbsp;&nbsp; Sala: </td>
      </tr>
    </tbody>
  </table>
</form>
     <script language=JavaScript>
  function foco(){
   var Form
   Form = document.envia;
   Form.msg.focus(); 
  }
	</SCRIPT>


f_proc.asp
<html>

<head>
<%
If Session("logon") = false then
	Response.Redirect("expire.asp")
End If
%>
<meta http-equiv="Refresh" content="3; url=f_proc.asp">
<title></title>
</head>

<body bgcolor="#000000" text="#FFFFFF">

<%
dim l, i, a, c, d, texto
Response.Write "<script language=javascript>" & vbcrlf
if Session("last") then   	 'mostra as 10 ultimas
	l = application("last01")
	for i = 0 to 9
  If l(i) <> "" then
 	 texto = l(i)
 	 Response.Write "parent.msgpost(""" & texto & """)" & vbcrlf
  End if
	next
	Session("last") = false
else
	a = Application("id01")
	c = Application("msg01")
	For i = 0 to 29
  if a(i) = Session.SessionID then
 	 texto = c(i)
 	 if len(texto) <> 0 then
    Response.Write "parent.msgpost(""" & texto & """)" & vbcrlf
 	 end if
 	 c(i) = ""
 	 Application.lock
 	 Application("msg01") = c
 	 Application.unlock
 	 exit for
  end if
	next
end if
Response.Write "</script>" & vbcrlf
%>

</body>

</html>


frame.asp
<%
Dim a, b, c, d, t, logon, u, i, nome, p1, p2
nome = Request.Form("nome")
if nome = "" then
	Response.Redirect("../default.asp")
end if
If Application("chatn") = 30 then
	Response.Redirect("../default.asp?lotada=true")
End If
If Session("logon") = false then          'Entrou agora
	'Adiciona usuario
	'Procura uma vaga
	a = Application("id01")
	For i = 0 to 29
  If a(i) = "" then exit for
	next
	Session("vaga") = i
	a = Application("id01")
	b = Application("nome01")
	a(i) = Session.SessionID
	b(i) = nome
	p1 = "<font color=cyan>(" & FormatDateTime(now, 3) & ")</font> "
	p2 = "<font color=white>" & nome & " entrou na sala...</font><br>"
	logon = p1 & p2
	Application.Lock
	Application("id01") = a
	Application("nome01") = b
	Application.unlock
	
	'Adiciona logon as 10 ultimas
	u = Application("last01")
	for i = 0 to 8
  u(i) = u(i+1)
	next
	u(9) = logon
	Application.Lock
	Application("last01") = u
	chatn = Application("chatn") + 1
	Application("chatn") = chatn
	Application.unlock
	Session("logon") = true
	
	'Avisa o restante dos usuarios que alguem entrou...
	c = Application("msg01")
	for i = 0 to 29
  if i <> Session("vaga") Then
     c(i) = c(i) & logon
  End If
	next
	Application.lock
	Application("msg01") = c
	Application.unlock
End If
%>
<html>

<script language="javascript">
var docflag = new String("C")


function msgpost(msg) {
var destino = parent.frames[0].document
var as = unescape("%34")
if (docflag == "C") {
	destino.write("<html><link rel='stylesheet' href='../style.css' type='text/css'>")
	destino.write("<body topmargin=4 leftmargin=4 bgcolor='#3171AD' text='#FFFFFF'><p>")
	docflag="O" }
destino.write(msg)
parent.frames[1].scroll(0,900000000)
}
</script>

<head>
<% Response.Write "<title>" & nome & " no Chat</title>" %>

</head>

<frameset framespacing="0" border="0" frameborder="0" rows="100%,0,80">
  <frame name="fmsg" scrolling="yes" src="f_msg.asp">
  <frame name="fproc" scrolling="no" noresize src="f_proc.asp">
  <frame name="fpost" src="f_post.asp" scrolling="no" noresize>
  <noframes>
  <body>

  <p>Esta página usa quadros mas seu navegador não aceita quadros.</p>

  </body>
  </noframes>
</frameset>

</html>


sai.asp
<%
If Session("logon") = false then
	Response.Redirect("expire.asp")
End IF
%>
<%
Dim sID, a, b, c, l, t, i, nome, p1, p2, post, a2, b2, c2, d2, chatn

sID = Session.SessionID
a = Application("id01")
b = Application("nome01")
c = Application("msg01")
l = Application("last01")
'Remove usuario da sala

i = Session("vaga")
nome = b(i)
Session("logon") = false
Session("last") = true
v = Session("vaga")
set Session("vaga") = nothing

p1 = "<font color=cyan>(" & FormatDateTime(now, 3) & ")</font> "
p2 = "<font color=white>" & nome & " saiu da sala...</font><br>"
post = p1 & p2

for i = 1 to 8
	l(i) = l(i+1)
next
l(9) = post

'Avisa a turma
for i = 0 to 29
  c(i) = c(i) & post
next
a(v) = ""
b(v) = ""
c(v) = ""
Application.lock
Application("id01") = a
Application("nome01") = b
Application("msg01") = c
Application("last01") = l
chatn = Application("chatn") - 1
Application("chatn") = chatn
Application.unlock
response.redirect("chat.asp")


este chat e o go chat so mudei um pouco o chat.asp que seria a inde.asp de uma olhada se algo foi postado errado http://www.vipcodigo...asp?codfonte=61 e o link do codigo


#120562 News Letter

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

voce ja tentou a do http://www.chacalscripts.rg3.net


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


#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


#120539 Mais Uma Tem Como

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

valeu meu irmao


#120490 Mais Uma Tem Como

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

sim mais em asp tem como fazer isto


#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


#123962 Login Cadastro Com Autenticaçao

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

sera que ninguem vai me ajudar a responder


#123593 Login Cadastro Com Autenticaçao

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

este e um post que postei a semana passada "Sera que tem como aparecer"
Bem vou explicar, peguei um sistema de login e cadstro ja feito que se cha phin_login, algo assim todos creio que conhecem, o que eu queria fazer era que quando o usuario se logasse aparecesse em um frame que tem na pagina index, todos os user logados tipo da amigos wc, so o que acontece este codigo que tenho ele redireciona para outra pagina um apgina para consultar se tem mensagem. confira so
a pagina do login.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>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>


ai voces conferem que ela vai para signin.asp que esta ai
<%
Option Explicit
Dim sql,rsUser,username,password,page,stayloggedin,LConnectString,lconn,sqlflag

'Grab the submitted variables (page is the page they've come from, set by the hidden variable at the login box)
username = Request.Form("username")
password = Request.Form("password")
page = Request.Form("page")
stayloggedin = Request.Form("stayloggedin")

if page = "" then
	page = "index.asp"
end if

'Check no s**t is trying to hack in using SQL commands
if InStr(username, "'") or InStr(username, """") or InStr(username, "=") or InStr(password, "'") or InStr(password, """") or InStr(password, "=") then
	sqlflag = True
end if

'Open connection
%>
<!--#include file="conn.asp"-->
<%

'Get a recordset corresponding to the submitted username and password
sql = "SELECT username FROM users WHERE username = '" & username & "' AND password = '" & password & "'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3

'If there was a valid recordset there, then send them back to the page they came from, with the username cookie set
If (not rsUser.BOF) and (not rsUser.EOF) and sqlflag <> True then
  Response.Cookies("username") = rsUser("username")
  'If the user wants to stay logged in all the time, then we'll set the cookie with a far-away expiry date
  if stayloggedin = "yes" then
	Response.Cookies("username").expires = #1/1/2010#
  end if
  rsUser.close
  set rsUser = nothing
  conn.close
  set conn = nothing
  Response.Redirect(page)
end if

'Otherwise, display an invalid entry screen
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing%>

<html>
<head>
<title>Invalid entry</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">

<h3 align="left"><font color="#000000" size="1" face="Verdana">Nome de usu&aacute;rio&nbsp;</font></h3>

<h3 align="left"><font color="#000000" size="1" face="Verdana">ou senha inv&aacute;lidos</font></h3>

<p><a href="javascript:self.history.go(-1)"><font color="#000000" size="1" face="Verdana">Tente novamente</font></a></p>

</body>
</html>


certo que sua vez vai para uma pagina index que vai identificar se o usuario tem mensagens ou nao o que eu queria e fazer isto aparecesse os user logados no sistema o codigo do sistema completo se encontra em http://www.vipcodigo...asp?codfonte=11 o developer
postou um codigo mais nao consegi usar me ajudem



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