Formdan girilen bilgiye göre tablede doğrulama ve yönlendirme

[turkoder]

1. FORMDA GİRİLEN BİLGİYE GÖRE DOĞRULAMA VE YÖNLENDİRME;

Kod:

<%
'//////////////////////////////////////////////////////////////////////////////////////////////////
'// formdan gelen bilgileri alalım
'//////////////////////////////////////////////////////////////////////////////////////////////////
kullanici= Trim(request.form("kullanici"))
sifre=request.form("sifre")
if Len(kullaci)= 0 Then
response.write "<center>Lütfen <a href=""javascript:history.back(1)"">geri</a> gidip Öğrenci No Giriniz!!</center>"
response.end
 
end if
'////////////////////////////////////////
'VERİTABANIMIZI AÇALIM
'//////////////////////////////////////
Dim baglan,yol
yol=server.mappath("db/veritabani.mdb")
Set baglan=Server.CreateObject("ADODB.Connection")
baglan.open " Data Source = "& yol &";Provider=Microsoft.Jet.OLEDB.4.0"

'//////////////////////////////////////////////////////////////////////////////////////////////////
'// RECORDSET TANIMLAYALIM
'//////////////////////////////////////////////////////////////////////////////////////////////////

sqls="select DISTINCT STUR,OGNO,STARIH,SINAVNO from SINAVLAR where OGNO="&kullanici
set kayits=server.createobject("adodb.recordset")
SQL=sqls
kayits.open SQL, baglan, 1, 3

'//////////////////////////////////////////////////////////////////////////////////////////////////
'// aranan OGNO  varsa ilgili sayfaya yönlendireceğiz.
'//////////////////////////////////////////////////////////////////////////////////////////////////

if not kayits.eof then
session("ogrencimi")="evet"
 ogno=kayits("OGNO")
 
kayits.close
set kayits=Nothing
baglan.close
%>
 <%Response.Redirect "sinav_liste.asp?ogno="&ogno&""%>

'//////////////////////////////////////////////////////////////////////////////////////////////////
Eğer yoksa uyarı mesajlarımızı yazıyoruz.
'//////////////////////////////////////////////////////////////////////////////////////////////////

<%
else
response.write "<center>Hatalı Öğrenci No veya Sınav Bilgileriniz Girilmemiş <br>Veya Yetkili Değilsiniz. <br> Lütfen <a href=""javascript:history.back(1)"">geri</a> gidip tekrar deneyiniz"
kayits.close
set kayits=Nothing
baglan.close
  end if %>