---
title: "Från CDONTS till CDOSYS"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/109576-från-cdonts-till-cdosys"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ipanema"
published: "2004-08-19T09:17:02.000Z"
updated: "2004-08-19T09:31:29.000Z"
replies: 6
views: 472
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/109576-från-cdonts-till-cdosys"
---

# Från CDONTS till CDOSYS

## #1 — ipanema, 2004-08-19T09:17Z

Finns det någon som kan visa mig hur nedanstående kod i CDONTS ser ut i CDOSYS?

```
<%
Session("namn") = Request.Form("namn")
%>
Tack! <span class="tiof"><% = Session("namn") %></span>. Formuläret har nu skickats!
<br>
Du kommer få en bekräftelse till den mailadress du uppgav.
<br><br>
Med vänlig hälsning
<br><br>
Klicka <span id="b"><a href="http://www.l.se" target="_self">här</a></span> för att komma till l hemsida.

<%
Dim myMail, tid, foretag, namn, adress, postnr, postort, teldag, mobil, epost, fraga1, fraga2, fraga3, fraga4

tid = request.form ("tid")
foretag = request.form("foretag")
namn = request.form ("namn")
adress = request.form ("adress")
postnr = request.form ("postnr")
postort = request.form ("postort")
teldag = request.form ("teldag")
mobil = request.form("mobil")
epost = request.form("epost")
fraga1 = request.form("fraga1")
fraga2 = request.form("fraga2")
fraga3 = request.form("fraga3")
fraga4 = request.form("fraga4")

 Set myMail = CreateObject("CDONTS.NewMail")
 myMail.From = request.form("epost")
 myMail.To = "info@ipanema.nu"
 myMail.Subject = "Anmälan till "
 myMail.Body = "Kommer/kommer ej?: " + tid +  chr(10)+ chr(10) + "Företag: " + foretag + chr(10) + "Namn: " + namn + chr(10) +  "Adress: " + adress + chr(10) +  "Postnummer: " + postnr + chr(10) + "Postort: " + postort + chr(10) + "Telefon dag: " + teldag + chr(10) + "Mobil: " + mobil + chr(10) + "E-post: " + epost + chr(10)+ chr(10) + "Har ditt?: " + fraga1 + chr(10)+ chr(10) + "Tror du att?: " + fraga2 + chr(10)+ chr(10) + "Har ni?: " + fraga3 + chr(10)+ chr(10) + "Skulle ni?: " + fraga4 
myMail.Send
 Set myMail = Nothing
 %>
```

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

## #2 — @nders, 2004-08-19T09:19Z

Det borde räcka att byta 

```
Set myMail = CreateObject("CDONTS.NewMail")
```

till

```
Set myMail = Server.CreateObject("CDO.Message")
```

mvh

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

## #3 — ipanema, 2004-08-19T09:24Z

Ändrade med följande resultat:

```
Microsoft VBScript runtime error '800a01b6' 

Object doesn't support this property or method: 'Body' 

/web/1/bestall.asp, line 68
```

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

## #4 — @nders, 2004-08-19T09:25Z

Ah, just det. Byt till *TextBody*.

Mvh

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

## #5 — ipanema, 2004-08-19T09:27Z

OK. Nu hände följande:

```
d
CDO.Message.1 error '80070005' 

Access is denied. 

/web/1/bestall.asp, line 69
```

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

## #6 — @nders, 2004-08-19T09:30Z

Läs och begrunda: <http://www.aspfaq.com/show.asp?id=2026>

 :)

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

## #7 — ipanema, 2004-08-19T09:31Z

Tack!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/109576-från-cdonts-till-cdosys