Jump to content

  2. → zanelati2002's Content

zanelati2002's Content

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


Tipos

See this member's


Ordernar por                Order  

#27263 Dúvidas sobre o PWS. Socorro!

Posted by zanelati2002 on 19/01/2003, 13:59 in ASP

Mais o link do donwload está quebrado como faço agora no link pws


#27223 Dúvidas sobre o PWS. Socorro!

Posted by zanelati2002 on 19/01/2003, 12:52 in ASP

Claro que sei que estes codigos se encontra na pagina mais legal da net, mais o que eu quero saber como tenho que fazer a configuração do servidor o programa que tenho que ter para rodar o asp onde conseguir tudo isto bem detalhado


#110111 Erro com Script

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

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


#110123 Erro com Script

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

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


#110104 Erro com Script

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

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


#110117 Erro com Script

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

Responda rapido e quando for assim

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

copie o codigo todo


#48634 Formulario me ajudem

Posted by zanelati2002 on 25/02/2003, 14:28 in HTML, CSS e Metodologias

O que quero fazer é um formulario cuja os campos tem nome, rua, etc e tem um campo chamado imagem seria o gif da pessoa ou seja um desenho semelhante a pessoa, esta pagina se encontra em outra pagina não na do formulario como que eu faço para que a figura que a pessoa escolher aparecer no campo ou o nome da figura algo que faça com que a pessoa vira o nome da figura e complicado explicar mais é igual a da http://www.amigoswm.com na seçao emnbros destaque


#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


#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


#125550 Login Cadastro Com Autenticaçao

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

Sera que hoje vou conseguir fazer o que quero em meu site

vou tentar explicar melhor peguei o codigo http://www.vipcodigo...asp?codfonte=11 e um login com cadstro e autenticacao o que eu queria era mostrar na minha pagina index, os usuarios que estao online quando se logarem, igual a do http://www.amigoswm.com sei que nao e tao simples vai voce e hacker nisto developer me ajuda ainda estou online


#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


#123719 Login Cadastro Com Autenticaçao

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

vou tentar explicar melhor peguei o codigo http://www.vipcodigo...asp?codfonte=11 e um login com cadstro e autenticacao o que eu queria era mostrar na minha pagina index, os usuarios que estao online quando se logarem, igual a do http://www.amigoswm.com sei que nao e tao simples vai voce e hacker nisto developer me ajuda ainda estou online


#50831 Janela De Confirmação Em Pop

Posted by zanelati2002 on 01/03/2003, 15:36 in HTML, CSS e Metodologias

como faço ou o que se usa para que quando o cliente preencher o cadastro possa sair uma janela pop confirmando seu cadastro


#51213 Janela De Confirmação Em Pop

Posted by zanelati2002 on 02/03/2003, 08:00 in HTML, CSS e Metodologias

Valeu mais uma vez por ter exclarecido minhas duvidas


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


#85672 Forum Em Asp

Posted by zanelati2002 on 26/04/2003, 20:11 in ASP

Bom estou querendo fazer um forum em asp simples mais legal peguei um codigo de um determinado post, agora o que devo fazer meu provedor não aceita asp, sera que existe algum gratuito que seja em ingles tem mais uma coisa é so colocar ele na rede em ftp com uma pagina html normal me ajudem a fazer isto, como vocês tem me ajudado


#120482 User Online Do Chacal

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

Mostrar a quantidade de user ja cadastrado


#120568 User Online Do Chacal

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

ninguem sabe como fazer isto


#86147 Forum Em Asp

Posted by zanelati2002 on 27/04/2003, 10:17 in ASP

Não sei se alguem conhece a hackeclub tem um forum lá legal onde deve achar um parecido ou igual al dele pois todos os que estou colocando no servidor é muito grande


#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


#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


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


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



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