Webhostme:s asp-emailfunktion?

Det är som i kodexemplet på den sidan du angav:

<%
Set SMTPObj = CreateObject("WebHostMeMail.SMTP")
SMTPObj.SMTPServer = "Mail.webhostme.com"
SMTPObj.ToAdd = "testing@webhostme.com,support@webhostme.com"
SMTPObj.FromAdd = "yourfriend@webhostme.com"
SMTPObj.Subject = "greeting"
SMTPObj.Body = "Testing"
SMTPObj.Connect
result = SMTPObj.EMail
Response.write "Sent " & result
SMTPObj.Quit
%>

Det ska gå...

------------------
BIRE
http://www.livsstilsbutik.com
webmaster@livsstilsbutik.com

Har nu försökt att få rätt på koden, men möts av ett meddelande när formuläret skickats. Det låter som följer:

error '800401f7'
Some error in application program

/kontakt.asp, line 10

Någon mer som varit med om detta felmeddelande vid användning av webhostme:s asp-email-tjänst?

//Mattias

------------------

Skicka med koden på den asp-sida där du använt cdonts för att skicka formulärdata, så skriver jag om den för dig till den nya komponenten och lägger upp här.

<% On Error Resume Next

Dim oMail, strFrom

strFrom = Request.Form("Email")
If strFrom="" then
strFrom="ingen@email.se"
End If

Set oMail = Server.CreateObject("CDONTS.NewMail")

oMail.Send strFrom, "smurf@smurf.se", "Kontakt" + chr(10) + chr(10) + "Detta mail skickades från hemsidan" + chr(10) + chr(10) + "Namn: " + Request.Form("Namn") + chr(10) + chr(10) + "Epost: " + Request.Form("Email") + chr(10) + chr(10) + "Övrigt: " + Request.Form("Ovrigt") + chr(10) + chr(10) + chr(10)

%>

Tack på förhand!

// Mattias

Såhär borde det funka:
<%
'---Skicka formuläret---
On Error Resume Next
Dim oMail, strFrom

strFrom = Request.Form("Email")
If strFrom="" then
strFrom="ingen@email.se"
End If

Set oMail = CreateObject("WebHostMeMail.SMTP")

oMail.SMTPServer = "Mail.webhostme.com" 'Mailservern som du skall skicka mailet ifrån
oMail.FromAdd = strFrom 'Adressen som besökaren fyllt i
oMail.ToAdd = "smurf@smurf.se" 'Adressen mailet skickas till
oMail.Subject ="Mail från hemsidan" 'Mailets ärenderad (subject)
oMail.Body = "Kontakt" + chr(10) + chr(10)_ 'Mailets innehåll
+ "Detta mail skickades från hemsidan" + chr(10) + chr(10)_
+ "Namn: " + Request.Form("Namn") + chr(10) + chr(10) +_
"Epost: " + Request.Form("Email") + chr(10) + chr(10) +_
"Övrigt: " + Request.Form("Ovrigt") + chr(10) + chr(10) + chr(10)
oMail.Connect 'Kontakta mailservern
oMail.EMail 'Skicka mailet
oMail.Quit 'Stäng förbindelsen
'---Formuläret skickat---
%>

hur kommer det sig att folk använder char(10) när det finns en "konstant" i vbscript...vbCrLf.

------------------
/bohlin

Ja det kan man undra förstås, vet faktiskt inte blir ganska fult