<% kullanici=TEMIZLE(request("userid")) sifre=TEMIZLE(request("userpass")) if Request("ENTER") = "Tamam" then Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "sorgu" Authsql="SELECT * FROM table1 WHERE Username='" & kullanici & "' AND Pass='" & sifre & "'" set AuthList=Conn.Execute(Authsql) if AuthList.EoF then Session("durum") = 1 ' response.redirect "soru.asp" else session("durum") = 2 AuthList.Close Response.Cookies("Abone")=Request("userid") response.redirect "uclu.asp" end if Conn.Close end if %> Kullanıcı Kontrolü

<% if Session("durum") = 1 then %> Username veya Passwordünüz yanlış girildi!
Lütfen kontrol ederek tekrar deneyiniz...

Abonemiz değilseniz, ana sayfadan Abonelik butonuna tıklayarak Abonelik formuna ulaşabilir, 
gerekli bilgileri girerek bize ulaştırabilirsiniz. Başvurunuz en kısa sürede değerlendirilecektir...
Tel.: 0216 481 28 50 /  412 27 98<% end if %>

Sayın Abonelerimiz,
Aşağıdaki  açıklamaları  izleyerek şifreli girişinizi rahatlıkla yapabilirsiniz
Şahıs Abonelerimiz   Kullanıcı Adı kısmına faturadaki isim soyisim birleşik, küçükharflerle ve türkçe karakter kullanmadan yazınız. Şifre kısmına fatura seri numaranız (örneğin g, h, j, k gibi) harflerle verilmiş fatura no'suyla birlikte bitişik olarak yazınız. Sonra Tamam'ı tıklatınız.
Tüzel Kişi Abonelerimiz  Kullanıcı Adı kısmına şirket isminizin  faturadaki yazılı şekliyle ilk iki kelimesini kullanıcı adı bölümüne yazınız...  Şifre kısmına fatura seri numaranız (örneğin g, h, j, k gibi) harflerle verilmiş fatura no'suyla birlikte bitişik olarak yazınız. Sonra Tamam'ı tıklatınız. Sorun yaşadığınızda 0216- 481 28 50 / 412 27 98 nolu telefonlardan yardım alabilirsiniz veya E-mail ile durumu bildirebilirsiniz.
NOT: Kullanıcı adı değişmemek kaydı ile  Abone olma ve yenileme esnasında özel şifre alma imkanınız vardır. .

Kullanıcı Adınız :

Şifre :

Bilgilerinizi küçük harflerle bitişik yazınız.
Lütfen TÜRKÇE karekter kullanmayınız.
ç yerine c   ğ yerine g
ı yerine i     ş yerine s
ü yerine u     ö yerine o
KULLANINIZ.

Ana Sayfa