ufak bi yardım yardım edermisiniz lütfen...

[Haberciden]

merhaba arkadaşlar elimde bir forum var sipariş forumu yanlız bu sipariş formu

Set Mail = Server.CreateObject("Persits.MailSender")


persits mailsender bileşeni ile çalışıyor

yanlız benim sistemde yani hostta bu bileşen yüklü olmadığından ben bunu


Set ObjSendMail1 = Server.CreateObject("CDO.Message")

bleşeni yapmak istiyorum. bu konuda bana yardım edebilirmisiniz aslında ben yaptım ama forumdaki doldurduğum alanlar gelmiyor. forum altta.

<%

mailto="......." ' mailin gönderileceği adres. virgül ile ayırarak birden fazla adres girebilirsiniz.
strHost = "......" ' email sunucumuzun adresi
kullanici = "....." ' pop3 email hesabımızın kullanıcı adı
sifre = "........." ' ' pop3 email hesabımızın sifresi
konu= "Adwords için yeni sipariş alındı." ' Adresimize gelecek email için konu

%>
<%if sendemail="gonder" then%>
<%
getOdeme = request.QueryString("o")
if getOdeme<>"" then
		if getOdeme = "0" then odemesekli="Banka Havalesi / EFT" 
		if getOdeme = "1" then odemesekli="Posta Çeki" 

else
odemesekli ="Kredi Kartı"
end if



html=html&"<span><font face='Verdana, Arial, Helvetica, sans-serif' size='-1'>"
html=html&"------------------ "
html=html&"<br><b>Müşteri Bilgileri</b><br>"
html=html&"------------------"
html=html&"<br><b>Adı Soyadı           :</b> "&session("ad")
html=html&"<br><b>Firma Adı            :</b> "&session("firma")
html=html&"<br><b>Sabit Telefon        :</b> "&session("sabit_tel")
html=html&"<br><b>GSM                  :</b> "&session("gsm")
html=html&"<br><b>E-posta Adresi       :</b> "&session("email")
html=html&"<br><b>Web Sitesi           :</b> "&session("websitesi")
html=html&"<br><b>Ev/İş Adresi         :</b> "&session("isadresi")
html=html&"<br>"
html=html&"------------------ "
html=html&"<br><b>Fatura Bilgileri</b><br>"
html=html&"------------------ "
html=html&"<br><b>Ticari Ünvanı        :</b> "&session("unvan")
html=html&"<br><b>Vergi Numarası       :</b> "&session("vergino") 
html=html&"<br><b>Vergi Dairesi        :</b> "&session("vergidairesi")
html=html&"<br><b>Fatura Adresi        :</b> "&session("faturaadresi")
html=html&"<br>"
html=html&"------------------ "
html=html&"<br><b>Sipariş Bilgileri</b><br>"
html=html&"------------------ "
html=html&"<br><b>Paket Adı            :</b> "&session("sp_paket")
html=html&"<br><b>Toplam Tutarı        :</b> "&session("sp_toplamucret")
html=html&"<br><b>Ödeme Şekli          :</b> "&odemesekli
html=html&"<br>"
html=html&"------------------ "
html=html&"<br><b>İlan Bilgileri</b><br>"
html=html&"------------------ "
html=html&"<br><b>Başlık               :</b> "&session("sp_baslik")
html=html&"<br><b>Hedef URL            :</b> "&session("sp_hedefurl")
html=html&"<br><b>Açıklama Satırı 1    :</b> "&session("sp_aciklama1")
html=html&"<br><b>Açıklama Satırı 2    :</b> "&session("sp_aciklama2")
html=html&"<br><b>Seçilen Ülkeler      :</b><br> "&replace(session("sp_ulkeler"),",","<br>")
html=html&"<br><b>Anahtar Kelimeler    :</b><br> "&replace(session("sp_kelimeler"),vbNewLine,", ")
html=html&"<br><b>Müşterinin Notu      :</b><br> "&session("sp_mesaj")
html=html&"</font></span>"
														
																	
																		

Set Mail = Server.CreateObject("Persits.MailSender")
   
   Mail.Host = strHost
   Mail.Charset = "Windows-1254"
   Mail.From = session("email")  ' From address
   Mail.FromName = session("ad") &" - "& session("firma") 
   Mail.AddAddress mailto
   Mail.Username = kullanici
   Mail.Password = sifre
   Mail.Port = 25
   Mail.Subject = konu
   Mail.IsHTML = True
   Mail.Body = html
   strErr = ""
   bSuccess = False
   'On Error Resume Next 
   Mail.Send 

   If Err <> 0 Then 
      strErr = Err.Description
   else
      bSuccess = True
End If


 If bSuccess = false Then 
response.Write("Hata Oluştu:"&  strErr) 
response.Write("<br> Lütfen siparis@xxxxx.com adresine email gönderek veya 0(xxxx) 449 44 xx nolu telefondan arayarak ödeme yaptığınızı teyit ettiriniz.")

 End If 
 
%>

<%=strErr%>

<%end if%>

bunu nasıl düzenleriz bi yardım edermisini.