<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% Response.Buffer = True %> <% 'Response.Write "QueryString:" & Request.QueryString & "
" 'Response.Write "FormString:" & Request.Form & "
" Dim sTodo: sTodo = Request.QueryString("sTodo") Dim sName, sPass, sMail sName = Request.Form("frm_name") sPass = Request.Form("frm_passwort") ' --- Login-Prozedur If sName <> "" And sPass <> "" Then %>



<% 'Response.Write isUserDataComplete(Session("sUserId")) If Session("sUserId") <> "" Then If isUserDataComplete(Session("sUserId")) = False Then ' --- user muss seine Daten noch eingeben Response.Redirect "userData.asp" End If End If End If %> asdasd

<% Call OpenDbConn() Select Case sTodo Case "","home" %>
Diese Seite ist optimiert für 1024*768 und höher !
 
Auf dieser Homepage finden sie eine Übersicht unserer Klasse und können sich unseren bisherigen Lehrstoff anschauen, der im Bereich Fächerübersicht als .zip Datei vorliegt.
<% '----------------------------------------------------Schueler------------------------------------------------------------ Case "schueler" %>

Schülerübersicht
 
Albrecht, Tino
Bauer, Johannes
Becher, Andrej
Beier, Martin
Besser, Stev
Eckardt, Werner
Glausch, Oliver
Jacob, Franz
Kiewitz, Philipp
Koblitz, Norman
Kontor, Jakob
Matschke, Christin
Miertschink, Ronny
Petermann, Maja
Richter, Philipp
Schneider, Manuel
Schneider, Werner
Sowart, Sven
Strehle, Arno
Tauferner, Johanna
Taupitz, Marco
Uhlemann, Hagen
Utke, Markus
-
<% Case "faecher" %>

Fächerübersicht
 
<% If Session("login") = true Then %> Deutsch <% Else %> Deutsch <% End If %>
<% If Session("login") = true Then %> Geschäftsprozesse <% Else %> Geschäftsprozesse <% End If %>
<% If Session("login") = true Then%> Präsentation <% Else%> Präsentation <% End If %>
<% If Session("login") = true Then %> Softwareengineering <% Else %> Softwareengineering <% End If %>
<% If Session("login") = true Then %> Sozialkunde <% Else %> Sozialkunde <% End If %>
<% If Session("login") = true Then %> Wirtschaftskunde <% Else %> Wirtschaftskunde <% End If %>
<% If Session("login") = true Then %> Informationstechnik <% Else %> Informationstechnik <% End If %>
<% If Session("login") = true Then %> Programmieren <% Else %> Programmieren <% End If %>
<% If Session("login") = true Then %> Mathematik <% Else %> Mathematik <% End If %>
<% If Session("login") = true Then %> Softwareprojekt <% Else %> Softwareprojekt <% End If %>
<% If Session("login") = true Then %> Datenbanken <% Else %> Datenbanken <% End If %>
<% If Session("login") = true Then %> Kommunikation <% Else %> Kommunikation <% End If %>
<% If Session("login") = true Then %> Betriebssysteme <% Else %> Betriebssysteme <% End If %>
<% If Session("login") = true Then %> Multimediaanwendungen <% Else %> Multimediaanwendungen <% End If %>
<% If Session("login") = true Then %> Englisch <% Else %> Englisch <% End If %>
<% If Session("login") = true Then %> gesamter Stoff <% Else %> gesamter Stoff <% End If %>
<% Case "shop" %>

.: SWT02A Fanshop :.
 
PIC
SWT02A Fantasse
Info
PIC
Fanshirt
Info
PIC
SWT02A Fanshirm
Info
PIC
Das SWT02A PC-Geh�use mit 6 K�hler und Licht
Info
<% case "forum"%>
kommt Noch
<% case "faq"%>

FAQ der SWT02A

<% End Select %>



<% Function isUserDataComplete(sUserID) 'As Boolean Dim adoUserData 'As ADODB.RecordSet Dim i 'As Variant Call OpenDbConn() ' --- SQL-String sSql = "SELECT user_mail,user_strasse,user_plz,user_ort FROM user " _ & "WHERE user_id = '"& sUserID &"' " ' --- RecordSet instanziieren Set adoUserData = Server.CreateObject("ADODB.RecordSet") ' --- RecordSet oeffnen adoUserData.Open sSql, sDb, 3, 3 For Each i in adoUserData.Fields If IsNull(i.Value) = True Then isUserDataComplete = False Exit Function End If Next isUserDataComplete = True adoUserData.Close Set adoUserData = Nothing Call CloseDbConn() End Function %> <% Function login(sName,sPass) 'As String Dim adoLogin 'As ADODB.RecordSet Call OpenDbConn() ' --- SQL-String sSql = "SELECT user_id, user_pass FROM user " _ & "WHERE user_vorname = '"& sName &"' " ' --- RecordSet instanziieren Set adoLogin = Server.CreateObject("ADODB.RecordSet") ' --- RecordSet oeffnen adoLogin.Open sSql, sDb, 3, 3 If adoLogin.RecordCount <> 0 Then ' --- User gefunden If adoLogin(1) = sPass Then ' --- alles OK. Session("login") = True Session("sUserId") = adoLogin(0) login = "Sie sind jetzt eingeloggt." adoLogin.Close Set adoLogin = Nothing Call CloseDbConn() Exit Function Else ' --- falsches Passwort Session("login") = False Session("sUserId") = "" login = "Falsches Passwort eingegeben." adoLogin.Close Set adoLogin = Nothing Call CloseDbConn() Exit Function End If Else ' --- User gibt es nicht Session("login") = False Session("sUserId") = "" login = "Benutzer nicht vorhanden." End If adoLogin.Close Set adoLogin = Nothing Call CloseDbConn()"ADODB.RecordSet") ' --- RecordSet oeffnen adoLogin.Open sSql, sDb, 3, 3 If adoLogin.RecordCount <> 0 Then ' --- User gefunden If adoLogin(1) = sPass Then ' --- alles OK. Session("login") = True Session("sUserId") = adoLogin(0) login = "Sie sind jetzt eingeloggt." adoLogin.Close Set adoLogin = Nothing Call CloseDbConn() Exit Function Else ' --- falsches Passwort Session("login") = False Session("sUserId") = "" login = "Falsches Passwort eingegeben." adoLogin.Close Set adoLogin = Nothing Call CloseDbConn() Exit Function End If Else ' --- User gibt es nicht Session("login") = False Session("sUserId") = "" login = "Benutzer nicht vorhanden." End If adoLogin.Close Set adoLogin = Nothing Call CloseDbConn() End Function %>