<% islem=Request.QueryString("islem") if islem="ekle" then call ekle end if %>
travesti siteleri ekle, toplist ekle, toplist, site adresleri, travesti siteleri ekleme, viptravesti.com

  Anasayfa | Travesti siteleri | travesti | travesti | dizi izle | jigolo

Site başlık:  
Site adresi:  
Kategori:  
Site açıklama:
Kısaca sitenizi tanıtınız
Sitenizin anahtar kelimeleri:
Kelimeler arası boşluk bırakınız 		 
Site sahibi:  
E-mail adresi:  
 

Aşağıdaki HTML kodunu sitenizin herhangi bir kısmına ekleyiniz.
Eklemeyenlerin başvuruları silinecektir!
 

<%sub ekle Set Sur = Server.CreateObject("ADODB.Connection") Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("disc/linked.mdb") Set yeniasp = Server.CreateObject("ADODB.Recordset") sor = "Select * from links" yeniasp.Open sor,Sur,1,3 Dim siteadi, aciklama, url, email, sahip, islem, marka0, model0, keywords siteadi=Request.Form("siteadi") aciklama=Request.Form("aciklama") url=Request.Form("url") email=Request.Form("email") sahip=Request.Form("sahip") keywords=Request.Form("keywords") marka0=Request.Form("marka0") model0=Request.Form("model0") islem="N" if siteadi="" or aciklama="" or url="" or email="" or sahip="" then Response.Write "

Lütfen tüm alanları doldurunuz...
" Response.End end if yeniasp.AddNew yeniasp("siteadi")=siteadi yeniasp("aciklama")=aciklama yeniasp("url")=url yeniasp("email")=email yeniasp("sahip")=sahip yeniasp("keywords")=keywords yeniasp("marka0")=marka0 yeniasp("model0")=model0 yeniasp("islem")=islem yeniasp.Update Response.Write "
Siteniz incelenip onaylandıktan sonra listedeki yerini alacaktır..
" Response.Write "
Aşağıdaki HTML kodunu sitenizin görünür bir kısmına ekleyiniz..
" Response.Write "
Eklemeyen başvurular silinecektir!
" end sub %>