Kafkas arkadaşlık sitesi

Geri
Domain sorgulama
yeni
Uye Giris
Kayıt Ol

E mailinizi ekleyin kazanın

Listemiz

 Yeni Mail Gir

Emailiniz:


10 <%@ LANGUAGE="VBScript" %> <%Option Explicit%> e-Mail sil <% Dim con, rs, strSql If Request.Form("cmdSubmit") <> "" Then Set con = GetDBConnection() strSql = "SELECT Email FROM abone WHERE Email = '" + Request.Form("txtEmail") + "'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSql, con, 1, 2 If Not(rs.EOF) Then rs.Delete() rs.Update() Response.Write "

"& Request.Form("txtEmail") &"
Başarıyla Silindi" Else Response.Write "

"& Request.Form("txtEmail") &"
Sistememizde kayıtlı değil." End If rs.Close() Set rs = Nothing con.Close() Set con = Nothing Else %>
Sileceğiniz e-mail adresini girin:

<% End If %>
ip-numaram.com IP adresi
www.sozluktr.com
İsim Sözlüğü

TEMA Trkiye Erozyonla Mcadele Ağalandırma ve Doğal Varlıkları Koruma Vakfı   Deniz Feneri Yardımlaşma ve Dayanışma Derneği   Doğa Derneği   Doğal Hayatı Koruma Derneği

www.kafder.cjb.net sitesi = ©aquatic. sitesinde yararlanmıştır.