send e-mail

Hvilket mail komponent har du ?

Den side du vil have hvor man kan indtaste brugernavn også kommer password, det vil da ikke være særlig smart ? Så kan man jo finde alles password bare man kender deres brugernavn ?

Årh ja my mistake. Jeg ved faktisk ikke hvilken mailkomponent jeg har. Men den skal bare sende det *g*

Hm..hvor har du webhotel ?

web-sale

Hm...tjo...og på deres side står der ikke en dyt om hvilke komponenter de har...

Okay har lige fået afvide i min øresnegl at de har jmail, jeg stykker lige et script sammen.

Prøv med Jmail.

Hvis du er mega god, er der så mulighed for at du kan klare denne : http://www.eksperten.dk/spm/54808

\"øresnegl\" må jeg være her ;o)

Smid dette i glemtpw.asp:

<% response.buffer = true %>

<B>Glemt Brugernavn / Password</B><BR>
<% if request.querystring(\"action\") = \"submit\" then

if request.form(\"email\") = \"\" then
for each item in request.form
session(item) = request.form(item)
next
session(\"fejl\") = \"Udfyld venligst email feltet.\"
response.redirect(\"glemtpw.asp\")
end if

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \";UID=admin;PWD=;\"
Set rs = Conn.execute(\"SELECT * FROM brugere WHERE bruger = \'\" & request.form(\"bruger\") & \"\'\")
if rs.eof then
for each item in request.form
session(item) = request.form(item)
next
session(\"fejl\") = \"Der er ingen brugere med det angivne brugernavn.\"
response.redirect(\"glemtpw.asp\")
else
brugernavn = rs(\"brugernavn\")
password = rs(\"password\")
email = rs(\"email\")


on error resume next
Set JMail          = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ISOEncodeHeaders = False
JMail.ServerAddress = \"smtp.websale.dk\"
JMail.Sender        = \"din@mail.dk\"
JMail.Subject      = \"Oplysninger hos whatever.dk\"
JMail.AddRecipient  email
JMail.Priority      = 3
JMail.Body = \"dit password er\" & vbcrlf & password
JMail.Execute

response.write (\"Dine oplysninger er sendt til din email adresse.<BR><BR>\")
end if
set rs = nothing
conn.close
set conn = nothing
else %>
Hvis du har glemt dit brugernavn / password kan du få tilsendt dine oplysninger ved at bruge denne side.<P>
<% if session(\"fejl\") <> \"\" then
response.write \"<B>\" & session(\"fejl\") & \"</B><BR>\"
end if %>
<FORM ACTION=\"glemtpw.asp?action=submit\" METHOD=\"POST\">
Indtast Brugernavn:<BR>
<INPUT TYPE=\"text\" name=\"bruger\" value=\"<% =session(\"bruger\") %>\" size=\"20\"><BR>
<INPUT TYPE=\"submit\" VALUE=\"Send mine oplysninger\">
</FORM>
<%
session(\"bruger\") = \"\"
session(\"fejl\") = \"\"
end if %>
</font></td>
</tr>
</table>
</center>
</body>

tommyf >> Jep :-)

<% response.buffer = true %>

<B>Glemt Brugernavn / Password</B><BR>
<% if request.querystring(\"action\") = \"submit\" then

if request.form(\"email\") = \"\" then
for each item in request.form
session(item) = request.form(item)
next
session(\"fejl\") = \"Udfyld venligst email feltet.\"
response.redirect(\"glemtpw.asp\")
end if

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \";UID=admin;PWD=;\"
Set rs = Conn.execute(\"SELECT * FROM brugere WHERE bruger = \'\" & request.form(\"bruger\") & \"\'\")
if rs.eof then
for each item in request.form
session(item) = request.form(item)
next
session(\"fejl\") = \"Der er ingen brugere med det angivne brugernavn.\"
response.redirect(\"glemtpw.asp\")
else
brugernavn = rs(\"brugernavn\")
password = rs(\"password\")
email = rs(\"email\")


on error resume next
Set JMail          = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ISOEncodeHeaders = False
JMail.ServerAddress = \"balder.websale.dk\"
JMail.Sender        = \"din@mail.dk\"
JMail.Subject      = \"Oplysninger hos whatever.dk\"
JMail.AddRecipient  email
JMail.Priority      = 3
JMail.Body = \"dit password er\" & vbcrlf & password
JMail.Execute

response.write (\"Dine oplysninger er sendt til din email adresse.<BR><BR>\")
end if
set rs = nothing
conn.close
set conn = nothing
else %>
Hvis du har glemt dit brugernavn / password kan du få tilsendt dine oplysninger ved at bruge denne side.<P>
<% if session(\"fejl\") <> \"\" then
response.write \"<B>\" & session(\"fejl\") & \"</B><BR>\"
end if %>
<FORM ACTION=\"glemtpw.asp?action=submit\" METHOD=\"POST\">
Indtast Brugernavn:<BR>
<INPUT TYPE=\"text\" name=\"bruger\" value=\"<% =session(\"bruger\") %>\" size=\"20\"><BR>
<INPUT TYPE=\"submit\" VALUE=\"Send mine oplysninger\">
</FORM>
<%
session(\"bruger\") = \"\"
session(\"fejl\") = \"\"
end if %>
</font></td>
</tr>
</table>
</center>
</body>

Glemt det sidste

</td>
</tr>
</table>

Det var lige en hurtig copy / paste fra en af mine egne sider :-)

Hvor meget skal jeg rettet når kolonnen hedder users isteder for Brugere

2 sec så retter jeg det lige. Er der andre felter der hedder noget andet, email ?

Db\'en = db.mdb
Tabellen = users
Brugernavn kolonne = Username
Password kolonne = Password
email kolonne = Email

<% response.buffer = true %>

<B>Glemt Brugernavn / Password</B><BR>
<% if request.querystring(\"action\") = \"submit\" then

if request.form(\"bruger\") = \"\" then
for each item in request.form
session(item) = request.form(item)
next
session(\"fejl\") = \"Udfyld venligst bruger feltet.\"
response.redirect(\"glemtpw.asp\")
end if

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \";UID=admin;PWD=;\"
Set rs = Conn.execute(\"SELECT * FROM users WHERE username = \'\" & request.form(\"bruger\") & \"\'\")
if rs.eof then
for each item in request.form
session(item) = request.form(item)
next
session(\"fejl\") = \"Der er ingen brugere med det angivne brugernavn.\"
response.redirect(\"glemtpw.asp\")
else
brugernavn = rs(\"username\")
password = rs(\"password\")
email = rs(\"email\")


on error resume next
Set JMail          = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ISOEncodeHeaders = False
JMail.ServerAddress = \"balder.websale.dk\"
JMail.Sender        = \"din@mail.dk\"
JMail.Subject      = \"Oplysninger hos whatever.dk\"
JMail.AddRecipient  email
JMail.Priority      = 3
JMail.Body = \"dit password er\" & vbcrlf & password
JMail.Execute

response.write (\"Dine oplysninger er sendt til din email adresse.<BR><BR>\")
end if
set rs = nothing
conn.close
set conn = nothing
else %>
Hvis du har glemt dit brugernavn / password kan du få tilsendt dine oplysninger ved at bruge denne side.<P>
<% if session(\"fejl\") <> \"\" then
response.write \"<B>\" & session(\"fejl\") & \"</B><BR>\"
end if %>
<FORM ACTION=\"glemtpw.asp?action=submit\" METHOD=\"POST\">
Indtast Brugernavn:<BR>
<INPUT TYPE=\"text\" name=\"bruger\" value=\"<% =session(\"bruger\") %>\" size=\"20\"><BR>
<INPUT TYPE=\"submit\" VALUE=\"Send mine oplysninger\">
</FORM>
<%
session(\"bruger\") = \"\"
session(\"fejl\") = \"\"
end if %>
</font>

Kan man få den til at skrive noget andet som afsender end: postmaster@zequenze.dk ?

I denne linie skal du skrive din adresse:

JMail.Sender        = \"din@mail.dk\"

ja ja det har jeg gjort men når der f.eks kommer mail fra Tradedoubler så står der ikke en e-mail adresse men bare : Tradedoubler

Du kan prøve med denne linie lige efter jmail.sender

JMail.FromName = \"Whatever\"

hjalp ik

Fik du en fejl eller ?

nej.

Prøv lige at smide en
Response.Write( jmail.Version )

ind lige efter jmail.execute

4.1.0 Free VersionD

4.1.0 Free Version

Ja så burde JMail.FromName = \"Whatever\" virke, det står i dokumentationen.

Den ser sådan ud uden den virker : Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ISOEncodeHeaders = False
JMail.ServerAddress = \"balder.web-sale.dk\"
JMail.SenderName = RigtigNavn
JMail.Sender = \"postmaster@zequenze.dk\"
JMail.FromName = \"Whatever\"
JMail.Subject = \"Password oplysning hos www.zequenze.dk\"
JMail.AddRecipient email
JMail.Priority = 3
JMail.Body = \"Dit password er\" & vbcrlf & password
JMail.Execute

Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ISOEncodeHeaders = False
JMail.ServerAddress = \"balder.web-sale.dk\"
JMail.FromName = \"Whatever\"
JMail.Sender = \"postmaster@zequenze.dk\"
JMail.Subject = \"Password oplysning hos www.zequenze.dk\"
JMail.AddRecipient email
JMail.Priority = 3
JMail.Body = \"Dit password er\" & vbcrlf & password
JMail.Execute

Nope

Så ved jeg det ikke, det burde virke ifølge dokumentationen.

Hmmm, underligt

Ja det synes jeg godt nok også.

Skal jeg ikke have lidt point ? :-)

skal du have alle ?

Tja, det ved jeg ikke, jeg har da fikset hele scriptet for dig, den fejl at den ikke vil skrive det rigtige afsender navn tror jeg ligger hos web-sale, men bare giv hvad du synes er rimeligt for scriptet :-)

Ok

kan du klare denne `? : http://www.eksperten.dk/spm/54808

er morpheus ikke igang med det ?

nej han har ikke svaret i 4 dage nu, så jeg forventer at han ik kunne lave den. Kan du ?

Det kan jeg sagtens lave, jeg kigger på det når jeg kommer hjem fra skole om et par timer :-)

Kan du lave det færdig idag ?

Hvad er det lige der magler på morphues´s løsning, for mig ser det ud som om han har lavet det der skulle laves ?

Tja, han har ik svaret, og det virker ikke. pic one.

Men har du noget upload komponent på serveren ?

ved jeg ik. men kan du lave det ?

Kan godt lave det hvis du har et upload komponent på serveren, men prøv da at se om du ikke kan få fat på morpheus.

det kan jeg ikke. Hvordan kan jeg teste hvilken en upload komponent jeg har ==

Prøv at smide denne linie i et asp doc. og se om den melder fejl.

Set myUpload = Server.CreateObject(\"AspSmartUpload.SmartUpload\")

http://www.zequenze.dk/upload.asp

Jeg skrev : <%
Set myUpload = Server.CreateObject(\"AspSmartUpload.SmartUpload\")
%>

ingen fejl.

Okay, så laver jeg det lige :-)

hele scriptet ?

Ja bliver jeg ikke nød til det ?

Man skal bare uploade billede samtidig med at man opretter sin profil ikke ?

jo med de informationer der ligger her :http://www.zequenze.dk/Brugernavn.htm

+ man skal kunne skrive en fri tekst. IK ?

Også fritekst ?

ja tak.

hvornår vil du tro det er færdigt ?

Dont know...om ik så længe..

med de to rækker og det hele ?

Jeg er lige kommet til at se at jeg ikke kan lave det på min server, da den ikke understøtter det upload komponent... Så jeg har ingen mulighed for at lave det, desværre..

hvis du for adgang til min i dette tilfælde kan du så ?

Ja, men gider kun hvis du har frontpage extensions, hader ftp...

ved jeg ik om du har : icq : 92064248