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