Hej

Jag har ett smärre problem med ett mailscript som jag vill ändra från SmartMail till cdonts, jag kan inte använda mig SmartMail på mitt webbhotell, endast cdonts.
Är det någon här som kan hjälpa mig med att ändra detta till cdonts?

Koden:

<%
Dim Connect, val, banner, epost, hemsida, losen, losen2, fel, hemmis, SQL, kod, SmartMail, RecSet, rubrik, Meddelande, body, webb
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("forum/admin/kunbase/rostlistan.mdb")

val = Request("do")

namn = Request("namn")
banner = Request("banner")
epost = Request("epost")
hemsida = Request("hemsida")
anvnamn = Request("anvnamn")
losen = Request("losen")
losen2 = Request("losen2")
info = Request("info")
Session("namn") = namn
Session("info") = info
Session("banner") = banner
Session("epost") = epost
Session("hemsida") = hemsida
Session("anvnamn") = anvnamn
Session("losen") = losen
Session("losen2") = losen2

IF Len(epost) = 0 then
Session("fel") = "<br>Du glömde att fylla i din e-post adress"
Response.Redirect "reggalist.asp?do=fel"

ELSEIF Len(namn) = 0 then
Session("fel") = "<br>Du glömde att fylla i din hemsidas namn"
Response.Redirect "reggalist.asp?do=fel"

ELSEIF Len(hemsida) = 0 then
Session("fel") = "<br>Du glömde att fylla i din hemsidas url"
Response.Redirect "reggalist.asp?do=fel"

ELSEIF Len(banner) = 0 then
Session("fel") = "<br>Du glömde att fylla i banneradressen"
Response.Redirect "reggalist.asp?do=fel"

ELSEIF Len(anvnamn) = 0 then
Session("fel") = "<br>Du glömde att fylla i önskat anv. namn"
Response.Redirect "reggalist.asp?do=fel"

ELSEIF Len(losen) = 0 OR Len(losen2) = 0 then
Session("fel") = "<br>Du måste fylla i lösenordet i båda fälten"
Response.Redirect "reggalist.asp?do=fel"
END IF

IF losen <> losen2 Then
Session("fel") = "<br>Lösenordet måste stämma överens med bekräftelsen"
Response.Redirect "reggalist.asp?do=fel"
END IF

IF LCase(Left(hemsida,7)) <> "http://" Then
hemsida2 = "http://" & hemsida
ELSE
hemsida2 = hemsida
END IF
IF LCase(Left(banner,7)) <> "http://" Then
banner2 = "http://" & banner
ELSE
banner2 = banner
END IF


SQL="Insert Into anvandare"
SQL = SQL & "(anvnamn, losenord, namn, epost, adress, banner, info)"
SQL = SQL & "Values('"& anvnamn &"','"& losen &"','"& namn &"','"& epost &"','"& hemsida2 &"','"& banner2 &"','"& info &"')"
Connect.Execute(SQL)

Set SmartMail = Server.CreateObject("aspSmartMail.SmartMail")

SmartMail.Server = "" & mailserver & ""
SmartMail.ServerPort = 25
SmartMail.ServerTimeOut = 100

SmartMail.SenderName = ""& mailadress &""
SmartMail.SenderAddress = ""& mailadress &""

SmartMail.Recipients.Add "" & epost & "", "" & epost & ""

rubrik = "Dina uppgifter"
SmartMail.Subject = "" & rubrik & ""

body = "<font face=verdana size=1>"
body = body & "<b>Hej!</b><br><br>"
body = body & "Välkommen som medlem i " & namn & "´s Topplista. Jag hoppas att du kommer "
body = body & "att få många besökare genom denna topplistan. Du måste lägga in html-koden "
body = body & "för rösta-knappen, så att dina besökare kan rösta på din hemsida. Ett auto"
body = body & "matisk anti-fusk spärr gör att man max kan lägga 1 röst per dator/ip."
body = body & "<br><br>"
body = body & "------------------------<br>"
body = body & "<b>Dina Uppgifter</b><br>"
body = body & "Anv.namn: " & anvnamn & "<br>"
body = body & "Lösenord: " & losen & "<br>"
body = body & "------------------------<br>"
infil2 = Split(infil, "inlist.asp", -1)
val = infil2(0)
body = body & "<b>HTML-koden till rösta-knappen finns att hämta på " & val
body = body & "</b><br><br>"
body = body & "PS. Skriv gärna ut detta mail så du inte tappar bort lösenordet."
SmartMail.Body = body

SmartMail.ContentType = "text/html"
SmartMail.Charset = "iso-8859-1"
SmartMail.SendMail

Session("fel") = "<br>Du är nu registrerad och uppgifterna har mailats till dig."
Response.Redirect "reggalist.asp?do=fel2"
%>


Mvh/Micke

Sök på cdonts i tips & tricks så finns kod där för att ändra till cdonts.

Ex: http://www.pellesoft.se/search.aspx?lstarea=4&search=cdonts

<code:asp>
body = "<font face=verdana size=1>"
body = body & "Hej!<br><br>" ' [osv]...

Set msg= Server.CreateObject("CDO.message")

'oftast behöver man inte ange server och port...

msg.From = mailadress
msg.To = epost & ";" & epost
msg.Subject = "Dina uppgifter"
msg.HTMLbody = body
msg.send
set msg=Nothing
</code>

Tusen tack för svaren och hjälpen!