---
title: "Cdonts till Jmail"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/159385-cdonts-till-jmail"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ragnared"
published: "2007-04-17T18:47:05.000Z"
updated: "2007-04-17T22:01:35.000Z"
replies: 6
views: 375
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/159385-cdonts-till-jmail"
---

# Cdonts till Jmail

## #1 — ragnared, 2007-04-17T18:47Z

Jag undrar hur man ändra detta script till Jmail???

```

<%
strMail = trim(Request.Form("email")) 
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = "& Server.MapPath("databas/main.mdb")
SQL = "SELECT * FROM login WHERE email = '"& strMail &"'"
Set RecSet = Connect.Execute(SQL) 
If RecSet.EOF Then 
Response.Write "<font color=red><center><br><br><br><br>Den angivna mailadressen finns inte, försök igen.</font>" 
Else 

strUserMail = RecSet("email") 
strUserPass = RecSet("password") 

Set cdoMail = Server.CreateObject("CDONTS.NewMail") 
cdoMail.From = "info@ernstsonfoto.se" 
'# Till...vi har ju värdet i email från formuläret 
cdoMail.To = strmail 
'# Ämnet 
cdoMail.Subject = "Ditt lösenord:"
'# Själva meddelandet 
cdoMail.Body = "ditt lösenord är: "& strUserPass & vbcrlf & vbcrlf & vbcrlf _ 
 
& "Här kommer dit lösenord www.ernstsonfoto.se" 

'# Skicka skiten 
cdoMail.Send 
'# Meddelande så användaren vet att mailet är skickat 
Response.Write "<center><br><br><br><br>Ditt lösenord är skickat till: " & strmail 

'# Stäng alla objekt & kopplingar enligt god sed 
Set cdoMail = Nothing 

RecSet.Close
Set RecSet = Nothing 
Connect.Close
Set Connect = Nothing 
end if 
%>
```

Permalänk: https://www.webforum.nu/p/159385

## #2 — leox, 2007-04-17T18:52Z

Hej,

Kolla in denna länk.
<http://www.dimac.net/Products/w3JMail/Version43/Examples/Simple.htm>

Exempel på de saker du behöver, avsändare, mottaggare, ämne osv.

Permalänk: https://www.webforum.nu/p/1966136

## #3 — ragnared, 2007-04-17T19:04Z

Jo men i detta fall så vill jag att den skall hämta en kod i databasen, är det ingen som vet hur man skriver om koden ovanför lättast .

Permalänk: https://www.webforum.nu/p/1966138

## #4 — ragnared, 2007-04-17T19:40Z

kolla

Kan man göra så här men jag får ändå felmeddelande, Internt serverfel???

```
<%
strMail = trim(Request.Form("email")) 
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = "& Server.MapPath("databas/main.mdb")
SQL = "SELECT * FROM login WHERE email = '"& strMail &"'"
Set RecSet = Connect.Execute(SQL) 
If RecSet.EOF Then 
Response.Write "<font color=red><center><br><br><br><br>Den angivna mailadressen finns inte, försök igen.</font>" 
Else 

strUserMail = RecSet("email") 
strUserPass = RecSet("password") 

Set objMessage = Server.CreateOBject("JMail.Message")
objMessage.From = "info@ernstsonfoto.se" 
'# Till...vi har ju värdet i email från formuläret 
objMessage.To = strmail 
'# Ämnet 
objMessage.Subject = "Ditt lösenord:"
'# Själva meddelandet 
objMessage.Body = "ditt lösenord är: "& strUserPass & vbcrlf & vbcrlf & vbcrlf _ 
 
& "Här kommer dit lösenord www.ernstsonfoto.se" 

'# Skicka skiten 
objMessage.Send("mail.server.nu")
'# Meddelande så användaren vet att mailet är skickat 
Response.Write "<center><br><br><br><br>Ditt lösenord är skickat till: " & strmail 

'# Stäng alla objekt & kopplingar enligt god sed 
Set objMessage = Nothing 

RecSet.Close
Set RecSet = Nothing 
Connect.Close
Set Connect = Nothing 
end if 
%>
```

Permalänk: https://www.webforum.nu/p/1966161

## #5 — emission, 2007-04-17T19:47Z

1\. Stäng av snälla felmeddelanden i IE eller använd en annan webbläsare
2\. Läs igenom exemplet
3\. Använd AddRecipient, inte To
4\. SQL Injection!

Permalänk: https://www.webforum.nu/p/1966166

## #6 — ragnared, 2007-04-17T20:44Z

Hej igen

Jag får fortfarande inte det att fungera hur ska jag göra hoppas att det är någon som kan och vill hjälpa mig med att få scriptet att fungera?

Permalänk: https://www.webforum.nu/p/1966203

## #7 — emission, 2007-04-17T22:01Z

Inte om du inte berättar vad som går fel.

Permalänk: https://www.webforum.nu/p/1966218

---

Tråden på webben: https://www.webforum.nu/amne/asp/159385-cdonts-till-jmail