---
title: "CDONTS"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/108084-cdonts/page2"
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: 2
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 2 av 2._

## #21 — ade, 2004-07-28T13:27Z

@nders trro du det går att lösa?

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

## #22 — @nders, 2004-07-28T13:31Z

Tog du bort de två raderna närmast över %\>?

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

## #23 — ruid, 2004-07-28T13:54Z

jag fixade det, men hur skriver jag in så att den som skickar mailet skickas till en tacksida? ska man lägga in en input som är hidden ?

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

## #24 — @nders, 2004-07-28T13:56Z

Du har ju en response.redirect längst ner i koden. där skriver du adressen till en tacksida du förberett.

Är 'ade' och 'ruid' samma person förresten? Det är lite förvirrande.

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

## #25 — ade, 2004-07-29T09:10Z

Nej :) jag har hant om bloody-mary.dk och han har ruid.dk 

tack för all hjälp..

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

## #26 — ade, 2004-07-29T09:12Z

är det denna kod jag ska skriva sidan dom ska komma till?

' 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

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

## #27 — ade, 2004-07-29T09:14Z

nej det var det inte.. de va besökarens hemsidas fält, men vart ska jag göra det? hittar ingen responce redirect

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

## #28 — ade, 2004-07-29T09:15Z

@nders kan du peka ut vart jag ska skriva adressen eller klistra in en kod

\<!--

\---------------------------------------------------------------------------
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.HTMLBody = html
mailare.Send
Set mailare = nothing%\>

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/108084-cdonts/page2  
Föregående sida: https://www.webforum.nu/amne/asp/108084-cdonts.md