Sipariş formum çalışmadı

Merhaba,
hazırlamış olduğum sipariş formu bir domainim üzerinde çalışıyor.
fakat diğer bir hosta farklı bir firmadan açılan hesaba dosyayı atınca.
hata kodu üretiyor.

jmail ile desteklenmiş bir script.
bunu hangi bileşenler ile değiştirmeliyim.
hostu natrodan aldı arkadaşım.



<%
urun=Request.Form("urun")
adet=Request.Form("adet")
adsoy=Request.Form("adsoy")
adres=Request.Form("adres")
odeme=Request.Form("odeme")
tel=Request.Form("Tel")
adres=Request.Form("adres")
mesaj=Request.Form("mesaj")
email=Request.Form("email")
zaman=Now

If urun="Ürünü Seçiniz" or urun="" Then
Response.Write "Ürünü Seçmelisiniz..."
ElseIf adet="" Then
Response.Write "Adet giriniz.."
ElseIf adsoy="Ad ve Soyadınız" or adsoy="" Then
Response.Write "Ad ve Soyadınızı giriniz"
ElseIf tel="Telefon" or tel="" Then
Response.Write "Telefon numaranızı giriniz"
Elseif odeme="Seçiniz" or odeme="" Then
Response.Write "Ödeme şeklini seçiniz"
Elseif email="E-mail" or email="" Then
Response.Write "E-mail adresini giriniz"
Elseif adres="Adres" or adres="" Then
Response.Write "Kargo adresini giriniz"
Else
set msg = Server.CreateObject( "JMail.Message" )
msg.From = "elektroniksigara@elektroniksigara.tc" 'gönderenin e maili
msg.fromname = "MUCiZE SiGARA SiPARiSi"
msg.Subject = adsoy ' e-mail ba?lyk
msg.appendText "Ürün:" & urun & vbcrlf
msg.appendText "Adet:" & adet & vbcrlf
msg.appendText "Ödeme:" & odeme & vbcrlf
msg.appendText "Ad Soyad:"& adsoy & vbCrLf
msg.appendText "Telefon:" & tel & vbcrlf
msg.appendText "E-mail:" & email & vbcrlf
msg.appendText "Adres:" & adres & vbcrlf
msg.appendText "Mesaj:" & mesaj & vbcrlf
msg.appendText "Tarih:" & zaman & vbcrlf

msg.Logging = true
msg.silent = true
msg.AddRecipient "cinselmucize@hotmail.com", "Elektronik Sigara" ' alıcak e mail.

