Översättning?

Hej, skulle nån kunna översätta allt det nedan till Jmail (är i AspSmartMail).

<% End If
If Request.Querystring("action") = "sent" Then

Set RecSet=Conn.Execute("SELECT * From nyhetsbrev")

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

On Error Resume Next
Do While Not RecSet.EOF

Set SmartMail = Server.CreateObject("aspSmartMail.SmartMail")
SmartMail.Server = "mail.aleborg.com"  
SmartMail.SenderAddress = dinemail
SmartMail.Recipients.Add RecSet("Email")
SmartMail.Subject = Request.Form("Subject")
	
Body = "<font face=verdana size=1>"
Body = Body & "<b>Nyhetsbrev från " & sidnamn & "!</b><br>"  
Body = Body & "---------------------------------------------------------------------<br>"
Body = Body & "<b>Skickades:</b>  " & Now & "<br>"
Body = Body & "---------------------------------------------------------------------<br>"
HTML = HTML & Meddelande & "<br>"   
Body = Body & "</font>"

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

RecSet.MoveNext
Loop
	
RecSet.Close
Set RecSet = Nothing

Session("mess") = "<b>Nyhetsbrevet har nu skickats!</b>"
Response.Redirect "admin.asp?sektion=4"

End If 
If Request.Querystring("action") = "sent2" Then

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

Set SmartMail = Server.CreateObject("aspSmartMail.SmartMail")
SmartMail.Server = "mail.aleborg.com"  
SmartMail.SenderAddress = dinemail
SmartMail.Recipients.Add RecSet("Email")
SmartMail.Subject = Request.Form("Subject")

Body = Body & "<font face=verdana size=1>"
Body = Body & "<b>Nyhetsbrev från " & sidnamn & "!</b><br>"  
Body = Body & "---------------------------------------------------------------------<br>"
Body = Body & "<b>Skickades:</b>  " & Now & "<br>"
Body = Body & "---------------------------------------------------------------------<br>"
Body = Body & Meddelande & "<br>"   
Body = Body & "</font>"

SmartMail.Body = Body
SmartMail.Charset = "iso-8859-1"
SmartMail.ContentType = "text/html" 
SmartMail.SendMail
	
Session("mess") = "<b>Nyhetsbrevet har nu skickats till " & Request.Form("email") & "!</b>"
Response.Redirect "admin.asp?sektion=4"

End If 

If Request.Querystring("action") = "delete" Then
  Conn.Execute("Delete * From nyhetsbrev Where id=" & Request.Querystring("id"))
  Response.Redirect "admin.asp?sektion=4"
End If

End If

kanske bättre å ladda hem jmail referens själv å göra? är inte så svårt - har du provat?

Nä det har jag inte provat, kan du ge mig en direktlänk till den?

Om man söker lite så hittar man nog den själv. ;)

Den finns på Dimac:s hemsida:
http://www.dimac.net/websites/dimac/website/products/w3JMail/Reference_4_3

Jaja, men tänkte om nån här visste länken...

Folk här hjälper gärna till men att be professionella kodare att göra ett sådant omfattande arbete gratis tycker inte jag ser bra ut. Om du inte lär dig göra saker själv är nog ingen intresserad av att hjälpa till i längden ;)

http://www.comsoltech.com/articles/asp/200011/howtosendemail/
Jmail - readme
Jmail-(zip fil)

Fattar ändå inget, ingen som kan göra det åt mig?

Jag förstår ingenting men måste snart skicka ut nyhetsbrevet, kan ingen översätta det? Den som gör det kan få en symbolisk summa med pengar, 20kr.

Om du läser min tråd kan du nog få till det?

Jag brottas visserligen också med problem, men det fungerar