Skit med mailinglistan (konstiga tecken)

costodia · 2001-09-20, 14:10

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)

Kod:

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

Kod:

 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?

------------------
Mvh Martin Persson
Costodia.com, martinpersson.com, Merinternet.com , Sveriges.com , Sigill.net , dress.nu , mittinternet.com

[Redigerat av costodia den 20 sep 2001]

[Redigerat av costodia den 20 sep 2001]

[Redigerat av costodia den 20 sep 2001]

hakan@4u2.se · 2001-09-20, 16:12

Med Aspmail

Kod:

Mailer.CharSet = 2

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

Kod:

objCDO.Charset = 2

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

hakan@4u2.se · 2001-09-20, 16:12

Med Aspmail

Kod:

Mailer.CharSet = 2

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

Kod:

objCDO.Charset = 2

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

costodia · 2001-09-20, 17:54

Då får jag upp

Kod:

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?

------------------
Mvh Martin Persson
Costodia.com, martinpersson.com, Merinternet.com , Sveriges.com , Sigill.net , dress.nu , mittinternet.com

hakan@4u2.se · 2001-09-20, 18:50

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

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

icaaq · 2001-09-20, 20:24

du kan ju testa någon av dessa:

Kod:

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

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

Set objCDO = Nothing

det kanske blir bättre...

------------------
attans

[Redigerat av icaaq den 20 sep 2001]

[Redigerat av icaaq den 20 sep 2001]

emission · 2001-09-20, 20:51

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

costodia · 2001-09-21, 06:32

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

------------------
Mvh Martin Persson
Costodia.com, martinpersson.com, Merinternet.com , Sveriges.com , Sigill.net , dress.nu , mittinternet.com

2001-09-20, 16:12	#2
hakan@4u2.se Medlem Registrerad: 2000-08-14 Ort: Mjölby Inlägg: 334 Lösningar: 0	Med Aspmail Kod: Mailer.CharSet = 2 I ditt fall borde det bli, värt ett försök Kod: objCDO.Charset = 2 ------------------ - Hakan@4u2.se - ------------------ __________________ - Hakan@4u2.se - ------------------

2001-09-20, 16:12	#3
hakan@4u2.se Medlem Registrerad: 2000-08-14 Ort: Mjölby Inlägg: 334 Lösningar: 0	Med Aspmail Kod: Mailer.CharSet = 2 I ditt fall borde det bli, värt ett försök Kod: objCDO.Charset = 2 ------------------ - Hakan@4u2.se - ------------------ __________________ - Hakan@4u2.se - ------------------

2001-09-20, 17:54	#4
costodia Medlem Registrerad: 2000-08-18 Ort: Lund Inlägg: 780 Lösningar: 2	Då får jag upp Kod: 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? ------------------ Mvh Martin Persson Costodia.com, martinpersson.com, Merinternet.com , Sveriges.com , Sigill.net , dress.nu , mittinternet.com __________________ [1] Martin Persson http://www.mittinternet.com/

2001-09-20, 18:50	#5
hakan@4u2.se Medlem Registrerad: 2000-08-14 Ort: Mjölby Inlägg: 334 Lösningar: 0	Kolla dokumentationen efter den emailkomponenten...finns säkert online! ------------------ - Hakan@4u2.se - ------------------ __________________ - Hakan@4u2.se - ------------------

2001-09-20, 20:24	#6
icaaq Medlem Registrerad: 2000-10-01 Ort: Mora, jobbar i sthlm Inlägg: 4 910 Lösningar: 103	du kan ju testa någon av dessa: Kod: Set objCDO = Server.CreateObject("CDONTS.NewMail") With objCDO .To = emails .From = "feldentrbg@swipnet.se" '#### ÄNDRA TILL DIN EMAIL-ADRESS #### .Subject = subject .Body = comm .MailFormat = cdoMailFormatMIME eller ..mailFormat = cdoMailFormatText .Send End With Set objCDO = Nothing det kanske blir bättre... ------------------ attans [Redigerat av icaaq den 20 sep 2001] [Redigerat av icaaq den 20 sep 2001] __________________ When I work I have lot's of fun. vi söker folk, www.icaaq.com, twitter mv icaaq

2001-09-20, 20:51	#7
emission Medlem Kalebass Registrerad: 1999-12-09 Ort: Norrköping Inlägg: 6 095 Lösningar: 1233	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 __________________ "Leksak ansvarig till vara rensade med vätska de/vi/du/ni är till vara avbröt från omskapare framför rensningen"

2001-09-21, 06:32	#8
costodia Medlem Registrerad: 2000-08-18 Ort: Lund Inlägg: 780 Lösningar: 2	Jo, det var så jag gjorde, som du emission skriver, och det funkade ------------------ Mvh Martin Persson Costodia.com, martinpersson.com, Merinternet.com , Sveriges.com , Sigill.net , dress.nu , mittinternet.com __________________ [1] Martin Persson http://www.mittinternet.com/

Trådverktyg
Visa utskriftsvänlig version E-posta den här sidan
Visningsalternativ
Linjär visning Växla till hybrid-visning Växla till trådad visning