% on error resume next fp = Server.MapPath("zaehler_barock.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(fp) ct = Clng(a.ReadLine) ct = ct + 1 a.close Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) a.Close %>
E-Learning Barock
Wichtige Hinweise zum Quiz:
Wir danken ganz herzlich Herrn Professor Dr. Heinrich Detering, der uns die meisten Fragen für dieses Quiz zur Verfügung gestellt hat! Unser herzlicher Dank gilt der Professur für die Psychologie des Lehrens und Lernens am Institut für Pädagogische Psychologie und Entwicklungspsychologie an der TU Dresden, die uns die nötige Software zur Erstellung des Quizes (EF-Editor) bereit gestellt hat!
|