ændre fra smtp til JMail for 150 point - URGENT! PLS

Det vil jeg! Jeg er i gang ..

Sådan:

<!--#INCLUDE FILE=\"config.inc\" -->
<!--#INCLUDE FILE=\"top.inc\" -->
<%
    if Request.QueryString(\"mode\") = \"doit\" then
        set my_conn= Server.CreateObject(\"ADODB.Connection\")
        my_Conn.Open ConnString
           
        mssg = \"You have received this mail because you have asked to be reminded of you password\"
        mssg = mssg & \"For the ASP Forum at http://www.asp-dev.ml.org\" & vbCrLf & vbCrLf

        strSql = \"Select Brugernavn, Adgangskode, Email from Tbruger where Brugernavn = \'\"
        strSql = strSql & Request.Form(\"Name\") & \"\' and Email =\'\"
        strSql = strSql & Request.Form(\"email\") & \"\'\"
           
        set rs = my_conn.Execute (StrSql)
           
        if rs.EOF or rs.BOF then
            mssg = mssg & \"Sorry The details you passed were unknown.\" & vbCrLf & vbCrLf
            mssg = mssg & \"Please register again at http://www.asp-dev.ml.org/forum/register.asp\"; & vbCrLf
        Else
            mssg = mssg & \" Your Password id :- \" & rs(\"Adgangskode\") & vbCrLf
        End if
           
        mssg = mssg & \"Thank you for using the ASP Forum\"

        set smtp = Server.CreateObject(\"JMail.SMTPMail\")
        smtp.ServerAddress = \"mail1.stoneplanet.com\"
        smtp.AddRecipient request.form(\"email\")
        smtp.Sender = \"asp@asp-dev.ml.org\"
        smtp.Subject = \"ASP Forum Password\"
        smtp.Body = mssg
        smtp.Silent = True
       
        retval = smtp.Execute()
       
        Set smtp = Nothing
        set rs=nothing
        my_conn.Close : set my_conn = nothing
    End If
%>

Tak - jeg prøver lige at sætte det ind og vender tilbage om 10 minutter

oki

ehm . kpl = lucy !?

Der kommer en lille fejlmeddelse:
Syntax error
/forum2/pword.asp, line 54
Else
^

******
Det drejer sig om linien
<%   
Else
%>
****************
Så jeg paster lige hele filen, måske du lige kan se hvad problemet er:

<!--#INCLUDE FILE=\"config.inc\" -->
<!--#INCLUDE FILE=\"top.inc\" -->
<%
if Request.QueryString(\"mode\") = \"doit\" then

    set my_conn= Server.CreateObject(\"ADODB.Connection\")
    my_Conn.OpenConnString
   
    mssg = \"You have received this mail because you have asked to be reminded of you password\"
    mssg = mssg & \"For the ASP Forum at http://www.asp-dev.ml.org\" & vbCrLf & vbCrLf
   
    strSql = \"Select Brugernavn, Adgangskode, Email from Tbruger where Brugernavn = \'\"
    strSql = strSql & Request.Form(\"Name\") & \"\' and Email =\'\"
    strSql = strSql & Request.Form(\"email\") & \"\'\"
   
    set rs = my_conn.Execute (StrSql)
   
    if rs.EOF or rs.BOF then
        mssg = mssg & \"Sorry The details you passed were unknown.\" & vbCrLf & vbCrLf
        mssg = mssg & \"Please register again at http://www.asp-dev.ml.org/forum/register.asp\" & vbCrLf
    Else
        mssg = mssg & \" Your Password id :- \" & rs(\"Adgangskode\") & vbCrLf
    End if
   
    mssg = mssg & \"Thank you for using the ASP Forum\"
   
   
    setsmtp = Server.CreateObject(\"JMail.SMTPMail\")
    smtp.ServerAddress = \"smtp.worldonline.dk\"
    smtp.AddRecipientrequest.form(\"email\")
    smtp.Sender = \"info@minside.dk\"
    smtp.Subject = \"Debatten\"
    smtp.Body = mssg
    smtp.Silent = True
   
    retval = smtp.Execute()
   
    set smtp = Nothing
    set rs = nothing
   
    my_conn.Close: setmy_conn = nothing
   
    End if
   
   
   
    %>
<p align=center><font face=\"<% =DefaultFontFace %>\" size=4>Password Reminder</p>
</font>
<p align=center><font face=\"<% =DefaultFontFace %>\" size=\"2\">I løbet af få
sekunder modtager du en email med dit password<font face=\"<% =DefaultFontFace %>\" size=4>!</p>

<%   
Else
%>

<p align=center><font face=\"<% =DefaultFontFace %>\" size=4>Password Reminder</p>
</FONT></font>
<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%>Dit brugernavn </TD>
<font face=\"<% =DefaultFontFace %>\" size=4><font face=\"<% =DefaultFontFace %>\" size=4>
<TD width=50%><FONT face=\"<% =DefaultFontFace %>\" size=3>
<INPUT name=Name size=30> </FONT></TD>
</font></FONT>
<TR>
<TD>Din e-mailadresse</TD>
<font face=\"<% =DefaultFontFace %>\" size=4><font face=\"<% =DefaultFontFace %>\" size=4>
<TD><FONT face=\"<% =DefaultFontFace %>\" size=3>
<INPUT name=email size=30 type=password value=\"\"></FONT></TD>
</TR>

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

<%
End if
%>

</font>

nåå .. jeg troede det var hele scriptet du havde givet os ..

fjern \"End If\" i:

\"my_conn.Close: setmy_conn = nothing
   
    End if
\"

altså den aller sidste End If i den del jeg har rettet.

kpl & lucy, der er ikke tale om symbiose - blot et fælles projekt der skal starte 1.maj så vi har meget meget travlt.

Det er nu fjernet men nu siger den:

ADODB.Connection error \'800a0e78\'

Operation is not allowed when the object is closed.

/forum2/pword.asp, line 7

(mht. kpl=lucy) Nåå ... okay :-)

my_Conn.OpenConnString

skal nok laves om til

my_Conn.Open ConnString

Det virker takker og bukker - Jeg har også et andet smtp problem jeg skal have løst senere idag, vil du have besked når jeg slår det op på eksperten?

Hilsen lucy

...Jeg beder lige kenneth sende dig pointene. Han er tilbage om 10 minutter

lucy:> det var så lidt  :-) Jeg vil gerne have besked når du smider dte op :-) (har du ICQ !? if so: 4033867)

forresten, bare for nysgerrighedens skyld .. er du en kvinde ? (navnet ku jo godt tyde lidt på det ..)

Hej daugaard - desværre har jeg ikke ICQ men jeg lægger en kommentar i dette spm når Kenneth opretter det

Hilsen Lucy (Q)

Tak :-)