---
title: "CDONTS"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/108084-cdonts"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ade"
published: "2004-07-28T10:11:21.000Z"
updated: "2004-07-29T09:15:20.000Z"
replies: 27
views: 903
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/108084-cdonts"
---

# CDONTS

_Sida 1 av 2._

## #1 — ade, 2004-07-28T10:11Z

Hejsan har laddat hem joakimwebs kontakta mig script v3 cdonts.

får detta felmedelande när jag försöker skicka ett mail 

Server object error 'ASP 0177 : 800401f3' 

Server.CreateObject Failed 

/stearin/skicka.asp, line 90 

800401f3 

Jag har det på web10.se! Hjälp mej snälla

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

## #2 — @nders, 2004-07-28T10:11Z

Stödjer web10 CDONTS då?

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

## #3 — @nders, 2004-07-28T10:17Z

Efter att ha kontrollerat på web10:s hemsida kan jag själv besvara min fråga:

> **web10 skrev:**
>
> Nedanstående komponenter är installerade på alla Windowsservrar: 
> 
> aspUpload 
> aspMail 
> aspImage 
> jmail 
> MS AdRotator 
> MS ADODB 
> MS CDONTS 
> MS Counter 
> MS FSO 
> MS Server XMLHTTP 
> MS XMLHTTP 
> Mail Components 
> EtrFileUp 
> CDOSYS

Det bör alltså fungera. Du får visa kod.

mvh

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

## #4 — ade, 2004-07-28T10:33Z

detta är koden på rad 90

set mailare = server.CreateObject("CDONTS.NewMail")

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

## #5 — @nders, 2004-07-28T10:34Z

Jag skulle gissa på att web10 ljuger på sin hemsida. Jag tror nog att de kör Windows 2003 på sina servrar, och där ingår **inte** CDONTS. Där får man använda CDO istället.

```
set mailare = Server.CreateObject("CDO.Message")
```

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

## #6 — ade, 2004-07-28T10:42Z

men är det på bara den raden ja gska ändra då?

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

## #7 — @nders, 2004-07-28T10:45Z

Jag vet inte. Du visade ju inte någon mer kod?

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

## #8 — ade, 2004-07-28T10:46Z

felmedleande nu vart rad 101

mailare.Body = ""&html&""

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

## #9 — @nders, 2004-07-28T10:49Z

```
mailare.TextBody = html
```

Verkar inte vara något jätteproffsigt script för övrigt. :)

Ska det verkligen vara html-innehåll i mailet är det möjligt att det finns en egenskap som heter HTMLBody. Prova då den istället.

mvh

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

## #10 — ade, 2004-07-28T11:00Z

men det är joakimwebs kontakta mig v3 cdonts..

<https://www.joakimweb.se> ladda hem det o kolla? för jag e oduglig på asp... tacksam för hjälp

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

## #11 — @nders, 2004-07-28T11:01Z

Det är bättre om du visar koden här.

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

## #12 — ade, 2004-07-28T11:04Z

\<!--

\---------------------------------------------------------------------------
Kontakta mig v.3 \[Cdonts\]                            <https://www.JoakimWeb.se> 

Denna applikation är skriven av Joakim på JoakimWeb.se. Du får använda
applikationen fritt, under förutsättning att denna copyrighttext förblir
intakt. Du får fritt modifiera/komplettera skriptet, du får dock inte 
använda det för kommersiella syften. Du får inte lägga ut en modifierad
version av detta skript på ett sätt som gör att andra kan ladda ner det.
Om inte dessa kvar uppfylles så har du ingen rätt att använda skriptet.
\--------------------------------------------------------------------------

\--\>
\<%

' På denna sida finns koden som gör att dina besökares meddelanden skickas till din e-post adress.
' Det är därför viktigt att du anger korrekta uppgifter nedan.

Dim formularsida, mottagare_namn, mottagare_epost, rubrik, mailserver
formularsida = "kontakt.asp" ' Ändra här om du bytt namn på sidan med formuläret
mottagare_epost = "nykopingsljus@swipnet.se" ' Här anger du till vilken mailadress allt skall skickas
rubrik = "Mail från hemsidan" ' Ändra här om du vill ha annan rubrik på alla mail som skickas

'=================================================================================================
'OBSERVERA!
'Här nedan finns kod som gör att meddelandet skickas och skall fungera helt felfritt, det brukar
'vara fel på mailservern, eller e-post adressen som orsakar fel. Så PILLA INTE i nedanstående kod
'om du inte har goda kunskaper om ASP och vet vad du gör!
'=================================================================================================

'Här hämtas informationen och läggs i variabler. 
Dim Meddelande, epost, namn, hemsida, innehall, sida
Meddelande = Request.Form("meddelande")
epost = Request.Form("epost")
namn = Request.Form("namn")
hemsida = Request.Form("hemsida")
innehall = meddelande & "$\|$" & epost & "$\|$" & namn & "$\|$" & hemsida
sida = formularsida

'Här kontrolleras fälten så att alla obligatoriska fält är ifyllda
IF Not Len(Meddelande) \<\> 0 then
	session("falt") = innehall
	Session("kontakta_mig") = "Du glömde att skriva in ett meddelande"
	Response.Redirect sida
