SendMail

vad är det som är fel med det här scriptet ???

------------------
<%
Dim vMeddelandet, SendMail

   vMeddelandet = "\<HTML\>"
   vMeddelandet = vMeddelandet & "\<HEAD\>"
   vMeddelandet = vMeddelandet & "\<TITLE\>TEST\</TITLE\>"
   vMeddelandet = vMeddelandet & "\</HEAD\>"
   vMeddelandet = vMeddelandet & "\<BODY\>"
   vMeddelandet = vMeddelandet & "\<P\>Funkar \<B\>skapligt\</B\> dåligt det här!\</P\>"
   vMeddelandet = vMeddelandet & "\</BODY\>"
   vMeddelandet = vMeddelandet & "\</HTML\>"

   Set SendMail = CreateObject("CDONTS.NewMail")

   With SendMail
        .From = "testaren" 
        .To = "mailen@doman.com"
        .BodyFormat = CdoBodyFormatHTML ' eller 0
        .MailFormat = CdoMailFormatMIME ' eller 0
        .Body = vMeddelandet
        .Send
   End With

   Set SendMail = Nothing

%>
------------------

I felmeddelandet jag får står det

------------------
Microsoft VBScript compilation error '800a0400'

Expected statement

/TESTFOLDER/email/default.asp, line 20

With SendMail
------------------

Set SendMail = [b]Server.[/b]CreateObject("CDONTS.NewMail")

I övrigt, vad använder du för server? With kom med Script Engine 5, och är alltså inte standard för PWS och IIS4, om man inte uppdaterar den scriptmotorn.

Mvh,

Jag använder ett webhotell.

och det funka inte mycket bättre med det där du föreslog

Är det inte som så att:

.From = "testaren"

ska vara en riktig epostadress.

det verka inte spela någon roll. testade det men hände inget

Det måste vara en giltig e-postadress, annars skickas inget mail. Dock har det inte med felmeddelandet att göra.

Är rad 20 raden With SendMail? Det står inget mer på den raden?

Jag kan inte se något fel i koden.

Mvh,

jopp, det är den raden