Hej alla!

Längesen jag sysslade med CDONTS nu, men hade verkligen behövt få ordning på det här.

Har webhotell på One.com och de har stöd för CDONTS, så det ska fungera.

Så här ser det ut:

Formuläret:
<code>
<form method="POST" action="http://designadinblogg.se/include/send.asp">
<div class="plattform">Ditt namn</div><input type="text" size="20" name="name" class="kantlinje"><br><br>
<div class="plattform">Ditt användarnamn på Gratismode.se</div><input type="text" size="20" name="username" class="kantlinje"><br><br>
<div class="plattform">Bloggadress</div><input type="text" size="20" name="url" class="kantlinje"><br><br>
<div class="plattform">Din email</div><input type="text" size="20" name="email" class="kantlinje"><br><br>
<div class="plattform">Din motivering</div><textarea name="text" rows="5"
cols="40" class="kantlinje"></textarea><br>
<input type="submit" value="Skicka" class="skicka_knapp"><br>
</form>
</code>

Sen så send.asp:
<code>
<%
'Sätt lite variablar
din_mail = "info@designadinblogg.se" 'Din mailaddress (meddelandet kommer skickas dit)
return_url = "http://designadinblogg.se/include/response.htm" 'Besökaren kommer hit efter att mailet har skickats...

'Kollar om besökaren fyllt i alla fält
if Request.Form("name") = "" 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("username") = "" then
Response.Write "Du måste ange ditt användarnamn på Gratismode.se! <br>Tryck bakåt i din webläsare och försök igen"
elseif Request.Form("email") = "" then
Response.Write "Du måste ange en fungerande email! <br>Tryck bakåt i din webläsare och försök igen"
elseif Request.Form("text") = "" then
Response.Write "Du måste skriva en motivering! <br>Tryck bakåt i din webläsare och försök igen"
else
'Skickar iväg mailet
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = Request.Form("email")
objMail.To = din_mail
objMail.Subject = "E-post från " & Request.Form("name")
objMail.Body = "Detta mail skickades från din hemsida:" & vbcrlf&_
"" & Request.Form("name") & " (" & Request.Form("email") & ") - "& now & "" & vbcrlf&_
"-----------------------------------" & vbcrlf&_
"" & Request.Form("username") & "" & vbcrlf&_
"-----------------------------------" & vbcrlf&_
"" & Request.Form("url") & "" & vbcrlf&_
"-----------------------------------" & vbcrlf&_
"" & Request.Form("text") & "" & vbcrlf&_
"-----------------------------------" & vbcrlf&_
objMail.Host = "mailout.one.com"
objMail.Send

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

Jag får följande felmeddelande:

Error Type:
Sun ONE ASP VBScript runtime (0x8000FFFF) /include/send.asp, line 22

Line 22 är följande:
objMail.Body = "Detta mail skickades från din hemsida:" & vbcrlf&_

Jag hoppas att någon kan hjälpa mig.
Har mailat supporten på One.com med, men de är inte kända för att vara så snabba.

Jag har gjort på följande vis <code>
Details = Details & "Detta mail skickades från din hemsida:"
Details = Details & "" & Request.Form("name") & " (" & Request.Form("email") & ") - "& now & ""
Details = Details & "-----------------------------------"
'och så vidare tills du laggt in alla parametrarna
' Sedan lagt in Details i mailbodyn enligt nedan

Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = Request.Form("email")
objMail.To = din_mail
objMail.Subject = "E-post från " & Request.Form("name")
objMail.Body = Details 'Här lägger jag in Details som skall skickas på mejlet
objMail.Host = "mailout.one.com"
objMail.Send
</code>
Har gjort så här på en sida där jag skickar massa info, funkar för mig.
hoppas detta löser det för dig, annars hittar jag inget fel i koden som jag kan se.
//Jocke

Efter att ha snackat med livesupporten på One.com så har jag fått det hela att funka.

Tydligen så skall

<code>
objMail.From = Request.Form("email")
objMail.To = din_mail
</code>

vara så här istället

<code>
objMail.From = din_mail
objMail.To = din_mail
</code>

Jag vet inte riktigt varför, för det har nämligen funkat fint för mig på en annan sida att köra exakt samma script som jag visat innan.

Men men, nu funkar det iaf.