<!--#include file="dahili.asp"-->
<%
if Session("UserLoggedIn") <> "true" then
Giris
End If %>
<%
Sub Giris
Set Baglanti=Server.CreateObject("Adodb.Connection")
Baglanti.Open Cumle
Set Rs=Server.CreateObject("ADODB.RECORDSET")
Sorgu="Select * from admins where admin_adi = '" & k_a & "' and sifre = '" & sifre & "'"
Rs.Open Sorgu, Baglanti, 1, 3
If RS.BOF and RS.EOF then
%>

<% else
Session("UserLoggedIn") = "true"
Rs.Update
Session("usersNo")=Rs("id")
Session("k_a")=Rs("admin_adi")
End If
End Sub
%>