<%
IF Request.QueryString("@")="girdi" Then
Session("giris") ="tamam"
k_adi=veri(Request.Form("k_adi"))
sifre=veri(Request.Form("sifre"))
Set uye_giris = Server.CreateObject("adodb.recordset")
SQL="Select * from admin where k_adi='"&k_adi&"' and sifre='"&sifre&"'"
uye_giris.open SQL,baglanti,1,3
IF Not uye_giris.EOF Then
Session("giris") ="tamam"
Session("k_adi")=uye_giris("k_adi")
Session("oid")=uye_giris("id")
uye_giris.Update
response.redirect Request.ServerVariables("HTTP_REFERER")
Else
Response.Write ""
Response.Write ""
End IF
End IF
%>
<% IF Not session("giris")="tamam" Then %>
<%End If%>
<% IF session("giris")="tamam" Then %>
<%
baglanti.execute("delete from mesaj where id="&request("id")&"")
response.redirect "defterdefault.asp"
%>
<%end if%>