Fejl når jeg sender ??

<%
Set fs = CreateObject("Scripting.FileSystemObject")
filename = server.mappath("Config.txt")
Set readfile = fs.OpenTextFile(filename,1,False)
Do until readfile.AtEndOfStream

Dim zURL,zTitle,aName,zEmail,zName,zBGColor,zSColor,zTColor,zLColor,zCopy
zURL = readfile.readline
zTitle = readfile.readline
zName = readfile.readline
zEmail = readfile.readline
zBGColor = readfile.readline
zSColor = readfile.readline
zTColor = readfile.readline
zLColor = readfile.readline
zCopy = readfile.readline
Loop
readfile.close
set readfile=nothing

Dim sAdminName,sAdminLevel
sAdminName = Session("AdminName")
sAdminLevel = Session("AdminLevel")

%>

//>Rune

og fjern koden Option Explicit hvis den er der...

//>Rune

ok det har jeg rettet, men nu er fejlen flyttet til en anden fil, hvor fejlkoden er:

Serverobjekt fejl 'ASP 0177 : 800401f3'

Server.CreateObject blev ikke udført

/dvdit/dvdit-filer/nyhedsbrev/SpawnedMailerSend.asp, linje 95

800401f3



Her er koden til den nye fil:

<%
Dim mFrom,mSubject,mbcc,mBody,mArchive
mFrom = Request.Form("myemail")
mSubject = Request.Form("subject")
mbcc = Request.Form("users")
mBody = Request.Form("body")
mArchive = Request.Form("archive")

response.write("Emailen er blevet sendt til:<br><br>" & mbcc )

Dim eCDO
Set eCDO = Server.CreateObject("CDONTS.NewMail")

eCDO.To = zEmail
eCDO.From = mFrom
eCDO.Subject = mSubject
eCDO.Body = mBody
eCDO.Send

Set eCDO = Nothing

if mArchive = "1" then

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("../../db/SpawnedMailer.mdb"))

ArchiveSQL = "INSERT into Archive (ArchiveSubject,ArchiveBody) VALUES ('" & mSubject & "','" & mBody & "');"
conn.Execute ArchiveSQL
response.write("<br><br><br>Posten er leveret!<br><br>")

conn.close

end if

response.write("<br><br><br><center><a href='AdminIndex.asp'>ADMIN HOME</a><center>")

%>

Dette er linie 96:

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

Fejlen ligger her:

Dim eCDO
Set eCDO = Server.CreateObject("CDONTS.NewMail")

eCDO.To = zEmail
eCDO.From = mFrom
eCDO.Subject = mSubject
eCDO.Body = mBody
eCDO.Send

Set eCDO = Nothing


Men jeg kan ikke se hvad den er???

Den sidste fejl opstår som regel når serveren ikke understøtter det komponent man forsøger at anvende.

Jeg sidder og laver det under localhost, burde det så ikke at understøtte!

Det er åbenbart en fejl der opstår lige før at min mail bliver sendt??

Med mindre du har installeret komponentet på localhost vil det ikke fungere under localhost - prøv at tjekke det på selve serveren istedet hvor man normalt installerer den slags komponenter.

ok, har ikke pt. mulighed for at tjekke det lige nu, men tak alligevel!