---
title: "Skit med mailinglistan (konstiga tecken)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11711-skit-med-mailinglistan-konstiga-tecken"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "costodia"
published: "2001-09-20T13:10:00.000Z"
updated: "2001-09-21T05:32:00.000Z"
replies: 7
views: 263
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/11711-skit-med-mailinglistan-konstiga-tecken"
---

# Skit med mailinglistan (konstiga tecken)

## #1 — costodia, 2001-09-20T13:10Z

För er som följt mina andra inlägg så vet ni att jag höll på att trixa med cdonts men inte fick någon reda på det.

Istället så bestämde jag min för att ladda hem en färdig mailinglista från myscripts.com.il eller vad det hette, allting gick bra tills det jag hade skickat mailet med denna (send.asp) 

```
<%
option explicit'must be declared
%>
<!--#include file="config.inc"-->
<%
response.buffer = true
Server.ScriptTimeout = 1000000

dim useraction,subject,comm,emails,conn,rs,sql
dim totalMails

Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT emails from emails"
rs.Open SQL, Conn, 1, 3
totalMails = rs.recordcount

useraction=request("action")
select case useraction
case "send"
	Set Conn = Server.CreateObject("ADODB.Connection")
	Set Rs = Server.CreateObject("ADODB.Recordset")
    Conn.Open dsn
    SQL = "SELECT emails from emails order by id"
	rs.open sql,conn
	do while not rs.eof
		emails=rs("emails")
		subject = request.form("subject")
		comm = request.form("comm")
		Dim objCDO
		Set objCDO = Server.CreateObject("CDONTS.NewMail")
		objCDO.To = emails
		objCDO.From = "feldentrbg@swipnet.se"		'#### ÄNDRA TILL DIN EMAIL-ADRESS ####
		objCDO.Subject = subject
		objCDO.Body = comm
		objCDO.Send
		rs.movenext
	loop
	set objCDO = nothing
	rs.close
	set rs = nothing
	conn.close
	set conn = nothing
	response.write "<script>alert('Brevet är skickat!');"
	response.write "location.href='index.asp'</script>"
	response.end
end select
rs.close
	set rs = nothing
	conn.close
	set conn = nothing
%>
<HTML>
<HEAD>
<script>
function openwin()
{
	NewWindow =window.open("hebrew.htm","hebrew","width=500,height=200")
}
function submitit(){
var email=document.subform.email.value;
if (email==""){
alert("Fyll i din Email")
document.subform.email.focus()
return false
	}
if (email.indexOf('@', 0) == -1 &#0124;&#0124; email.indexOf('.', 0) == -1){ alert("Ogiltig emailadress!");
		document.subform.email.focus()
		return false
		}
}

</script>
<style>
BODY
{
    BACKGROUND-COLOR: white;font-size:14px;font-family:Arial,Verdana;
}
a
{
color:blue;text-decoration:none;
}

a:hover
{
color:red;text-decoration:underline;
}

td
{
font-size:12px;font-family:Arial,Verdana;
}

.inputSubmit
{
font-size:7pt;
color:white;
background-color: black;
BORDER-BOTTOM: 1px solid;
BORDER-LEFT: 1px solid;
BORDER-RIGHT: 1px solid;
BORDER-TOP: 1px solid;
z-index:10;
}

.inputBut
{
font-family:Arial,Verdana;
font-size:10pt;
background-color: white;
BORDER-BOTTOM: 1px solid;
BORDER-LEFT: 1px solid;
BORDER-RIGHT: 1px solid;
BORDER-TOP: 1px solid;
z-index:10;
}

</style>
<TITLE>mysub</TITLE>

</HEAD>
<BODY BGCOLOR=#FFFFFF>
<!-- ImageReady Slices (mysub.gif) -->
<TABLE align="center" BORDER=0 CELLPADDING=0 CELLSPACING=0>
	<TR>
		<TD COLSPAN=3>
			<IMG SRC="images/mysub_01.gif" WIDTH=530 HEIGHT=10></TD>
	</TR>
	<TR>
		<TD ROWSPAN=5>
			<IMG SRC="images/mysub_02.gif" WIDTH=8 HEIGHT=330></TD>
		<TD>
			<IMG SRC="images/mysub_03.gif" WIDTH=390 HEIGHT=63></TD>
		<TD ROWSPAN=5>
			<IMG SRC="images/mysub_04.gif" WIDTH=132 HEIGHT=330></TD>
	</TR>
	<TR>
		<TD WIDTH=390 HEIGHT=220 valign=top>
			<form action="send.asp?action=send" method="post">
<table><tr><td>
Rubrik:</td><td><input class="inputBut" type="text" name="subject" size=20 maxlength=30></tr></td>
<tr><td>
Text:</td><td><textarea class="inputBut" cols=27 rows=8 name="comm"></textarea></tr></td>
<tr><td colspan=2><input type=submit class="inputSubmit" name=submit value="Skicka">
</form>
</table></TD>
	</TR>
	<TR>
		<TD>
			<IMG SRC="images/mysub_06.gif" WIDTH=390 HEIGHT=11></TD>
	</TR>
	<TR>
		<TD WIDTH=390 HEIGHT=28>
			Antal användare : <%=totalMails%>    <a href="index.asp">Tillbaka</a> &#0124; <a href="edit.asp">Radera användare</a></TD>
	</TR>
	<TR>
		<TD>
			<IMG SRC="images/mysub_08.gif" WIDTH=390 HEIGHT=8></TD>
	</TR>
</TABLE>
<!-- End ImageReady Slices -->
</BODY>
</HTML>
```

 
Detta gick bra men när mailiet var utskcikat ochkom in i mailprogrammen till läsarna så hade *Torsdagar: 18.00 – 19.00* till 

