har du glemt password ?

Er der ikke nogle der vil hjælpe eller er der ikke nok points ?

Hvis du selv kan programmere ligger der bla. en masse færdige koder på http://www.activeserverpages.dk/ .

Det jeg ville gøre var at lave en SQL på det brugeren indtaster, og hvis der returneres noget indhold sender den en mail, hvis der kommer tom response på din SQL er det fordi at emailen ikke findes og dette skrives til brugeren...

Men har jeg forstået dig ret og vil du have én til at lave det for dig ?

JEP

God fornøjelse og happy hunting... :-)

et hurtigt eksempel...

<%
set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../soze.mdb\")

email = Request.Form(\"email\")
afsendermail = \"soze@soze.dk\"

if email = \"\" then
response.redirect(\"forside.asp?id=glemt&fejl=2\")
end if

Sql = \"Select Count(*) as Found from brugere where (email = \'\" & Request.form(\"email\") & \"\')\"
Set rs = conn.Execute(Sql)
if rs(\"Found\") = 0 then
response.redirect(\"forside.asp?id=glemt&fejl=1\")
end if

RS.Close
set RS = nothing

set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../soze.mdb\")
SQL = \"SELECT * from brugere where email=\'\" & email & \"\'\"
set rs = conn.Execute(SQL)

Do While Not rs.EOF

        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ServerAddress = \"smtp.netsite.dk\"
        JMail.Charset = \"iso-8859-1\"
        JMail.ContentTransferEncoding = \"8bit\"
        JMail.Sender = afsendermail
        JMail.Subject = \"password reminder fra www.soze.dk!\"
        JMail.AddRecipient rs(\"email\")
        JMail.Body = \"som efterspurgt følger her brugernavn og password:\" & vbCrLf & \"\" & vbCrLf & \"\" & vbCrLf & \"Brugernavn: \" & rs(\"brugernavn\") & \"\" & vbCrLf & \"Password: \" & rs(\"password\") &\"\" & vbCrLf & \"\" & vbCrLf & \"\" & vbCrLf & \"Mvh.\" & vbCrLf & \"/Webmaster\" & vbCrLf & \"http://www.soze.dk\"
        JMail.Priority = 1
        JMail.Execute
        set JMail = nothing

rs.movenext
loop

RS.Close
set RS = nothing

Response.Write \"passwordreminder sendt...\"


P.S.: dette er et uddrag - derfor ser kodningen måske lidt underlig ud!

Jeg kan ikke få det til at virke !?!?!?!?!

nu skal der selvfølgelig laves en del om for at det er tilpasset dit behov - og du skal nok også lige tjekke om vi bruger samme mailkomponent...

Jeg gir op alt for besværligt =)

yeps - det er for besværligt når man ikke ved (eller har lyst til at vide) hvad et mailkomponent er... nogle ting kræves det altså at man sætter sig ind i for at køre egen hjemmeside med sit PWS...