Har ett Gruvsjö nyhetsmail som funkat bra men skall nu byta server från Jmailstöd till SmartAspmail. Har lite problem med översättnigen så jag undrar om någon har lite tips. Problemet är dessa 3 i toppen av sidan som sedan återkommer nedan. Hur skall dessa översättas till SmartASPmail eller PersistMailsender som det heter i detta fall. Scriptet nedan är fortfarande Jmail som ni ser och jag behöver hjälp med hur dessa sidnamn="sidan" etc översätts i övre och undre delen. Resten har jag redan översatt.
<%
sidnamn = "sidan"
dinemail = "emailnamnet"
dittnamn = "namnet"
%>
-------------------------------------------------------------------
<% End If %>

<% If Request.Querystring("do") = "sent" AND Session("admin") = Admin AND Session("losen") = Losenord Then

Set Conn = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db
SQL = "SELECT Email From joina"
RecSet.Open SQL, Conn

Meddelande = Replace(Request.Form("Meddelande"), vbCrLf, "<BR>" & vbCrLf)

Do While Not RecSet.EOF
Set jmail = Server.CreateObject("JMail.Message")

jmail.Logging = True
jmail.From = dinemail
jmail.Fromname = dittnamn
jmail.AddRecipient ""& RecSet("Email") &""
jmail.Subject = Request.Form("Subject")
jmail.appendHTML"<font face=verdana size=2>"
jmail.appendHTML"Nyhetsbrev från " & sidnamn & "!<br>"
jmail.appendHTML"---------------------------------------------------------------------<br>"
jmail.appendHTML"Skickades: " & Now & "<br>"
jmail.appendHTML"---------------------------------------------------------------------<br>"
jmail.appendHTML Meddelande & "<br>"
jmail.appendHTML"</font>"
jmail.Send (smtpadress)

Set jmail = nothing
X = X + 1
RecSet.MoveNext
Loop

RecSet.Close
Conn.Close
Set RecSet = Nothing
Set Conn = Nothing
--------------------------------------
Redigerat då jag tror frågan var luddigt ställd och ingen har haft någon synpunkt på hela tiden.
Hoppas på bättre tur nu.