<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Esqueci Minha Senha</title> <script src="icons/script.js"></SCRIPT> <LINK href="icons/padrao.css" rel=stylesheet type=text/css> <STYLE type=text/css>#divUpControl { HEIGHT: 13px; LEFT: 518px; POSITION: absolute; TEXT-ALIGN: right; TOP: 340px; WIDTH: 12px; Z-INDEX: 1 } #divDownControl { HEIGHT: 12px; LEFT: 519px; POSITION: absolute; TEXT-ALIGN: right; TOP: 573px; WIDTH: 11px; Z-INDEX: 1 } #divContainer { CLIP: rect(0px 163px 232px 0px); HEIGHT: 232px; LEFT: 353px; OVERFLOW: hidden; POSITION: absolute; TOP: 346px; VISIBILITY: hidden; WIDTH: 163px } #divContent { LEFT: 0px; POSITION: absolute; TOP: 0px } </STYLE> <script language=javascript> <!--Abre function AbreJanela(pagina,janela,w,h,scrolling,top,left) { if (!scrolling) { scrolling='auto' } if (top) { top=',top='+top } if (left) { left=',left='+left } resultado = window.open(pagina,janela,'width='+w+',height='+h+',scrollbars='+scrolling+',toolbar=no,location=no,status=no,menubar=no,resizable=no'+top+left)} --> </SCRIPT> <body background="../zanelati_r41_c7.gif"> <script language=JavaScript1.2> function valida(){ var login = document.formcontato.login.value; var email = document.formcontato.email.value; if ( login == '' ){ alert('Campo login em branco.'); document.formcontato.login.focus(); return false; } if ( email == '' ){ alert('Campo email em branco.'); document.formcontato.email.focus(); return false; } formcontato.envia.disabled=true; return true; } </SCRIPT> <TABLE align=center width="296"> <TR> <TD class=TD width="274"> <p align="left"><font face="Verdana" size="1">Esqueci minha Senha me mande por e-mail</font> <p> </p> <FORM action=enviar_senha.asp id=formcontato method=GET name=enviar onsubmit="return valida();" target="x"><font face="Verdana" size="1">Login de Cadastro:<BR><INPUT class=campo maxLength=20 name=login size=27><BR>E-mail de Cadastrado:<BR><INPUT class=campo maxLength=100 name=email size=26><BR><BR><INPUT class=botao2 name=envia type=submit value=Enviar> <BR></font></FORM></TD></TR> </TABLE> <p><font color="#FFFFFF" size="1" face="Verdana">1</font></p> <div align="center"> <center> <table border="0" width="62%" cellspacing="0" cellpadding="0"> <tr> <td width="100%"> <p align="center"><font face="Verdana" size="1">Obs: Caso não consiga se lembrar do seu login de cadastro ou senha, </font><font face="Verdana" size="2"> me mande um <a href="mailto:sitedozanelati@ig.com.br"><font color="#FF0000">e-mail </font></a>ou vá até <a href="fale_conosco.asp" target="x"><font color="#FF0000">fale conosco.</font></a></font></td> </tr> </table> </center> </div> </body> </html>
- Fórum WMO
- → zanelati2002's Content
zanelati2002's Content
There have been 101 items by zanelati2002 (Search limited from 25/04/2023)
#265478 Enviu De Senha Esquecida
Posted by zanelati2002 on 28/12/2003, 10:19 in ASP
#265470 Enviu De Senha Esquecida
Posted by zanelati2002 on 28/12/2003, 10:07 in ASP
#265467 Mensagem De Agradecimento
Posted by zanelati2002 on 28/12/2003, 10:03 in ASP
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%> <%=surname%></b></p> <p><b>Você agora possui um nome de usuário <%=username%> e está logado!</b></p> <p><a href="index.asp">Clique aqui para voltar á pá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 "<%=username%>" already exists.</b></p> <p><a href="javascript:self.history.go(-1)">Please try again</a></p> </font> </body> </html> <% rsUser.close set rsUser = nothing conn.close set conn = nothing Response.end %> <%elseif calltype = "invalidchars" then%> <p><b>Sorry, your username cannot contain any quotation marks.</b></p> <p><a href="javascript:self.history.go(-1)">Please try again</a></p> </font> </body> </html> <%Response.end%> <%end if End Function%>
#265453 Enviu De Senha Esquecida
Posted by zanelati2002 on 28/12/2003, 09:45 in ASP
<% Dim ConnectString, conn ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("siteusers.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnectString email=request.querystring("email") set rs = conn.execute("select * from users where email='"&email&"'") If rs.EOF = True Then Response.Write "Email inválido!" Else Set meuMail = CreateObject("CDONTS.NewMail") sCorpo = "Seu login é: " & rs("username") & " e sua senha é: " & rs("password") meuMail.From = "sitedozanelati@ig.com.br" meuMail.To = rs("email") meuMail.Subject = "Envio de Senha" meuMail.BodyFormat = 0 meuMail.MailFormat = 0 meuMail.Body = sCorpo meuMail.Send Set meuMail = Nothing %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Confirma Mensagem</title> </head> <body background="../zanelati_r41_c7.gif"> <div align="center"> <center><table border="0" width="55%" cellspacing="0" cellpadding="0"> <tr> <td width="100%" align="center"> <font face="Verdana" size="2" color="#FFFFFF">1</font></td> </tr> <tr> <td width="100%" align="center"> <p align="center"><font face="Verdana" size="2" color="#000000">Sua Senha Foi enviada para Seu e-mail com Sucesso</font></td> </tr> <tr> <td width="100%" align="center"><font size="2" face="Verdana" color="#000000">Lembramos que Sua Senha é de Responsabilidade Tua.</font></td> </tr> <tr> <td width="100%" align="center"><font color="#FFFFFF" size="2" face="Verdana">1</font></td> </tr> </table> </center> </div> </body> </html> <% End If rs.close set rs = nothing conn.close set conn = nothing %>
#264876 Alguem Pode Me Dar Uma Dica
Posted by zanelati2002 on 27/12/2003, 16:22 in ASP
#264846 Sistema Newsletter
Posted by zanelati2002 on 27/12/2003, 15:54 in ASP
Erro de tempo de execução do Microsoft VBScript erro '800a0046'
Permissão negada
/sitedozanelati/mail/enviar.asp, line 25
#264739 Alguem Pode Me Dar Uma Dica
Posted by zanelati2002 on 27/12/2003, 14:02 in ASP
<% set conn = createobject("AdoDb.connection") constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("db/guest.mdb") conn.open constr set rs = conn.execute("select top 10 * from assinar order by site desc") do while not rs.eof response.write("<a href='"&rs("site")&"'>"&rs("site")&"<br>") rs.movenext loop %>
#263453 Sistema De Login
Posted by zanelati2002 on 25/12/2003, 10:10 in ASP
que é nesta linha line 226
exatamente em cima explica certinho leia mais uma vez e valeu por ter me ajudado naqueles codigos
#263449 Sou Aprendiz...
Posted by zanelati2002 on 25/12/2003, 09:48 in ASP
http://www.libihost....elati/index.asp
#263447 Sistema De Login
Posted by zanelati2002 on 25/12/2003, 09:46 in ASP
#263443 So Mais Esta A Quem Souber
Posted by zanelati2002 on 25/12/2003, 09:34 in ASP
Site inclusão visitas visitar Site
Isto seria
nome do site data da inlcusão numero de visitas visitar
Como faço para mostrar nesta ordem para o usuario a conexão é
<% Set Conexao = CreateObject("ADODB.CONNECTION") conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath(db) ConexaoAberta = FALSE Sub AbreConexao() if not ConexaoAberta then Conexao.Open ConStr ConexaoAberta = True end if end sub Sub FechaConexao() if ConexaoAberta then Conexao.close ConexaoAberta = False end if end sub %>
no banco de dados os nome das tabelas são
nome, dia, cliques, url como mostrar emcima
#263439 Como Fazer Isto Me Confundo
Posted by zanelati2002 on 25/12/2003, 09:23 in ASP
<%
set conn = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("db/guest.mdb")
conn.open constr
set rs = conn.execute("select top 10 * from assinar order by site desc")
do while not rs.eof
response.write(rs("site")&"<br>")
rs.movenext
loop
%>
#263438 Sistema Criado Por Crazy
Posted by zanelati2002 on 25/12/2003, 09:18 in ASP
#263425 Como Fazer Isto Me Confundo
Posted by zanelati2002 on 25/12/2003, 08:21 in ASP
<%
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
Microsoft JET Database Engine erro '80040e10'
No value given for one or more required parameters.
/sitedozanelati/login2/enviar_senha.asp, line 8
e também ele so esta buscando o login no banco de dados e precisa também buscar o email no banco de dados login e email para ser mandados para o email do usuario o codigo feito pelo crazy se encontra aqui
<% Dim ConnectString, conn ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("siteusers.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnectString email=request.querystring("email") set rs = conn.execute("select * from users where email='"&email&"'") If rs.EOF = True Then Response.Write "Email inválido!" Else Set meuMail = CreateObject("CDONTS.NewMail") sCorpo = "Seu login é: " & rs("username") & " e sua senha é: " & rs("password") meuMail.From = "sitedozanelati@ig.com.br" meuMail.To = rs("email") meuMail.Subject = "Envio de Senha" meuMail.BodyFormat = 0 meuMail.MailFormat = 0 meuMail.Body = sCorpo meuMail.Send Set meuMail = Nothing %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Confirma Mensagem</title> </head> <body background="../zanelati_r41_c7.gif"> <div align="center"> <center><table border="0" width="55%" cellspacing="0" cellpadding="0"> <tr> <td width="100%" align="center"> <font face="Verdana" size="2" color="#FFFFFF">1</font></td> </tr> <tr> <td width="100%" align="center"> <p align="center"><font face="Verdana" size="2" color="#000000">Sua Senha Foi enviada para Seu e-mail com Sucesso</font></td> </tr> <tr> <td width="100%" align="center"><font size="2" face="Verdana" color="#000000">Lembramos que Sua Senha é de Responsabilidade Tua.</font></td> </tr> <tr> <td width="100%" align="center"><font color="#FFFFFF" size="2" face="Verdana">1</font></td> </tr> </table> </center> </div> </body> </html> <% End If rs.close set rs = nothing conn.close set conn = nothing %>
o erro esta na linha 8
set rs = conn.execute("select * from users where email='"&email&"'")
#263416 Sistema De Login
Posted by zanelati2002 on 25/12/2003, 07:15 in ASP
'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> <p> </font> <font face="Verdana" size=1> <p><b>Você esqueceu de preencher os seguintes Dados:</b></p> <%for count = 0 to 7%> <%if notfilled(count) <> "" then%> <b><%=notfilled(count)%></b><br> <%end if%> <%next%> <p><a href="javascript:self.history.go(-1)">Tente Novamente</a></p> </font> <font face="Verdana" size=1> <%if calltype = "confirm" then%> <p><b>Sua confirmação de Senha Tem que ser igual a sua Senha</b></p> <p><a href="javascript:self.history.go(-1)">Tente Novamente</a></p> </font> <font face="Verdana" size=1> <p><b>Sua senha deve ter entre 5 e 15 caracteres</b></p> <p><a href="javascript:self.history.go(-1)">Tente Novamente</a></p> <p><b>Já temos cadastrado <%=username%> em nosso sistema</b></p> <p><a href="javascript:self.history.go(-1)">Tente Novamente</a></p> <p><b>Seu username não pode conter caracteres especiais</b></p> <p><a href="javascript:self.history.go(-1)">Tente Novamente</a></p> </html> <% rsUser.close set rsUser = nothing conn.close set conn = nothing %> <% end if End Function%> <% Function getstarsign() dobmonth = Request.Form("birth_month") dobday = Request.Form("birth_day") Select Case dobmonth Case 1 if dobday < 21 then starsign = "Capricorn" else starsign = "Aquarius" end if Case 2 if dobday < 20 then starsign = "Aquarius" else starsign = "Pisces" end if Case 3 if dobday < 21 then starsign = "Pisces" else starsign = "Aries" end if Case 4 if dobday < 21 then starsign = "Aries" else starsign = "Taurus" end if Case 5 if dobday < 22 then starsign = "Taurus" else starsign = "Gemini" end if Case 6 if dobday < 22 then starsign = "Gemini" else starsign = "Cancer" end if Case 7 if dobday < 24 then starsign = "Cancer" else starsign = "Leo" end if Case 8 if dobday < 24 then starsign = "Leo" else starsign = "Virgo" end if Case 9 if dobday < 24 then starsign = "Virgo" else starsign = "Libra" end if Case 10 if dobday < 24 then starsign = "Libra" else starsign = "Scorpio" end if Case 11 if dobday < 23 then starsign = "Scorpio" else starsign = "Sagittarius" end if Case 12 if dobday < 22 then starsign = "Sagittarius" else starsign = "Capricorn" end if End Select End Function %> <%Function signuperror()%> <%Response.end End Function%> <%Function errorfunction(calltype)%> <%Response.end%> <%elseif calltype = "length" then%> <%Response.end%> <%elseif calltype = "badusername" then%> <% rsUser.close set rsUser = nothing conn.close set conn = nothing Response.end %> <%elseif calltype = "invalidchars" then%> <%Response.end%> <%end if End Function%>alguem pode me ajudar com isto
#136970 Login Cadastro Com Autenticaçao
Posted by zanelati2002 on 05/07/2003, 16:28 in ASP
obrigado
#131072 Ratio De Banner
Posted by zanelati2002 on 28/06/2003, 16:58 in ASP
temos o seguinte problema
'Atenção não deixar os dois componentes ativos, somente um !
Smtp = "smtp.ig.com.br" 'Servidor SMTP
Cdonts = "on" 'Componente Cdonts caso desativado deixar em off caso ativado deixar em on
AspMail = "off" 'Componente ASPMAIL caso desativado deixar em off caso ativado deixar em on
congiguracoa de smtp sera que a brinkers tem isto ou tem alguma coisa que posso fazer para mudar esta configuracao alguem pode me ajudar
#126670 Como Faço Para Mudar Isto
Posted by zanelati2002 on 22/06/2003, 17:14 in ASP
'Caso você não sabia o caminho físico do banco de dados, mas sabe que ele está,
'No mesmo direitório que as páginas, habilite essa linha e trave a outra com '
CaminhoDB = Server.MapPath("/asp/xchanger/xchanger.mdb") 'Atenção sem o sistema tiver em um subdiretório, especificar o subdiretório, Ex: subdiretório asp, então /asp/xchanger.mdb
'CaminhoDB = "C:\sites\divulgue\www\xchanger.mdb"
'Caso o seu servidor não suporte o método abaixo de conexão libere o outro
'método e trave o que está liberado
StringDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
'StringDB = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="
nao sei fazer a configuracao para meu banco de dados ele se chama xchanger.mdb e esta na pasta dados
#126290 Onde Posso Conseguir
Posted by zanelati2002 on 22/06/2003, 10:01 in ASP
#126272 Onde Posso Conseguir
Posted by zanelati2002 on 22/06/2003, 09:42 in ASP
#126269 Sistemas De Buscas
Posted by zanelati2002 on 22/06/2003, 09:38 in ASP
#126254 Sistemas De Buscas
Posted by zanelati2002 on 22/06/2003, 08:52 in ASP
#126239 Alguem Desifra Erros
Posted by zanelati2002 on 22/06/2003, 07:56 in ASP
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.
/sitedozanelati/forum/done.asp, line 101
#126236 Chat E Forum
Posted by zanelati2002 on 22/06/2003, 07:24 in ASP
- Fórum WMO
- → zanelati2002's Content
- Privacy Policy
- Regras ·