---
title: "Översättning?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/50723-översättning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "[AMD]Zmaster"
published: "2002-08-19T14:58:10.000Z"
updated: "2002-08-22T07:50:29.000Z"
replies: 8
views: 406
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/50723-översättning"
---

# Översättning?

## #1 — [AMD]Zmaster, 2002-08-19T14:58Z

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
```

Permalänk: https://www.webforum.nu/p/50723

## #2 — Jymdis, 2002-08-19T15:20Z

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

Permalänk: https://www.webforum.nu/p/756340

## #3 — [AMD]Zmaster, 2002-08-19T15:29Z

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

Permalänk: https://www.webforum.nu/p/756350

## #4 — OveRRidE, 2002-08-19T15:42Z

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>

Permalänk: https://www.webforum.nu/p/756354

## #5 — [AMD]Zmaster, 2002-08-19T20:04Z

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

Permalänk: https://www.webforum.nu/p/756466

## #6 — CatZ, 2002-08-19T20:25Z

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](http://www.jmail.com.my/ReadMe.txt)
[Jmail-(zip fil)](http://www.jmail.com.my/JM2106.zip)

Permalänk: https://www.webforum.nu/p/756480

## #7 — [AMD]Zmaster, 2002-08-20T15:08Z

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

Permalänk: https://www.webforum.nu/p/756848

## #8 — [AMD]Zmaster, 2002-08-22T07:13Z

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.

Permalänk: https://www.webforum.nu/p/760715

## #9 — timedia, 2002-08-22T07:50Z

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

Jag brottas visserligen också med problem, men det fungerar![Min tråd](http://www.webforum.nu/showthread.php?s=&threadid=49759)

Permalänk: https://www.webforum.nu/p/760737

---

Tråden på webben: https://www.webforum.nu/amne/asp/50723-översättning