[an error occurred while processing this directive]
[an error occurred while processing this directive]
<%
if request("z") = "" then
if request("cmdGiris") <> "" then
sKullaniciKodu = request("txtKullaniciKodu")
sParola = request("txtParola")
set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open sConnAdmin
set rs.ActiveConnection = conn
rs.CursorType = adOpenStatic
sSQL = "SELECT * FROM Kullanicilar WHERE KullaniciKodu = '" & sKullaniciKodu & "'"
rs.Open sSQL, , , adCmdTable
if rs.RecordCount > 0 then
if rs("Parola") = sParola then
session("KullaniciKodu") = sKullaniciKodu
session("KullaniciAdi") = rs("KullaniciAdi")
response.redirect "admin.asp"
end if
end if
bGirisBasarisiz = True
end if
else
bGirisBasarisiz = True
sErrorMessage = "Lütfen Sisteme yeniden giriş yapın"
end if
%>