Webhostme:s asp-emailfunktion?

Är det någon som har använt webhostme:s funktion för att skicka formulärdata till ens epostadress?

Jag greppar nämligen inte riktigt hur man skall gå tillväga. Kodexemplet på nedanstående sida är inte heller så upplysande. Är det någon som kan hjälpa mig?
http://www.webhostme.com/emailObject.asp

// Mattias

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