% on error resume next fp = Server.MapPath("zaehler_erzaehlsituationen.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 Dekonstruktion
Wir danken ganz herzlich 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 Lernmoduls (Studierplatz2000) zur Verfügung gestellt hat!
|