Datenbanksuche

 


<% if isnull(session("status")) or session("status")="" then session("status")=0 Set conntemp = server.CreateObject("ADODB.Connection") conntemp.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("materialien.mdb") sqlstr="select * from Kapitel order by Reihe" Set rs = conntemp.Execute(Sqlstr) response.write "

" response.write "

" sqlstr="select * from Stufen" Set rs = conntemp.Execute(Sqlstr) response.write "

" response.write "


" sqlstr="select * from Materialtypen where berechtigt<=" & session("status") & " order by reihe" '0=Schüler; 2=Lehrer Set rs = conntemp.Execute(Sqlstr) response.write "" response.write "

" conntemp.close set contemp=nothing %>
E-Mail: Zu unserer Physikstartseite BRG Ried i. I