---
title: "Från JMAIL till CDONTS"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/109747-från-jmail-till-cdonts"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Denniss"
published: "2004-08-21T10:52:07.000Z"
updated: "2004-08-25T16:45:21.000Z"
replies: 20
views: 452
page: 1
pages: 2
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/109747-från-jmail-till-cdonts"
---

# Från JMAIL till CDONTS

_Sida 1 av 2._

## #1 — Denniss, 2004-08-21T10:52Z

Någon som kan hjälpa ??

\<%
Set jmail = Server.CreateObject("JMail.Message")

jmail.AddRecipient Request.querystring("till")
jmail.From = Request.Form("Epost")
Jmail.Priority = 1
jmail.Subject = request.form("amne")

jmail.appendHTML "\<html\>\<body\>\<font face=verdana size=2\>\<b\>"&request.form("Amne")&"!\</b\>\</font\>\<p\>"
jmail.appendHTML "\<font face=verdana size=1\>"&request.form("Meddelande")&"\<p\>"
jmail.appendHTML "\<font face=verdana size=1\>Mvh/"&request.form("Namn")&"\</font\>\</body\>\</HTML\>"

'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* smtp server till loopia \*\*\*\*\*\*\*
jmail.Send( "smtp.minsida.nu")
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
response.redirect "skicka.asp"
%\>

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

## #2 — Denniss, 2004-08-21T20:42Z

Någon ??

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

## #3 — KimG, 2004-08-21T21:21Z

Prova detta:

```

<%

Dim newMail, strBody

strBody = "<html><body><font face=verdana size=2><b>"& trim(request.form("Amne"))&"!</b></font><p>"
strBody = strBody & "<font face=verdana size=1>"& trim(request.form("Meddelande")) &"<p>"
strBody = strBody & "<font face=verdana size=1>Mvh/"& trim(request.form("Namn")) &"</font></body></HTML>"

Set newMail = Server.CreateObject("CDONTS.NewMail")

newMail.From = trim(Request.Form("Epost"))
newMail.To = trim(Request.querystring("till"))
newMail.Subject =  trim(request.form("amne"))
newMail.Importance  =  1
newMail.Host  = "smtp.minsida.nu"
newMail.Body = strBody

newMail.Send
Set newMail = Nothing

%>
```

 

Har valt att sätta **trim()** på alla Request objekt, då de tar bort overflödiga "&nbsp;" tecken, samt att lägga meddelandet i en variabel som är mer överskådlig.

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

## #4 — @nders, 2004-08-22T11:28Z

<http://www.webforum.nu/search.php?s=&forumid=22>

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

## #5 — casca, 2004-08-22T11:37Z

Flyttas från Webbutveckling - Övrigt.

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

## #6 — Denniss, 2004-08-22T18:07Z

Funkar inte. Vet ej varför. Kommer till en "tom sida" och skulle komma till en sida som finns. Och email går inte fram.

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

## #7 — Denniss, 2004-08-22T18:08Z

\<%

Dim newMail, strBody

strBody = "\<html\>\<body\>\<font face=verdana size=2\>\<b\>"& trim(request.form("Amne"))&"!\</b\>\</font\>\<p\>"
strBody = strBody & "\<font face=verdana size=1\>"& trim(request.form("Meddelande")) &"\<p\>"
strBody = strBody & "\<font face=verdana size=1\>Mvh/"& trim(request.form("Namn")) &"\</font\>\</body\>\</HTML\>"

Set newMail = Server.CreateObject("CDONTS.NewMail")

newMail.From = trim(Request.Form("Epost"))
newMail.To = trim(Request.querystring("till"))
newMail.Subject =  trim(request.form("amne"))
newMail.Importance  =  1
newMail.Host  = "smtp.minsida.nu"
newMail.Body = strBody

newMail.Send
Set newMail = Nothing
response.redirect "skicka.asp"
%\>

Så ser den ut

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

## #8 — Denniss, 2004-08-23T04:24Z

Från kontaktformulär går ingen meddelande till slutadressen.

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

## #9 — KimG, 2004-08-23T12:44Z

Varför har du en Querystring i koden??
Skriver du in adressen i kontaktformuläret och skickar medhjälp av Post metoden (method="post") så ska du ju använda Request.Form istället.... Då Querystrings skickas med hjälp av Get.

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

## #10 — Denniss, 2004-08-24T19:10Z

hmmm

jag får inte det att funka

hur skall koden se ut ??

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

## #11 — KimG, 2004-08-24T19:12Z

Om du kör hela formuläret med method="post" så ska koden se ut så här:

```
 <%

Dim newMail, strBody

strBody = "<html><body><font face=verdana size=2><b>"& trim(request.form("Amne"))&"!</b></font><p>"
strBody = strBody & "<font face=verdana size=1>"& trim(request.form("Meddelande")) &"<p>"
strBody = strBody & "<font face=verdana size=1>Mvh/"& trim(request.form("Namn")) &"</font></body></HTML>"

Set newMail = Server.CreateObject("CDONTS.NewMail")

newMail.From = trim(Request.Form("Epost"))
newMail.To = trim(request.form("till"))
newMail.Subject = trim(request.form("amne"))
newMail.Importance = 1
newMail.Host = "smtp.minsida.nu"
newMail.Body = strBody

newMail.Send
Set newMail = Nothing
response.redirect "skicka.asp"
%>
```

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