```
 Torsdagar: Torsdagar: 18.00 & # 8 2 1 1 ; 19.00
```

 (utan alla dessa mellanslag, men även webforum fattar det fel så jag måste göra så för att kunna visa det) vilket jag inte alls varför den gör så. Någon som vet om detta går att lätta till?

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

## #2 — hakan@4u2.se, 2001-09-20T15:12Z

Med Aspmail 

```
Mailer.CharSet = 2
```

I ditt fall borde det bli, värt ett försök

```
objCDO.Charset = 2
```

\------------------
\-  Hakan@4u2.se  -

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

## #3 — hakan@4u2.se, 2001-09-20T15:12Z

Med Aspmail 

```
Mailer.CharSet = 2
```

I ditt fall borde det bli, värt ett försök

```
objCDO.Charset = 2
```

\------------------
\-  Hakan@4u2.se  -

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

## #4 — costodia, 2001-09-20T16:54Z

Då får jag upp 

```
Microsoft VBScript runtime  error '800a01b6'

Object doesn't support this property or method: 'Charset'

/feldenkrais/mysub/admin/send.asp, line 39
```

Kankse det kan heta någonting annat och i så fall vad?

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

## #5 — hakan@4u2.se, 2001-09-20T17:50Z

Kolla dokumentationen efter den emailkomponenten...finns säkert online!

\------------------
\-  Hakan@4u2.se  -

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

## #6 — icaaq, 2001-09-20T19:24Z

du kan ju testa någon av dessa:

```
Set objCDO = Server.CreateObject("CDONTS.NewMail")

With objCDO
    .To = emails
    .From = "feldentrbg@swipnet.se" '#### ÄNDRA TILL DIN EMAIL-ADRESS ####
    .Subject = subject
    .Body = comm
[b].MailFormat = cdoMailFormatMIME[/b]
eller
    .[b].mailFormat = cdoMailFormatText[/b]
    .Send
End With

Set objCDO = Nothing
```

det kanske blir bättre... :)

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

## #7 — emission, 2001-09-20T19:51Z

Det skulle kräva att man inkluderade något i stil med cdovbs.inc, men en sådan fil finns inte.

Alltså får man deklarera värdena själv

cdoMailFormatMIME=0
cdoMailFormatText=1

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

## #8 — costodia, 2001-09-21T05:32Z

Jo, det var så jag gjorde, som du emission skriver, och det funkade :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11711-skit-med-mailinglistan-konstiga-tecken
