Avatar billede dj-sejler Praktikant
05. december 2004 - 17:41 Der er 11 kommentarer og
1 løsning

Hjælpe til "glemt kode"-funktion

Hejsa...

Jeg har lavet en form hvor brugeren kan indtaste sin email og sende, hvorefter siden gerne skulle kontrolere om adressen findes i min access db, hvis den gør skal den sende password og brugernavn, ellers udskrive en form for fejl til brugeren...

fejlen hvis mailen ikke findes i db'en skulle gerne angives til strerror = 3


Er der nogen der kan hjælpe?

Mit eget bud... der ikke virker:

<% if request.form("Add") <> "" then
    strerror = ""
    strmail = Request.Form("mail")

    If Len(strmail) = 0 Then
        strError = 1
    ElseIf Len(strmail) < 6 Then
        strError = 2
    End If
        If Len(strError) = 0 Then

        Set rs = Server.CreateObject("ADODB.Recordset")
        strSQL = "SELECT * FROM bruger WHERE email = " & strmail
        strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
        rs.Open strSQL, strDSN, 1, 3
          mail = rs("email")
          username = rs("mynetname")
          password = rs("mynetword")
        rs.Close
        Set rs = Nothing
       
        body = ""
        body = body & "<htlm>"
        body = body & "<head>"
                blablablablablablablablablabla
        body = body & "</body>"
        body = body & "</head>"
        body = body & "</html>"

            set jmail = server.createobject("JMAIL.SMTPMail")
            jMail.sendername = "DEt er mig der sender"
            jMail.sender = mail
            jMail.Subject = "Brugernavn og Adgangskode"
            jMail.ServerAddress = "mail.domaine.dk"
            jMail.AddRecipient "postmaster@net-lunden.dk"
            jMail.Body = body
            jMail.Priority = 3
            jMail.execute

        Response.Redirect("default.asp?side=logind")
        else
        Response.Redirect("default.asp?side=logind&mode=glemt&fejl=" & strerror)
        strMode = "Add"
        end if
end if
%>
<span class="fejl">
<% if fejl = "" then %>&nbsp;
<% elseif fejl = "1" then %>Du skal skrive din e-mailadresse!
<% elseif fejl = "2" then %>Du skal skrive en rigtig e-mailadresse!
<% elseif fejl = "2" then %>Der er ingen brugere med den angivet e-mailadresse!<% end if %>
</span><br />
<form method="post" action="default.asp?side=logind&amp;mode=glemt">
<p>
E-mail*<br />
<input type="text" name="mail" size="40" value="Din e-mail (valg frit)" /><br />
<p><input type="submit" value="  Send  " name="Add" /></p>
</form>

Nogen der kan hjælpe?!?!?!?
Avatar billede dj-sejler Praktikant
05. december 2004 - 17:42 #1
der er vidst lidt rod med sender og modtager...
Avatar billede tjaz Nybegynder
05. december 2004 - 17:52 #2
<% if request.form("Add") <> "" then
    strerror = ""
    strmail = Request.Form("mail")

    If Len(strmail) = 0 Then
        strError = 1
    ElseIf Len(strmail) < 6 Then
        strError = 2
    End If
        If Len(strError) = 0 Then

        Set rs = Server.CreateObject("ADODB.Recordset")
        strSQL = "SELECT * FROM bruger WHERE email = " & strmail
        strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
        rs.Open strSQL, strDSN, 1, 3
    if rs.bof or rs.eof then
    strError = 3
    Response.Redirect("default.asp?side=logind&mode=glemt&fejl=" & strerror)
    else
          mail = rs("email")
          username = rs("mynetname")
          password = rs("mynetword")
        rs.Close
        Set rs = Nothing
    end if
       
        body = ""
        body = body & "<htlm>"
        body = body & "<head>"
                blablablablablablablablablabla
        body = body & "</body>"
        body = body & "</head>"
        body = body & "</html>"

            set jmail = server.createobject("JMAIL.SMTPMail")
            jMail.sendername = "DEt er mig der sender"
            jMail.sender = mail
            jMail.Subject = "Brugernavn og Adgangskode"
            jMail.ServerAddress = "mail.domaine.dk"
            jMail.AddRecipient "postmaster@net-lunden.dk"
            jMail.Body = body
            jMail.Priority = 3
            jMail.execute

        Response.Redirect("default.asp?side=logind")
        else
        Response.Redirect("default.asp?side=logind&mode=glemt&fejl=" & strerror)
        strMode = "Add"
        end if
end if
%>
<span class="fejl">
<% if fejl = "" then %>&nbsp;
<% elseif fejl = "1" then %>Du skal skrive din e-mailadresse!
<% elseif fejl = "2" then %>Du skal skrive en rigtig e-mailadresse!
<% elseif fejl = "2" then %>Der er ingen brugere med den angivet e-mailadresse!<% end if %>
</span><br />
<form method="post" action="default.asp?side=logind&amp;mode=glemt">
<p>
E-mail*<br />
<input type="text" name="mail" size="40" value="Din e-mail (valg frit)" /><br />
<p><input type="submit" value="  Send  " name="Add" /></p>
</form>
Avatar billede dj-sejler Praktikant
05. december 2004 - 17:57 #3
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'email = test@mail.dk'.

og den findes ikke i listen!
Avatar billede tjaz Nybegynder
05. december 2004 - 17:58 #4
strSQL = "SELECT * FROM bruger WHERE email = '" & strmail &"'
Avatar billede tjaz Nybegynder
05. december 2004 - 18:09 #5
svar btw :)
Avatar billede dj-sejler Praktikant
05. december 2004 - 18:16 #6
Du kan vel ikke sige mig hvorfor jeg ikke får sendt mailen som html... men alm tekst?!?

men det virker ellers...
Avatar billede tjaz Nybegynder
05. december 2004 - 18:18 #7
Fordi du mangler at indsætte

JMail.ContentType = "text/html"

Kunne jeg forstille mig
Avatar billede tjaz Nybegynder
05. december 2004 - 18:19 #8
set jmail = server.createobject("JMAIL.SMTPMail")
JMail.ContentType = "text/html"
jMail.sendername = "DEt er mig der sender"

osv...
Avatar billede dj-sejler Praktikant
05. december 2004 - 18:22 #9
jamen det var jo fuldstændig sandt...

:D
takker
/dj-sejler
Avatar billede tjaz Nybegynder
05. december 2004 - 18:25 #10
np
Avatar billede mcgoat Nybegynder
05. december 2004 - 18:27 #11
husk også lige: body = body & "<htlm>"  <<< <htlm>?? hehe....
Avatar billede dj-sejler Praktikant
05. december 2004 - 18:33 #12
den havde jeg set inden jeg spurgte :D
men tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester