1. FORMDA GİRİLEN BİLGİYE GÖRE DOĞRULAMA VE YÖNLENDİRME; <%
'//////////////////////////////////////////////////////////////////////////////////////////////////
'// 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 %>