CDONTS

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

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

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 ?

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.

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

tack för all hjälp..

ä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

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

@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%>