% on error resume next fp = Server.MapPath("zaehler_aufklaerung.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 Aufklärung
Wichtige Hinweise zum Quiz:
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!
|