;########################################################
; AutoHotkey    Version: 1.0.44.13 - September 20, 2006
; Language:     English
; Author:         Elevator_Hazard (Hazardtoelevators@gmail.com)
;########################################################
;----------S C R I P T----------
;SetWorkingDir, %A_WorkingDir%\Infopages
GoSub, MainPage
;---------- Functions ----------
MainPage:
SetWorkingDir, %A_WorkingDir%\Infopages
Gui,1: Font, S16 CDefault, Verdana
Gui,1: Add, Text, x28 y0 w240 h40 , Organizer .01 Alpha
Gui,1: Font, S7 Cdark gray, Verdana
Gui,1: Add, Text, x48 y40 w200 h40 , To begin`, select a date or use default (based on your computer's time) and press Continue
Gui,1: Font, S10 Cdefualt, Verdana
Gui,1: Add, DateTime, x93 y92 w110 h30 vDate ,M/d/yy
Gui,1: Add, Button, x83 y150 w130 h40 , Continue
; Generated using SmartGUI Creator 4.0
Gui,1: Show, x348 y199 h217 w299, Organizer .00 Alpha
Return


InfoPage:
Gui,2: Add, Edit, x7 y40 w460 h290 vinfo,
Gui,2: Font, S16 Cgreen, Verdana
Gui,2: Add, Text, x147 y0 w180 h30 , Date:�ate%
Gui,2: Font, S10 Cgreen, Verdana
Gui,2: Add, Button, x162 y330 w150 h30 , Submit Information
; Generated using SmartGUI Creator 4.0
Gui,2: Show, x194 y153 h377 w477, Date Information
Return

ButtonContinue:
Text=
gui, submit
gui, destroy
StringTrimRight,date,date,6
Cdate=�te%
gosub, InfoPage
guicontrol, focus, %info%
FileRead, Text, �te%.txt
SendInput, %text%
return

2ButtonSubmitInformation:
gui,2: submit
gui,2: destroy
FileDelete, �te%.txt
FileAppend, %info%, �te%.txt
gosub, MainPage
return

GuiClose:
exitapp

2GuiClose:
Gui, 2: destroy
GoSub, MainPage
return

3guiclose:
exitapp