Ecco a te gran Maestro!!!!
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/account.asp" -->
<style type="text/css">
td.loading { text-align: Center; color: #778899; font: Bold 10px Verdana; }
td.barra { background-color: #F9F9F9; border: Solid 1px #CCCCCC; }
#barra { background-color: #00ff33; }
#percentuale { text-align: Center; color: #778899; font: Bold 10px Verdana; }
</style>
<script language="javascript" type="text/javascript">
<!--
var espandi = 0;
function Loading() {
barra.style.width = espandi;
espandi++;
percentuale.innerHTML = Math.round(espandi / 2) + "%";
if (espandi != 200) {
window.setTimeout("Loading(), 10");
}
}
function Go() {
location.href = "homepage.html";
}
window.setTimeout("Go()", 5000);
//-->
</script>
<%
Dim utente__MMColParam1
utente__MMColParam1 = "&"
If (Request.QueryString("mail") <> "") Then
utente__MMColParam1 = Request.QueryString("mail")
End If
%>
<%
Dim utente
Dim utente_numRows
Set utente = Server.CreateObject("ADODB.Recordset")
utente.ActiveConnection = MM_account_STRING
utente.Source = "SELECT * FROM amministratori WHERE mail = '" + Replace(utente__MMColParam1, "'", "''") + "'"
utente.CursorType = 0
utente.CursorLocation = 2
utente.LockType = 1
utente.Open()
utente_numRows = 0
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Inviare e-mail con l' oggetto CDOSYS</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<%
Dim nome, cognome, mail, username, password
nome = (utente.Fields.Item("nome").Value)
cognome = (utente.Fields.Item("cognome").Value)
mail = Request.QueryString("mail")
username = (utente.Fields.Item("username").Value)
password = (utente.Fields.Item("password").Value)
%>
<%
if mail = (utente.Fields.Item("mail").Value) Then
%>
<%
Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
mittente= "FantacalcioKrimisa.it"
destinatario = (utente.Fields.Item("mail").Value)
oggetto = "Recupero Chiavi"
messaggio = "<p>Gentile utente "& nome &" "& cognome &" queste sono le sue chiavi d'accesso all'area riservata assegnata dalla redazione di fantacalciokrimisa.it:</p> <p>Username: "& username &"</p><p>Password: "& password &"</p>Custodisca gelosamente queste informazioni e per qualsiasi tipo di assistenza non esiti a contattare la nostra redazione."
With iMsg
'Assegnazione delle configurazioni
Set .Configuration = iConf
.From = mittente
.To = destinatario
.Subject = oggetto
.HTMLBody = messaggio
.Send()
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
Else
Response.Redirect "errore.asp"
End if
%>
</head>
<body bgcolor="#FFFFFF" topmargin="15" onLoad="Loading()" scroll="No">
<p align="center"><img src="images/LOGO.JPG" width="300" height="145"></p>
<table width="222" align="center" cellpadding="1" cellspacing="10">
<tr>
<td class="loading">...Sto inviando i dati!</td>
</tr>
<tr>
<td class="barra"><div id="barra"></div></td>
</tr>
<tr>
<td><div id="percentuale"></div></td>
</tr>
</table>
</body>
</html>
<%
utente.Close()
Set utente = Nothing
%>
