Asp Toplu Mail Gönderme

* AZ ÖNCE KODLANDI. DENENDİ.

TOPLU MAİL GÖNDER

<%
mode = request.querystring("mode")

' ------------------ [MAİL AYARLARI] ------------------
SMTPKullaniciAdi = "bilgi@sorhocam.com"
SMTPSifre = "XXXXXXXX"
SMTPSunucuAdresi = "smtp.sorhocam.com"
DomainAdi = "sorhocam.com"

if mode = "kontrol" then
call kontrol
elseif mode = "gonder" then
call gonder
else
call mail
end if
%>

<%sub mail%>

Konu

Süre

<%end sub%>

<%
sub kontrol
session.timeout = 1440
session("sure") = Request.Form("Sure")
session("konu") = Request.Form("Konu")
session("mesaj") = Request.Form("Mesaj")
response.redirect "?mode=gonder"
end sub
%>

<%
Sub gonder
On Error Resume Next
sira = request.querystring("sira")
if sira = "" then
sira = "1"
else
sira = sira
end if

SMTPSunucuAdresi = "smtp."+DomainAdi
GonderenAdSoyad = SMTPKullaniciAdi
GonderenKisi = SMTPKullaniciAdi

Set MKonf = CreateObject("CDO.Configuration")
Sch = "http://schemas.microsoft.com/cdo/configuration/"
Set Alnlr = MKonf.Fields
With Alnlr
.Item(Sch & "sendusing") = 2
.Item(Sch & "smtpserver") = SMTPSunucuAdresi
.Item(Sch & "smtpserverport") = 587
.Item(Sch & "smtpauthenticate") = 1
.Item(Sch & "sendusername") = SMTPKullaniciAdi
.Item(Sch & "sendpassword") = SMTPSifre
.Update
End With

for i = 1 to 1
set rs = conn.execute("select id,adi,soyadi,email from tbl where id="&sira&"")
if rs.eof then exit for
AliciKisi = rs("email")
Set CDOM = CreateObject("CDO.Message")
CDOM.Configuration = MKonf
CDOM.From = GonderenAdSoyad & "<" & GonderenKisi & ">"
CDOM.To = AliciKisi
CDOM.Subject = Session("konu")
CDOM.HtmlBody = Session("mesaj")
CDOM.Send
Response.write "Konu : "&session("konu")&"

---

"
Response.write rs("adi")&" "&rs("soyadi")&"

"
Response.write rs("email")&"

"
Response.write ""&sira&" gonderiliyor... "
Response.Write""
next
Set CDOM = Nothing : Set Alnlr = Nothing : Set MKonf = Nothing
rs.close : set rs = nothing
end sub
%>

selamlar ASP ile ilgili bir sorun hakkında pm atabilir miyim sana?

burdan sor herkes öğrensin.

@Arafa Haklısın. Daha iyi olur. Şimdi benim sorunum şu: ASP ile içinde onlarca node ve bu node'lara tanımlı tonlarca attribute olan bir xml den veri çekmeye çalışıyorum. Bu XML'in attribute'larının isimlerinde Türkçe karakterler kullanılmış. Örnek olarak :

Açıklama içeriği Benim açıklama attribute'u içindeki değeri almam gerekiyor. Türkçe karakter olmayan attr. lerde sorun yok onları çekebiliyorum ama bunlar gelmiyor. charset'leri, codepage, charset vs. ne varsa denedim olmuyor. Kodum da şu şekilde:

<%
Dim productList, product

Set productList = Server.CreateObject("MSXML2.DOMDocument.3.0")
productList.async = False
productList.load Server.MapPath("ProductList3_tr.xml")

For Each product In productList.selectNodes("/root/urun")

aciklama = GetText(product, "./ozellik[@tanim='Açıklama']")
Response.Write "Açıklama:" & Server.HTMLEncode(aciklama) & "
-------------------
"

Next

Function GetText(context, xpath)
Dim node
GetText = ""
If Not context Is Nothing And xpath > "" Then
Set node = context.selectSingleNode(xpath)
If Not node Is Nothing Then GetText = node.text
End If
End Function

%>

Belki sen bu Türkçe karakterli attribute'ların değerlerini nasıl alabileceğimi söyleyebilirsin bana. Aynı konuyu Stackoverflow'da da tartışıyorum biriyle henüz çözüm bulamadık malesef.

edit: cümle yapısı.

productList.load Server.MapPath("ProductList3_tr.xml")
bu yolun tam uzantısını bana özelden atar mısın.