Recupera password con cdosys

[Nicola4600]

Ciao a tutti, stò provando a far funzionare una pagina di recupero password smarrita.
Questo è il secondo approccio che sto facendo essendo che col primo non ho risolto niente, ho deciso di cambiare tutto. Anche in questo caso i problemi non mancano. La pagina dovrebbe recuperare i dati da una tabella nominata Members contenente i campi Member_id, M_Nome, M_Email, M_Password: non funziona niente.
Gli errori sono dei più svariati: non mi sembra che vengano confrontati i dati inseriti nel form con quelli presenti nel database access (la connessione funziona), inoltre provando in locale mi si presenta l' errore indicante la mancanza di destinatario. Ho inserito alcuni messaggi che dovrebbero comparire nel form in caso che l' operazione sia andata a buon fine oppure no e neanche quelli si vedono.
Non sò come fare. Sarei grato a chiunque possa fornirmi delucidazioni al riguardo.
Grazie in anticipo.
QUI SOTTO POSTO GLI ORRORI DELLA PAGINA:
<CODE>


<% set my_conn= Server.CreateObject("ADODB.Connection")
my_conn.Open cString
if Request.QueryString("mode") = "doit" then
Dim objMessage, objConfig
Set objMessage = CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "davederequale"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update
End With
Set objMessage.Configuration = objConfig
MailOrder = "info@mioxsitox.it" 'Indirizzo mittente
strSender = MailOrder
strFromName = pageTitle & " Il mio titolo"
strFromEmail = adminEmail
strRecipientsEmail = Request.Form("email")
strRecipientsName = Request.Form("Name")
strSubject = pageTitle & " Invio password"
strMessage = "Recupero password" & vbCrLf & _
strRecipientsName & ", Le informazioni richieste:" & vbCrLf & vbCrLf & _
"Username: " & strSql("M_Name") & vbCrLf & _
"Password: " & strSql("M_Password") & vbCrLf & vbCrLf & _
"Grazie per averci scelto," & vbCrLf & pageTitle & ""

Set objMessage = CreateObject("CDO.Message")
objMessage.From = strSender
'objMessage.Sender = strSender
objMessage.TextBody = strMessage
objMessage.To = strRecipientsEmail
objMessage.Subject = strSubject
objMessage.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]Impossibile spedire l'email. Errore: " & Err.Description & ""
End if
On Error Resume Next


strSql = "Select M_Name, M_Password, M_Email from Members where M_Name = '"
strSql = strSql & Request.Form("Name") & "' and M_Email ='"
strSql = strSql & Request.Form("email") & "'"

set rs = my_conn.Execute (StrSql)

if rs.EOF or rs.BOF then
strMessage = strMessage & "I dati inseriti non risultano." & vbCrLf & vbCrLf
strMessage = strMessage & "Registrati di nuovo al http://www.mioxsitox.it" & vbCrLf
Else
strMessage = strMessage & " La tua password è :- " & rs("M_Password") & vbCrLf
End if

strMessage = strMessage & "Grazie per esserti registrato al Forum"



objMessage.Send()
Set objMessage = Nothing
on error resume next
rs.close
set rs=nothing
my_conn.Close
set my_conn = nothing
%>
<p align=center><font face="<% =DefaultFontFace %>" size=4>Invio password</p>
<p align=center><font face="<% =DefaultFontFace %>" size=2>Riceverai una Email a momenti!</p>

<%
Else
%>

<p align=center><font face="<% =DefaultFontFace %>" size=4>Invio password</p>
<form action="pword.asp?mode=doit" method="post">
<div align="center">
<TABLE background="" bgColor=#b0c4de border=1 borderColor=#000000 cellPadding=0
cellSpacing=0 width=70%>
<TBODY>
<TR>
<TD width=50%><FONT face="<% =DefaultFontFace %>" size=2>User Name </TD>
<TD width=50%><FONT face="<% =DefaultFontFace %>" size=3>
<INPUT name=Name type=text value=""> </FONT></TD>
<TR>
<TD><FONT face="<% =DefaultFontFace %>" size=2>Email</TD>
<TD><FONT face="<% =DefaultFontFace %>" size=3>
<INPUT name=email size=30 type=text value="">
</FONT></TD>
</TR>