ELSEIF Not Len(namn) \<\> 0 then
	session("falt") = innehall
	Session("kontakta_mig") = "Du glömde att fylla i ditt namn"
	Response.Redirect sida
ELSEIF Not Len(epost) \<\> 0 then
	session("falt") = innehall
	Session("kontakta_mig") = "Du glömde att fylla i din e-post adress"
	Response.Redirect sida
END IF

'Här kontrolleras e-post adressen
IF Instr(epost,"@") Then
	' inget
ELSE
	session("falt") = innehall
	Session("kontakta_mig") = "Du har angett en felaktig e-post adress"
	Response.Redirect sida
END IF
IF Instr(epost,".") Then
	' inget
ELSE
	session("falt") = innehall
	Session("kontakta_mig") = "Du har angett en felaktig e-post adress"
	Response.Redirect sida
END IF

' Här ändras hemsideadressen så att den alltid inleds med <http://>
IF Len(hemsida) \<\> 0 Then
	IF Left(hemsida,7) = "http://" Then
		webb = Lcase(hemsida)
	ELSE
		webb = "http://" & Lcase(hemsida)
	END IF
END IF

'==================================================================================================
' Här börjar själva cdonts-koden. Ändra inte nedanstående kod, om du inte har goda kunskaper om ASP
' CDONTS-komponentens funktioner. Det är väldigt ovanligt att fel uppstår i nedanstående kod. Om
' Fel uppstår på raden precis nedanför denna kommentar så brukar det bero på att servern INTE HAR
' STÖD FÖR CDONTS.
'==================================================================================================

set mailare = Server.CreateObject("CDO.Message")
	mailare.From = ""&epost&""
	mailare.To = mottagare_epost
	mailare.Subject = ""&rubrik&"" 
	html = "\<font face='verdana' size='1'\>" & Replace(Server.HTMLEncode(Meddelande),vbCrlf,"\<br\>") &\_
	"\<br\>\<br\>\<br\>------------------------------------------\<br\>\<b\>Skickades:\</b\>  " & Now & "\<br\>\<b\>Namn: \</b\> "&\_
	namn & "\<br\>\<b\>E-mail: \</b\> " & epost & "\<br\>"
	If Len(hemsida) \<\> 0 then
		html = html & "\<b\>Hemsida: \</b\>\<a href=" & webb & "\>" & webb & "\</a\>\<br\>" 
	End If
	html = html & "------------------------------------------\<br\>\</font\>"
	mailare.Body = ""&html&""
	mailare.BodyFormat = 0
	mailare.MailFormat = 0
	mailare.Importance = 1
	mailare.Send
Set mailare = nothing

Session("kontakta_mig") = "Meddelandet är nu skickat!"
Response.Redirect sida
%\>

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

## #13 — @nders, 2004-07-28T11:14Z

Jag tog bort lite onödigt skrufs ur skickandet:

```
set mailare = Server.CreateObject("CDO.Message")
mailare.From = epost
mailare.To = mottagare_epost
mailare.Subject = rubrik
html = "<font face='verdana' size='1'>" & Replace(Server.HTMLEncode(Meddelande),vbCrlf,"<br>") &_
"<br><br><br>------------------------------------------<br><b>Skickades:</b> " & Now & "<br><b>Namn: </b> "&_
namn & "<br><b>E-mail: </b> " & epost & "<br>"
If Len(hemsida) <> 0 then
html = html & "<b>Hemsida: </b><a href=" & webb & ">" & webb & "</a><br>" 
End If
html = html & "------------------------------------------<br></font>"
mailare.HTMLBody = html
mailare.Send
Set mailare = nothing
```

Och du, använd gärna \[kod\]-taggar när du postar kod, så blir det lite lättare att läsa.

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

## #14 — ade, 2004-07-28T11:27Z

tack så hemskt mycket.. men jag förstår inbte va du menar med post taggar?

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

## #15 — @nders, 2004-07-28T11:28Z

Om du postar kod, lägg den mellan \[ kod\] och \[ /kod\] (utan mellanslag då förstås), så blir den mer lättläst.

Läs här: <http://www.webforum.nu/misc.php?s=&action=bbcode>

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

## #16 — ade, 2004-07-28T11:33Z

<http://www.bloody-mary.dk/stearin/kontakt.asp>

kolla nu vart det sidan kan inte visas

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

## #17 — @nders, 2004-07-28T11:35Z

Då får du säga åt din Internet Explorer att sluta upp med att ge dig "Egna http-felmeddelanden". Hos mig står det nämligen ganska tydligt

> Active Server Pages error 'ASP 0116' 
> 
> Missing close of script delimiter 
> 
> /stearin/skicka.asp, line 15 
> 
> The Script block lacks the close of script tag (%\>).

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

## #18 — ade, 2004-07-28T13:08Z

är det nån som vet vad som neas med det?

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

## #19 — @nders, 2004-07-28T13:20Z

Ja, det står ju i klartext i felmeddelandet?

Det saknas %\> för att avsluta asp-blocket. Du har nog klippt bort för mycket när du skulle klistra in koden från mitt inlägg?

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

## #20 — ade, 2004-07-28T13:25Z

Okej jag fixade det men nu vart det bara vitt när jag valde att skicka!?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/108084-cdonts  
Nästa sida: https://www.webforum.nu/amne/asp/108084-cdonts/page2.md