---
title: "Mailet kommer inte fram!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/122649-mailet-kommer-inte-fram"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ade"
published: "2005-02-17T12:50:18.000Z"
updated: "2005-02-17T12:50:18.000Z"
replies: 0
views: 185
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/122649-mailet-kommer-inte-fram"
---

# Mailet kommer inte fram!

## #1 — ade, 2005-02-17T12:50Z

Har denna kod på gate9. Men mailet kommer inte fram! Vad är felet? Har gått med annat formulär i cdosys så det ska funka.

```
 <%
Dim formularsida, mottagare_namn, mottagare_epost, rubrik, mailserver
formularsida = "kontakta.asp" 
mottagare_epost = "info@direktdesign.se" 
rubrik = "Mail från hemsidan" 

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

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

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

IF Len(hemsida) <> 0 Then
	IF Left(hemsida,7) = "http://" Then
		webb = Lcase(hemsida)
	ELSE
		webb = "http://" & Lcase(hemsida)
	END IF
END IF

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

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

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/122649-mailet-kommer-inte-fram