if not msg.Send( "mail.elektroniksigara.tc" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Siparişiniz Alındı! En kısa zamanda sizinle iletişime geçilecek. Teşekkürler ..."
%>
<br>
<a href="default.asp">Anasayfaya Dön</a>
<%
end if
End If
%>

Teşekkürler.

arkadaşlar persist destekliyormuş uygulamaya aldım fakat.
bu hatayı veriyor

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'msg.appendText'

/sendmail.asp, line 103


ne yapmam lazım sorun acildir!

Kullandığın bileşende appendText komutu yok.Bileşenin örnek kodlarını incelemeni tavsiye ederim..

Kolay gelsin.

persist bileşene göre düzenlenecek kod
arkadaşım şimdi persist olarak kodları değiştirmem lazım ama ben asp den hiç mi hiç anlamam yardımcı olur musun ?

<%
Sayfa = "<TABLE border=1 width=500 bgcolor=#E8F0E8 >"
for each x in request.form
Sayfa = Sayfa & "<TR ><TD>" & x & ":</TD><TD>" & request.form(x)  & " </TD></TR>"
next
Sayfa = Sayfa & "</TABLE>"
%>
<%
Dim MAIL
Set MAIL = Server.CreateObject("Persits.MailSender")
MAIL.Host = "mail.domainadiniz.com"
MAIL.From = "gonderenmail@domainadiniz.com" 'bizden aldığınız mail olmalı
MAIL.Username = "gonderenmail@domainadiniz.com" ' Gönderen email ile aynı olmalı
MAIL.Password = "mailşifrem" ' e-Mailinizin şifresini giriniz
MAIL.FromName = "Görünen adınız" ' emailin gönderen adı, istediğinizi yazabilirsiniz.

MAIL.AddAddress "alicimail@domainadiniz.com" ' mail göndermek istediğiniz email adresi
MAIL.Subject = "mail Konusu"
MAIL.IsHTML = True
MAIL.Body = Sayfa
MAIL.Send

set MAIL = nothing
%>

<%
urun=Request.Form("urun")
adet=Request.Form("adet")
adsoy=Request.Form("adsoy")
adres=Request.Form("adres")
odeme=Request.Form("odeme")
tel=Request.Form("Tel")
adres=Request.Form("adres")
mesaj=Request.Form("mesaj")
email=Request.Form("email")
zaman=Now

If urun="Ürünü Seçiniz" or urun="" Then
Response.Write "Ürünü Seçmelisiniz..."
ElseIf adet="" Then
Response.Write "Adet giriniz.."
ElseIf adsoy="Ad ve Soyadınız" or adsoy="" Then
Response.Write "Ad ve Soyadınızı giriniz"
ElseIf tel="Telefon" or tel="" Then
Response.Write "Telefon numaranızı giriniz"
Elseif odeme="Seçiniz" or odeme="" Then
Response.Write "Ödeme şeklini seçiniz"
Elseif email="E-mail" or email="" Then
Response.Write "E-mail adresini giriniz" 
Elseif adres="Adres" or adres="" Then
Response.Write "Kargo adresini giriniz"
Else
set msg = Server.CreateObject( "JMail.Message" )
msg.From = "elektroniksigara@elektroniksigara.tc" 'gönderenin e maili
msg.fromname = "MUCiZE SiGARA SiPARiSi"
msg.Subject = adsoy ' e-mail ba?lyk
msg.appendText "Ürün:" & urun & vbcrlf 
msg.appendText "Adet:" & adet & vbcrlf
msg.appendText "Ödeme:" & odeme & vbcrlf 
msg.appendText "Ad Soyad:"& adsoy & vbCrLf
msg.appendText "Telefon:" & tel & vbcrlf
msg.appendText "E-mail:" & email & vbcrlf 
msg.appendText "Adres:" & adres & vbcrlf
msg.appendText "Mesaj:" & mesaj & vbcrlf
msg.appendText "Tarih:" & zaman & vbcrlf

msg.Logging = true
msg.silent = true
msg.AddRecipient "cinselmucize@hotmail.com", "Elektronik Sigara" ' alıcak e mail.

if not msg.Send( "mail.elektroniksigara.tc" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Siparişiniz Alındı! En kısa zamanda sizinle iletişime geçilecek. Teşekkürler ..."
%>
<br>
<a href="default.asp">Anasayfaya Dön</a>
<%
end if
End If
%>

bana e-posta sunucunu yazarmısın?

mail.siteadresi.com şeklindedir genelde.Bilmiyorsan hosting sağlayıcından öğrenebilirsin..

Edit: gördüm, gözümden kaçmış..

İşim vardı geç ynt verdim.

<% 

urun=Request.Form("urun") 
adet=Request.Form("adet") 
adsoy=Request.Form("adsoy") 
adres=Request.Form("adres") 
odeme=Request.Form("odeme") 
tel=Request.Form("Tel") 
adres=Request.Form("adres") 
mesaj=Request.Form("mesaj") 
email=Request.Form("email") 
zaman=Now 


If urun="Ürünü Seçiniz" or urun="" Then 
Response.Write "Ürünü Seçmelisiniz..." 
ElseIf adet="" Then 
Response.Write "Adet giriniz.." 
ElseIf adsoy="Ad ve Soyadınız" or adsoy="" Then 
Response.Write "Ad ve Soyadınızı giriniz" 
ElseIf tel="Telefon" or tel="" Then 
Response.Write "Telefon numaranızı giriniz" 
Elseif odeme="Seçiniz" or odeme="" Then 
Response.Write "Ödeme şeklini seçiniz" 
Elseif email="E-mail" or email="" Then 
Response.Write "E-mail adresini giriniz"  
Elseif adres="Adres" or adres="" Then 
Response.Write "Kargo adresini giriniz" 
Else 


sayfa = adsoy ' e-mail ba?lyk 
sayfa = sayfa & "Ürün:" & urun & vbcrlf  
sayfa = sayfa & "Adet:" & adet & vbcrlf 
sayfa = sayfa & "Ödeme:" & odeme & vbcrlf  
sayfa = sayfa & "Ad Soyad:"& adsoy & vbCrLf 
sayfa = sayfa & "Telefon:" & tel & vbcrlf 
sayfa = sayfa & "E-mail:" & email & vbcrlf  
sayfa = sayfa & "Adres:" & adres & vbcrlf 
sayfa = sayfa & "Mesaj:" & mesaj & vbcrlf 
sayfa = sayfa & "Tarih:" & zaman & vbcrlf 

Dim MAIL 
Set MAIL = Server.CreateObject("Persits.MailSender") 
MAIL.Host = "mail.elektroniksigara.tc" 
MAIL.From = "elektroniksigara@elektroniksigara.tc" 'bizden aldığınız mail olmalı 
MAIL.Username = "elektroniksigara@elektroniksigara.tc" ' Gönderen email ile aynı olmalı 
MAIL.Password = "mailşifrem" ' e-Mailinizin şifresini giriniz 
MAIL.FromName = "MUCiZE SiGARA SiPARiSi" ' emailin gönderen adı, istediğinizi yazabilirsiniz. 
 
MAIL.AddAddress email' mail göndermek istediğiniz email adresi 
MAIL.Subject = "Elektronik Sigara" 
MAIL.IsHTML = True 
MAIL.Body = sayfa 
MAIL.Send 
 
set MAIL = nothing 

if err.number<>0 then
response.write (err.number & " | " & err.description)
else 
Response.write "Siparişiniz Alındı! En kısa zamanda sizinle iletişime geçilecek. Teşekkürler ..." 
%> 
<br> 
<a href="default.asp">Anasayfaya Dön</a> 
<% 
end if 
end if 

%>  

siyah ve kalın olan yere mail şifrenizi yazın.Kodu kontrol etmedim umarım çalışır çalışmazsa buradayım...
Msn: ozcan@tagdizayn.com

İyi Çalışmalar.

sağolun herşey için.
benim de işler yoğun olduğu için ancak şu an bakabildiğim konuya.
ilgilendiğin için tekrar sağol.
yarın işyerinde test yapacağım
ekliyorum msn'ye.