Chiedo un piccolo aiutino a capire l motivo per cui nn viene processato lo script tra queste due pagine.. non riesco a trovare l errore.
testatelo su questa pagina inserendo in utente e passw :admin
www.thenakedclothing.com/index.asp
a me viene visualizzato un errore del server
cmq lo script delle pagine è questo
index.asp
<%
' CONTROLLA SE I DATI DI LOGIN INSERITI SONO CORRETTI
' USERNAME AMMINISTRATORE
username = "admin"
' PASSWORD AMMINISTRATORE
password = "admin"
IF Lcase(Request.Form("username")) = Lcase(username) and Lcase(Request.Form("password")) = Lcase(password) then
' I DATI SONO ESATTI E SI VIENE IDENTIFICATI COME AMMINISTRATORE
' E PORTATI NELLA PAGINA "GESTIONE_NEWSLETTER.ASP"
session("amministratore") = true
Response.Redirect "Gestione_Newsletter.asp"
End if
%>
<html>
<head>
<title>GESTIONE NEWSLETTER</title>
</head>
<body>
<p align="center"> </p>
<p align="center"><font size="4" face="Verdana">Gestione Newsletter!</font></p>
<form method="POST" action="index.asp">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="39%">
<tr>
<td width="50%"><font face="Verdana" size="2">Username:</font></td>
<td width="50%"><input type="text" name="username" size="20"></td>
</tr>
<tr>
<td width="50%"><font face="Verdana" size="2">Password:</font></td>
<td width="50%"><input type="password" name="password" size="20"></td>
</tr>
<tr>
<td width="100%" colspan="2" height="5">
</td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center"><input type="submit" value="Invia" name="B1"><input type="reset" value="Reimposta" name="B2"></td>
</tr>
</table>
</center>
</div>
</form>
<p align="center"> </p>
</body>
</html>
ed invece gestione nwsletter è questa:
<%
' CONTROLLA SE SI E' IDENTIFICATI
IF session("amministratore")<>true then
Response.Redirect "index.asp"
End IF
%>
<html>
<head>
<title>GESTIONE NEWSLETTER</title>
</head>
<body>
<font size="4" face="Verdana">> Invia newsletter!</font></p>
<%
' LEGGE QUELLO CHE DEVE FARE
operazione = Request.QueryString("tipo")
' PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
' OPERAZIONE = INVIA IL MESSAGGIO DI NEWSLETTER
IF operazione = "invia" then
' VERIFICA CHE I CAMPI SIANO STATI COMPILATI
IF Request("oggetto") <> "" and Request("testo") <> "" then
' APRE LA CONNESSIONE AL DATABASE E PRELEVA LE EMAIL DELLA NEWSLETTER
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Email_Newsletter"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
IF not RecSet.Eof then
' INDIRIZZO EMAIL NOSTRO
mittente = "email@sito.com"
Do until Recset.eof
' PRELEVA L'EMAIL DELL'UTENTE DAL NOSTRO DATABASE
destinatario = RecSet("email")
' PRELEVA IL TESTO DEL MESSAGGIO DA INVIARE
testo = Request.Form("testo")
' PRELEVA L'OGGETTO DEL MESSAGGIO DA INVIARE
oggetto = Request.Form("oggetto")
' INVIA IL MESSAGGIO
Set email = CreateObject("CDONTS.NewMail")
email.From = mittente
email.To = destinatario
email.Subject = oggetto
' FORMATO EMAIL
email.BodyFormat = Request.Form("formato")
email.MailFormat = Request.Form("formato")
email.Body = testo
' INVIA L'EMAIL E..
email.Send
Set email = nothing
' PASSA AVANTI...
RecSet.Movenext
loop
End If
RecSet.Close
Conn.close
Set RecSet = Nothing
Set Conn = Nothing
' VISUALIZZA UN MESSAGGIO DI CONFERMA:
%>
<hr>
<p align="center"><font face="Verdana" size="4">Messaggio inviati
correttamente!</font></p>
<hr>
<%
Else
%>
<hr>
<p align="center"><font face="Verdana" size="4">Compila tutti i campi!</font></p>
<hr>
<%
End IF
Else
%>
<form method="POST" action="Gestione_Newsletter.asp?tipo=invia">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="26%"><font face="Verdana" size="2">Oggetto messaggio:</font></td>
<td width="74%"><font face="Verdana" size="2"><input type="text" name="oggetto" size="20"></font></td>
</tr>
<tr>
<td width="26%"><font face="Verdana" size="2">Testo messaggio:</font></td>
<td width="74%"><font face="Verdana" size="2"><textarea rows="6" name="testo" cols="67"></textarea></font></td>
</tr>
<tr>
<td width="26%"><font face="Verdana" size="2">Formato e-mail:</font></td>
<td width="74%"><select size="1" name="formato">
<option selected value="1">Testo</option>
<option value="0">HTML</option>
</select></td>
</tr>
<tr>
<td width="26%"><font face="Verdana" size="2">Numero iscritti:</font></td>
<%
' CONTA GLI ISCRITTI ALLA NEWSLETTER
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT Count(*) FROM Email_Newsletter"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
' CONTA GLI ISCRITTI
IF not RecSet.Eof then
Iscritti = RecSet(0)
Else
Iscritti = 0
End if
%>
<td width="74%"><font face="Verdana" size="2"><%=Iscritti%></font></td>
<%
RecSet.Close
%>
</tr>
<tr>
<td width="100%" colspan="2"><input type="submit" value="Invia Newsletter!" name="B1"><input type="reset" value="Reimposta" name="B2"></td>
</tr>
</table>
</form>
</p>
<%
End IF
Conn.Close
Set Conn = Nothing
Set RecSet = Nothing
%>
</body>
</html>
Rispondi quotando
