% Dim SQLtxt Dim rs Dim ArztID %> <% Sub CheckLogin() Dim SQLtxt ArztID = 0 If Session("login")="OK" Then ' Response.Write("Login ist OK") If len(Session("ArztID")) Then ArztID=Session("ArztID") Else Response.Write("Kundennr. fehlt trotz Anmeldung OK") Exit Sub End If SQLtxt="SELECT * FROM PS_Praxis WHERE ArztId=" & ArztID call dbConnect(C_CONNECTIONSTRING) rs=dbExecuteSQL(SQLtxt) Else Response.Write("Bitte geben Sie erst Ihre Zugangsdaten ein") Response.End() End If End Sub %>
|