<%
'Charles Roos, 2002-21-10, ASP'i exam.
%>
Tere!
<%
set cn=server.createObject("ADODB.Connection")
cn.open("DSN=exam")
%>
<%
cgiEesNimi =Request("cgiEesNimi")
cgiPereNimi =Request("cgiPereNimi")
cgiParool =Request("cgiParool")
'response.write cgiEesNimi & "," & cgiPereNimi & "," & cgiParool
sqlSelect1="SELECT * FROM Paevik Where Eesnimi='" & cgiEesNimi & "' and perenimi='" & cgiPereNimi & "'"
set rs=cn.execute(sqlSelect1)
blnAutenditud=false
if not rs.EOF Then
'response.write "leidub"
if rs("Parool")<>"" Then'parool on juba olemas
'kontrollime, kas parool sisestati õigesti:
if rs("Parool")=cgiParool Then
response.write "parool oli õige!"
blnAutenditud=true
Else
response.write "parool oli vale"
End if
Else'parooli veel pole, loome parooli
sqlUpdateParool="UPDATE Paevik SET Parool=id Where Eesnimi='" & cgiEesNimi & "' and perenimi='" & cgiPereNimi & "'"
cn.execute(sqlUpdateParool)
response.write "sai esmase parooli"
blnAutenditud=true
End if
Else'Kasutajat ei leidunud
response.write "Kasutajat ei leidunud"
End if
%>
<%
if blnAutenditud=true Then
set rs=cn.execute(sqlSelect1)
if(rs("Hinne")=-1) Then
REsponse.write "On opetaja!"
'siin on õpetajal võimalus sisestada hindeid.
Response.end
End if
REsponse.write ""
REsponse.write " | Id | Eesnimi | Perenimi | Parool | Hindekuupaev | Hinne |
"
do while not rs.EOF
strId=rs("id")
strEesNimi =rs("Eesnimi")
strPereNimi =rs("PereNimi")
strParool =rs("Parool")
strHindeKuupaev =rs("HindeKuupaev")
strHinne =rs("Hinne")
response.write ""
response.write "| " & strId & " | "
response.write "" & strEesNimi & " | "
response.write "" & strPereNimi & " | "
response.write "" & strParool & " | "
response.write "" & strHindeKuupaev & " | "
response.write "" & strHinne & " | "
response.write "
"
rs.moveNext()
Loop
REsponse.write "
"
End if
%>