Olha Amigo, recomendo que você pegue a ultima versão da virtuastore, ela ja está na versão 6.3.
http://br.groups.yah...up/virtuastore/
So entrar no grupo de discussão e pegar o arquivo...
caio.jrspassapan's Content
There have been 3 items by caio.jrspassapan (Search limited from 28/04/2023)
#888125 Loja Virtual - Virtuastore 1.2, Administrador
Posted by
on 20/12/2007, 12:03
in
Dúvidas sobre Scripts Prontos de ASP
#888124 Problemas Com A Loja Virtual Store 1.2
Posted by
on 20/12/2007, 12:03
in
Dúvidas sobre Scripts Prontos de ASP
Olha Amigo, recomendo que você pegue a ultima versão da virtuastore, ela ja está na versão 6.3.
http://br.groups.yah...up/virtuastore/
So entrar no grupo de discussão e pegar o arquivo...
http://br.groups.yah...up/virtuastore/
So entrar no grupo de discussão e pegar o arquivo...
#871164 Problemas Com Esqueci Minha Senha.
Posted by
on 18/09/2007, 00:06
in
ASP
Fala galera.
Peguei aqui no forum um código de envio de senha para quem se esqueceu da mesma. Porém no tópico não tem nenhuma fincalização que se possa entender. Eu tentei de tudo e só da erro de página não pode ser exibida. Veja como esta o codigo.
A página do Codigo.
Alguém me ajuda.
Peguei aqui no forum um código de envio de senha para quem se esqueceu da mesma. Porém no tópico não tem nenhuma fincalização que se possa entender. Eu tentei de tudo e só da erro de página não pode ser exibida. Veja como esta o codigo.
<html>
<head>
<title>Esqueci Minha Senha</title>
<script language=JavaScript1.2>
function valida(){
var email = document.formcontato.email.value;
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="center">
<FORM action=teste.asp id=formcontato method=GET name=enviar>
<font face="Verdana" size="1">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>
</body>
</html>A página do Codigo.
<%
Option Explicit
Dim ConnectString, conn, objMessage, objConfig, strBody, login, email, Enviar, rs, pasta
pasta = "D:\hshome\jrspassa\pasta\pasta\pasta.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&pasta&";"
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 objConfig = Server.CreateObject("CDO.Configuration")
objConfig.Fields.Item(sch & "sendusing") = 2
objConfig.Fields.Item(sch & "smtpauthenticate") = 1
objConfig.Fields.Item(sch & "smtpserver") ) = "mail.provedor.com.br"
objConfig.Fields.Item(sch & "smtpserverport") = 25
objConfig.Fields.Item(sch & "smtpconnectiontimeout") = 120
objConfig.Fields.Item(sch & "sendusername") = "email@provedor.com.br"
objConfig.Fields.Item(sch & "sendpassword") ) = "senha"
objConfig.Fields.Update
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
objMessage.From = "email@provedor.com.br"
objMessage.To = rs("email")
objMessage.Subject = "teste de email"
htmlText = "Seu login é: " & rs("username") & " e sua senha é: " & rs("password")
objMessage.HTMLBody = htmlText
On Error Resume Next
objMessage.Send
Set objMessage = Nothing
Set objConfig = Nothing
response.write ("Email Enviado com Sucesso")
End If
rs.close
set rs = nothing
conn.close
set conn = nothing
%>Alguém me ajuda.
