Eccomi, appuntamento mattutino e qualcuno magari ha già il dolore di pancia vedendomi rompere continuamente le scatole. Un giorno ripagherò quanto gentilmente mi è stato dato FREE!
Dopo (con l'aiuto vostro) aver sistemato e messo in funzione un o script semplice, mi addentro a qualcosa di più complicato ma più completo (almeno così dovrebbe essere.
Sul sito di aspcode.it, e credo sia presente anche tra gli script free di mrw, ho scaricato un tool che da la possibilità di proteggere le password, registrare utenti che poi hanno la possibilità di accedere al proprio pannello di controllo recuperare la password smarrita ecc. ecc.
sembra funzionare bene ma, come al solito mi ritrovo con alcuni problemi, ecco l'errore:
lo script è il seguente:
stavolta cosa mi sono perso? come posso evitare l'errore?
sono impallato, nn riesco ad andare avanti
Si accettano miracoli!
Grazie
Dopo (con l'aiuto vostro) aver sistemato e messo in funzione un o script semplice, mi addentro a qualcosa di più complicato ma più completo (almeno così dovrebbe essere.
Sul sito di aspcode.it, e credo sia presente anche tra gli script free di mrw, ho scaricato un tool che da la possibilità di proteggere le password, registrare utenti che poi hanno la possibilità di accedere al proprio pannello di controllo recuperare la password smarrita ecc. ecc.
sembra funzionare bene ma, come al solito mi ritrovo con alcuni problemi, ecco l'errore:
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/public/registrazione_e_gestione_utenti/recupera_password.asp, line 67
800401f3
lo script è il seguente:
Codice:
<%
'------------------------------------------------------------------------------------
'Copyright (C) 2004 Demetrio G. Milea
'
'This program is free software; you can redistribute it and/or
'modify it under the terms of the GNU General Public License
'as published by the Free Software Foundation; either version 2
'of the License, or (at your option) any later version.
'
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'GNU General Public License for more details.
'
'A copy of the license may be found at www.fsf.org (Free Software Foundation)
'or inside the folder registrazione_e_gestione_utenti
'------------------------------------------------------------------------------------
%>
<!--#include file="inc_common.asp" -->
<!--#include file="inc_viewuser.asp" -->
<%
If Request.QueryString("step") = "2" Then
Response.Redirect("recupera_password.asp?step=3&userCode=" & getUserCode(Request.Form("username"), Request.Form("email")))
ElseIf Request.QueryString("step") = "3" AND Request.QueryString("userCode") <> "" Then
strFromName = pageTitle & " Webmaster"
strFromEmail = adminEmail
strRecipientsEmail = rs_viewuser("email")
strRecipientsName = rs_viewuser("nome")
strSubject = pageTitle & " Password Reminder"
strMessage = "------------------------------------------" & vbCrLf & _
strRecipientsName & ", Le informazioni da lei richieste:" & vbCrLf & vbCrLf & _
"Username: " & rs_viewuser("name") & vbCrLf & _
"Password: " & rs_viewuser("pass") & vbCrLf & vbCrLf & _
"Grazie per averci scelto," & vbCrLf & pageTitle & " Webmaster"
Select Case LCase(tipoMail)
Case "aspemail"
Set objNewMail = Server.CreateObject("Persits.MailSender")
objNewMail.Host = mailServer
objNewMail.FromName = strFromName
objNewMail.AddReplyTo strFromEmail
objNewMail.From = strFromEmail
objNewMail.AddAddress strRecipientsEmail, strRecipientsName
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
On Error Resume Next '## Ignora errore
objNewMail.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
End if
Case "aspmail"
Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")
objNewMail.FromName = strFromName
objNewMail.FromAddress = strFromEmail
'objNewMail.AddReplyTo = strFromEmail
objNewMail.RemoteHost = mailServer
objNewMail.AddRecipient strRecipientsName, strRecipientsEmail
objNewMail.Subject = strSubject
objNewMail.BodyText = strMessage
On Error Resume Next '## Ignore Errore
SendOk = objNewMail.SendMail
If not(SendOk) <> 0 Then
Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & objNewMail.Response & "</li>"
End if
Case "cdonts"
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.BodyFormat = 1
objNewMail.MailFormat = 0
On Error Resume Next '## Ignora Errore
objNewMail.Send strFromEmail, strRecipientsEmail, strSubject, strMessage
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
End if
On Error Resume Next '## Ignora Errore
Case "cdosys"
Set objMessage = CreateObject("CDO.Message")
objMessage.Sender = strFromEmail
objMessage.TextBody = strMessage
objMessage.To = strFromEmail
objMessage.Subject = strSubject
objMessage.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
End if
On Error Resume Next '## Ignore Errors
Case "chilicdonts"
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
On Error Resume Next '## Ignora Errore
objNewMail.Host = mailServer
objNewMail.To = strRecipientsEmail
objNewMail.From = strFromEmail
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
objNewMail.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
End if
On Error Resume Next '## Ignora Errore
Case "jmail"
Set objNewMail = Server.CreateObject("Jmail.smtpmail")
objNewMail.ServerAddress = mailServer
objNewMail.AddRecipient strRecipientsEmail
objNewMail.Sender = strFromEmail
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
objNewMail.Priority = 3
On Error Resume Next '## Ignora Errore
objNewMail.Execute
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
End if
Case "jmail4"
Set objNewMail = Server.CreateObject("Jmail.Message")
'objNewMail.MailServerUserName = "myUserName"
'objNewMail.MailServerPassword = "MyPassword"
objNewMail.From = strFromEmail
objNewMail.FromName = strFromName
objNewMail.AddRecipient strRecipientsEmail, strRecipientsName
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
On Error Resume Next '## Ignore Errors
objNewMail.Send(mailServer)
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
End if
Case "smtp"
Set objNewMail = Server.CreateObject("SmtpMail.SmtpMail.1")
objNewMail.MailServer = mailServer
objNewMail.Recipients = strRecipientsEmail
objNewMail.Sender = strFromEmail
objNewMail.Subject = strSubject
objNewMail.Message = strMessage
On Error Resume Next '## Ignore Errors
objNewMail.SendMail2
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
End if
End Select
Set objNewMail = Nothing
On Error Goto 0
mailSent = True
ElseIf Request.QueryString("step") = "3" AND Request.QueryString("userCode") = "" Then
mailSent = False
emptyValue = True
Else
mailSent = False
End If
%>
<% Server.Execute("header.asp") %>
<title><%=pageTitle%> - Recupera Password</title>
<% If mailSent = False Then %>
<% If emptyValue = True Then %>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<p align="center">Combinazione Username/Email non valida</p>
<% End If %>
<form name="pwForm" method="post" action="recupera_password.asp?step=2">
<table width="412" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="35" colspan="2" align="center"><strong><font size="5">Inserisci
username e email</font></strong></td>
</tr>
<tr>
<td colspan="2" height="4"></td>
</tr>
<tr>
<td width="30%">Username</td>
<td width="70%"><input name="username" type="text" id="username" size="35"></td>
</tr>
<tr>
<td colspan="2" height="4"></td>
</tr>
<tr>
<td width="30%">Email</td>
<td width="70%"><input name="email" type="text" id="email" size="35"></td>
</tr>
<tr>
<td colspan="2" height="4"></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="Submit" value="Submit">
<input name="Reset" type="reset" id="Reset" value="Reset"></td>
</tr>
</table>
</form>
<% Else %>
<p align="center">Username e Password ti sono state spedite per email.</p>
<% End If %>
<% Server.Execute("footer.asp") %>
stavolta cosa mi sono perso? come posso evitare l'errore?
sono impallato, nn riesco ad andare avanti
Si accettano miracoli!
Grazie