<TD align=middle colSpan=2><INPUT name=submit1 type=submit value=Invia></TD></TR></TBODY></TABLE></FONT></TD></TR></TBODY></TABLE>


_</P>

<%
End if
%>

</CODE>

[Roby_72]

E gli errori quali sarebbero?
Poi togli ovunque questo:

On Error Resume Next

altrimenti non li vedi proprio gli errori.

Roby

[Nicola4600]

Ciao, grazie della celerità nel rispondere, adesso provo subito

[Nicola4600]

Ho provato eliminando "on error resume next" e l' errore indicato è questo:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente

Io veramente non sò cosa fare

[Roby_72]

Ma dove? Quando?
Appena richiami la pagina o dopo aver fatto quualcosa?
Non ho la palla di vetro...

Roby

[Nicola4600]

Quando simulo la compilazione del form e clicco sul pulsante per l' invio dei dati
Ho provato con i dati realmente presenti nel database.

[Roby_72]

Ma CDOSYS sul server c'è installato?

Roby

[Nicola4600]

sì è installato, a meno che l' ho rovinato con le prove

[Nicola4600]

Ciao ho provato con un modulo (che non usa database) di invio messaggi sia in locale che sul server (sempre cdosys) fornito da chi mi fornito lo spazio web e funziona.

Mi è sorto il dubbio che l' errore possa essere presente nella pagina inclusa il cui codice ho riportato qui sotto, anche se non mi sembra possa esserci qualcosa che crei interferenze.
Grazie

<html>
<head>
<title></title>
<script language="JavaScript">
<!-- hide from JavaScript-challenged browsers

function openWindow(url) {
popupWin = window.open(url, 'new_page', 'width=400,height=400')
}



// done hiding -->
</script>

</head>

<Style>
a:link {color="<% =LinkColor %>";text-decoration:<% =LinkTextDecoration %>}
a:visited{color:"<% =VisitedLinkColor %>";text-decoration:<% =VisitedTextDecoration %>}
a:hover {color:"<% =HoverFontColor %>";text-decoration:<% =HoverTextDecoration %>}
</style>


<BODY bgColor="dfdfdf" text="<% =DefaultFontColor %>" link="<% =LinkColor %>"
aLink=<% =ActiveLinkColor %> vLink="<% =ActiveLinkColor %>">

<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=100%>
<TR>

<TD align=right vAlign=top>
<CENTER><FONT face="<% =DefaultFontFace %>">


<FONT size=1>
<ACRONYM title="Crea il tuo profilo.">Profilo</ACRONYM>
|
<ACRONYM title="Registrazione gratuita!">Registrazione</ACRONYM>
|
<ACRONYM title="Migliora la ricerca con una parola chiave, una data o un nome.">Cerca</ACRONYM>
</font>
</font>




<%
'if lcase(left(Request.ServerVariables("SCRIPT_NAME"), 6)) = "/forum" then %>
<form action="<%=Request.ServerVariables("SCRIPT_NAME") & "?" & Request.Querystring %>" method="post">
<SELECT NAME="Days">
<OPTION value="1">Mostra argomenti più recenti
<OPTION value="2">Mostra argomenti da 2 giorni
<OPTION value="5">Mostra argomenti da 5 giorni
<OPTION value="10">Mostra argomenti da 10 giorni
<OPTION value="30">Mostra argomenti da 30 giorni
<OPTION value="60">Mostra argomenti da 60 giorni
<OPTION value="100">Mostra argomenti da 100 giorni
<OPTION value="365" >Mostra argomenti da 1 anno
</SELECT>
<input type=hidden name="cookie" value="true">
<input type=submit value="Cerca">
</form>
</CENTER>
<% 'End If %>
</TD>
</TR>
</TABLE>

[Roby_72]

La pagina inclusa non ha oggetti server quindi lì non hai errori.
Anche se vedo che hai scritto due volte, e questo è sicuramente sbagliato:

Set objMessage = CreateObject("CDO.Message")

Roby