<%=ekart_baslik%>

<% '############################################################################### '# CCCCCCC OOOOOOO RRRRR V V U U SSSS # '# C C O O R R V V U U S # '# C O O RRRRR V V U U SSSS # '# C O O R R V V U U S # '# C C O O R R V V U U S S # '# CCCCCCC OOOOOOO R R V UUUUUU SSSS # '# # '# E-Kart Servisi Scripti Versiyon 0.5 23/04/2003 # '# # '# Bu scriptin bütün hakları CORVUS` a aittir. # '# Scripti, bu satırları silmemek şartıyla ücretsiz kullanabilirsiniz. # '# Önerilerinizi ve scripteki hataları mail aracılığıyla bildirebilirsiniz. # '# Ayrıntılı kurulum, özellik ve kullanım bilgileri için BeniOku.htm dosya- # '# sına bakabilirsiniz. # '# # '# admin@DiyalogTR.Com http://www.DiyalogTR.Com # '# # '############################################################################### %> <% kimden = Request("kimden") kimdene = Request("kimdene") kimdene = Replace(kimdene, " ", "") kime = Request("kime") kimee = Request("kimee") kimee = Replace(kimee, " ", "") adresbar = server.HTMLencode("kimden=" & kimden & "&kimdene=" & kimdene & "&kime=" & kime & "&kimee=" & kimee) adresbar = Replace(adresbar, " ", "%20") katid = Request.QueryString("katid") resid = Request.QueryString("resid") if resid = "" Then Response.Redirect "." End If %> <%=ekart_baslik%>

DiyalogTR.Com E-kart Servisi

<% Set oRS = Baglanti().Execute("SELECT * FROM kart WHERE resid=" & resid) %> ">

<% oRS.Close Set oRS = Nothing %>

Adınız :
E-mail adresiniz :

Alıcının adı :
Alıcının e-mail adresi :

Başlık :

Mesaj :

karakter kaldı

Arkaplan rengi :

Kenarlık rengi :

<% Set oRS = Baglanti().Execute("SELECT * FROM back ORDER BY backid") back=0 %> <%Do while not oRS.Eof%> <% oRS.MoveNext back=back+1 if back mod 5=0 then %> <% end if Loop %>

" width="55" height="55">
">

Müzik (midi):

Yazı Tipi :

	Arial			Times New Roman
	Verdana			Helvetica

Kart okunduğunda, size haber verilsin mi?
Evet Hayır

Kartın bir kopyasını istiyor musunuz?
Evet Hayır