Jag har en liten fråga, har tagit ett exempel på CDONTS på tips o tricks...o där finns en rad som jag testat att ta bort, nämligen den här: <code>'"//Made By Christoffer V - www.megadomain.net"</code>

Om jag tar bort den, så får jag det här meddelandet: error '80040108'

/public/send.asp, line 19

Min kod ser ut så här:

<code>
'Sätt lite variablar
din_mail = "webmaster@sandberg.fi" 'Din mailaddress (meddelandet kommer skickas dit)
return_url = "http://www.sandberg.fi/public/palaute.asp" 'Besökaren kommer hit efter att mailet har skickats...

'Kollar om besökaren fyllt i alla fält
if Request.Form("Nimi") = "" then
Response.Write "Du måste ange ett namn för att skicka meddelandet! <br>Tryck bakåt i din webläsare och försök igen"
elseif Request.Form("Viesti") = "" then
Response.Write "Du måste skriva nånting! <br>Tryck bakåt i din webläsare och försök igen"
else
'Skickar iväg mailet
Dim CDOMail
Set CDOMail = Server.CreateObject("CDONTS.NewMail")
CDOMail.From = Request.Form("Email")
CDOMail.To = din_mail
CDOMail.Cc = ""
CDOMail.Subject = "Viesti kotisivulta - " & Request.Form("Nimi")
CDOMail.Body = "Tämä viesti on kotisivulta:" & vbcrlf&_ <------- rad 19
"" & Request.Form("Nimi") & " (" & Request.Form("Email") & ") - "& now & "" & vbcrlf&_
"-----------------------------------" & vbcrlf&_
"" & Request.Form("Viesti") & "" & vbcrlf&_
"-----------------------------------" & vbcrlf&_
CDOMail.Send
Set CDOMail = Nothing

'Skickar dig tillbaka
Response.Redirect return_url
end if %>
</code>

Vad är det som gör att det funkar om jag har kvar den raden och gör att det inte funkar om jag tar bort den?.....ren nyfikenhet från min sida nu.

I originalkoden finns den aktuella raden här:

<code>
CDOMail.Body = "Tämä viesti on kotisivulta:" & vbcrlf&_
"" & Request.Form("Nimi") & " (" & Request.Form("Email") & ") - "& now & "" & vbcrlf&_
"-----------------------------------" & vbcrlf&_
"" & Request.Form("Viesti") & "" & vbcrlf&_
"-----------------------------------" & vbcrlf&_
'"//Made By Christoffer V - www.megadomain.net"
CDOMail.Send
Set CDOMail = Nothing

'Skickar dig tillbaka
Response.Redirect return_url
end if %>
</code>

det måste vara mellanrum mellan vbcrlf samt &_- Så ändra & vbcrlf&_ till & vbcrlf &_. I slutet så ligger en &_ som måste tas bort.

Du slutar raden med "&_" vilket förutsätter att kodraden fortsätter, ta bort det:

CDOMail.Body = "Tämä viesti on kotisivulta:" & vbcrlf&_
"" & Request.Form("Nimi") & " (" & Request.Form("Email") & ") - "& now & "" & vbcrlf&_
"-----------------------------------" & vbcrlf&_
"" & Request.Form("Viesti") & "" & vbcrlf&_
"-----------------------------------"

/Johan

Ändra detta:
<code>
"" & Request.Form("Viesti") & "" & vbcrlf&_
"-----------------------------------" & vbcrlf&_
CDOMail.Send
</code>
till:
<code>
"" & Request.Form("Viesti") & "" & vbcrlf&_
"-----------------------------------"
CDOMail.Send
</code>