## #12 — Denniss, 2004-08-24T19:23Z

\<form method="POST" onSubmit="return kontrollera()" action="skicka_nu.asp?till=\<%=recset("epost")%\>" name="epost"\>
                  \<table id="AutoNumber1" style="BORDER-COLLAPSE: collapse" cellSpacing="0" cellPadding="0" width="100%" border="0"\>
                    \<tbody\>
                      \<tr\>
                        \<td class="verdana2" align="right"\>\<font size="1" face="Verdana"\>Ditt
                          Namn:\</font\>\</td\>
                        \<td class="verdana2"\>\<input maxLength="50" size="17" name="Namn"\>\</td\>
                      \</tr\>
                      \<tr\>
                        \<td class="verdana2" align="right"\>\<font size="1" face="Verdana"\>Din
                          E-post:\</font\>\</td\>
                        \<td class="verdana2"\>\<input maxLength="50" size="17" name="Epost"\>\</td\>
                      \</tr\>
                      \<tr\>
                        \<td class="verdana2" align="right"\>\<font size="1" face="Verdana"\>Ämne:\</font\>\</td\>
                        \<td class="verdana2"\>\<input maxLength="50" size="35" value="Ang. \<%=recset("rubrik")%\>" name="Amne"\>\</td\>
                      \</tr\>
                      \<tr\>
                        \<td class="verdana2" vAlign="top" align="right"\>\<font size="1" face="Verdana"\>Meddelande:\</font\>\</td\>
                        \<td class="verdana2"\>\<textarea name="Meddelande" rows="7" cols="30"\>\</textarea\>\<br\>
                          &nbsp;\</td\>
                      \</tr\>
                      \<tr\>
                        \<td class="verdana2" align="right"\>&nbsp;\</td\>
                        \<td class="verdana2"\>\<input type="submit" value="Skicka" name="submit"\>&nbsp;\<input onclick="javascript:history.go(-1)" type="button" value="Tillbaka" name="tillbaka"\>&nbsp;
                          &nbsp;\</td\>
                      \</tr\>
                    \</tbody\>
                  \</table\>
                \</form\>

Första sidan där jag har formuläret ser så ut.. 

Sen skall man hamna på sidan skicka.asp.

Men det gör man inte.

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

## #13 — @nders, 2004-08-24T19:26Z

1) Hur ser *kontrollera()* ut?
2) använd \[kod\]-taggar

mvh

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

## #14 — Denniss, 2004-08-24T19:30Z

??

Förstår inte riktigt.

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

## #15 — @nders, 2004-08-24T19:31Z

Vad är det du inte förstår?

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

## #16 — Denniss, 2004-08-24T19:33Z

Vad skall jag kolla ? 

1) Hur ser kontrollera() ut?

Hur ser den ut ? Vilken rad skall jag kolla ??

2) använd \[kod\]-taggar

VAR någonstans ??

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

## #17 — @nders, 2004-08-24T19:35Z

1) Javascriptfunktionen *kontrollera()* kör du ju när du skickar formuläret. Hur ser den funktionen ut?
2) Runt den koden du postar, lämpligtvis. Det blir lättare att läsa då.

Och koden i skicka_nu.asp, hur ser den ut?

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

## #18 — Denniss, 2004-08-24T19:35Z

\<script language="Javascript"\>
function kontrollera(){

if(document.epost.Namn.value==""){
alert('Du glömde skriva ditt namn!')
return false;
}
if(document.epost.Epost.value==""){
alert('Du glömde skriva din epost!')
return false;
}
if(document.epost.Amne.value==""){
alert('Du glömde skriva in ett rubrik!')
return false;
}
if(document.epost.Meddelande.value==""){
alert('Du glömde skriva in ett meddelande!')
return false;
}
}
\</script\>

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

## #19 — Denniss, 2004-08-24T19:36Z

skicka.asp

\<%

Dim newMail, strBody

strBody = "\<html\>\<body\>\<font face=verdana size=2\>\<b\>"& trim(request.form("Amne"))&"!\</b\>\</font\>\<p\>"
strBody = strBody & "\<font face=verdana size=1\>"& trim(request.form("Meddelande")) &"\<p\>"
strBody = strBody & "\<font face=verdana size=1\>Mvh/"& trim(request.form("Namn")) &"\</font\>\</body\>\</HTML\>"

Set newMail = Server.CreateObject("CDONTS.NewMail")

newMail.From = trim(Request.Form("Epost"))
newMail.To = trim(request.form("till"))
newMail.Subject = trim(request.form("amne"))
newMail.Importance = 1
newMail.Host = "smtp.minsida.nu"
newMail.Body = strBody

newMail.Send
Set newMail = Nothing
response.redirect "skicka.asp"
%\>

\<meta http-equiv="Content-Language" content="sv"\>
\<p align="center"\>\<b\>\<font size="5"\>Tack ditt meddelande
är nu 
skickat!\</font\>\</b\>\</p\>

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

## #20 — Denniss, 2004-08-24T19:50Z

skicka_nu.asp är den koden där uppe

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/109747-från-jmail-till-cdonts  
Nästa sida: https://www.webforum.nu/amne/asp/109747-från-jmail-till-cdonts/page2.md