Sub Login ()

'

' Play Macro

' Macro created 5:16 PM 1/26/02 by Jim Needham

'

Dim login_value

login_value = InputBox("Enter your password: ")

If login_value = "Jim" Then

Call do_User(login_value)

ElseIf login_value = "jimn1946" Then

login_value="Jim"

Call student_greeting(login_value)

ElseIf login_value = "0204584" Then

login_value="Patrick M. McKeown"

course_value="CDT103"

Call student_greeting(login_value,course_value)

ElseIf login_value = "0578851" Then

login_value="Mark Tamimi"

course_value="CDT103"

Call student_greeting(login_value,course_value)

ElseIf login_value = "0618074" Then

login_value="Nick Giesch"

course_value="CDT103"

Call student_greeting(login_value,course_value)

ElseIf login_value = "0603048" Then

login_value="Jim Needham"

course_value="CDT103"

Call student_greeting(login_value,course_value)

ElseIf login_value = "0567030" Then

login_value="Stephine"

Call student_greeting(login_value)

ElseIf login_value = "0599707" Then

login_value="Joan"

Call student_greeting(login_value)

ElseIf login_value = "0574141" Then

login_value="Forest"

Call do_User(login_value)

ElseIf login_value = "0103272" Then

login_value="Victoria"

Call do_User(login_value)

ElseIf login_value = "0599708" Then

login_value="David"

Call do_User(login_value)

ElseIf login_value = "0588833" Then

login_value="Joan"

Call do_User(login_value)

ElseIf login_value = "0027219" Then

login_value="Russell"

Call do_User(login_value)

ElseIf login_value = "Lisatemp" Then

login_value="Lisa"

Call SaveIt_greeting(login_value)

ElseIf login_value = "Lauratemp" Then

login_value="Laura"

Call SaveIt_greeting(login_value)

ElseIf login_value = "Jaimetemp" Then

login_value="Jaime"

Call SaveIt_greeting(login_value)

ElseIf login_value = "Nikkitemp" Then

login_value="Nikki"

Call SaveIt_greeting(login_value)

ElseIf login_value = "Jimtemp" Then

login_value="Jim"

ElseIf login_value = "jimtemp" Then

login_value="Jim"

Call SaveIt_greeting(login_value)

ElseIf login_value = "Hewlett" Then login_value = "Shannon"

Call greeting(login_value)

ElseIf login_value = "GUEST" Then

Call do_User(login_value)

ElseIf login_value = "Guest" Then

Call do_User(login_value)

ElseIf login_value = "guest" Then

Call do_User(login_value)

Else

MsgBox "Sorry " + login_value + "!  You are not a registered user.  Please select the New Registration procedure."

Call Good_bye(login_value)

End If

End Sub



Sub do_User(a)

Dim answer, message, punct, ready, user_name

user_name = a

ready = "CDT103 or CDT105 "

punct = ". Type CDT103 or CDT105 press OK to contimue..."

message = ready + user_name + punct

answer = InputBox(message, "Which Class...")

If answer = "CDT103" Then

Call greeting103(user_name)

ElseIf answer = "cdt103" Then

Call greeting103(user_name)

ElseIf answer = "CDT105" Then

Call greeting105(user_name)

ElseIf answer = "cdt105" Then

Call greeting105(user_name)

Else

Call Good_bye(user_name)

End If

End Sub



Sub ShowFileInfo(filespec)

    Dim fs, f, s

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set f = fs.GetFile(filespec)

    s = "Created: " & f.DateCreated

    MsgBox s

End Sub



Sub greeting103(b)

Dim file_text, new_date

new_date = CStr(Now)

file_text = new_date + ". " + b + " has logged on."

MsgBox "Welcome " + b + "!",,"Geneonet Welcome"

'Call TextStreamTest(file_text)

'MsgBox "This is where " + b + " would be directed to the website."

'Window.Location = "http://www.geneonet.com/Vector_Graphics/" + b + ""

'End Sub

Window.Location = "http://www.geneonet.com/CDT103"

End Sub



Sub greeting105(b)

Dim file_text, new_date

new_date = CStr(Now)

file_text = new_date + ". " + b + " has logged on."

MsgBox "Welcome " + b + "!",,"Geneonet Welcome"

Window.Location = "http://www.geneonet.com/CDT105/" + b + ""

End Sub



Sub student_greeting(b)

Dim file_text, new_date, web_folder

if b = "Jim" then

web_folder = "F:\Home_Intranet\PPShows\Index.htm"

Else

web_folder = "http://www.geneonet.com/CDT105/"+ b

End If

new_date = CStr(Now)

file_text = new_date + ". " + b + " has logged on."

MsgBox "Welcome " + b + "!",,"Geneonet Welcome"

Window.Location = web_folder

End Sub



Sub SaveIt_greeting(b)

Dim file_text, new_date, saveit_name

saveit_name = b

new_date = CStr(Now)

file_text = new_date + ". " + saveit_name + " has logged on."

MsgBox "Welcome " + saveit_name + "!",,"Geneonet Welcome"

Window.Location = "http://www.geneonet.com/My_Connection/DownloadPage.htm"

End Sub



Function altgreeting(a)

MsgBox "Ok " + a + ".  Maybe later?  Good-bye!","Geneonet Good-bye"

'MsgBox "This is where " + a + " would be directed to alternate website."

Window.Location = "http://www.geneonet.com/CDT105"

End Function

Sub Good_bye(a)

MsgBox "It's really been fun " + a + ", but when it's time to say good-bye it's time to say good-bye.  Have a REALLY great day!"

End Sub



'Sub TextStreamTest(c)

'    Const ForReading = 1, ForWriting = 2, ForAppending = 8

'    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

'    Dim fs, f, ts, s, d, test

'    Set fs = CreateObject("Scripting.FileSystemObject")

'    test = fs.GetFile("c:\logon.txt")

'    If test = Null Then

'    fs.CreateTextFile ("c:\logon.txt")            'Create a file

'    Set ts = f.OpenAsTextStream(ForAppending, TristateUseDefault)

'    ts.WriteLine c

'    ts.Close

'    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)

'    s = ts.ReadLine

'    MsgBox s

'    ts.Close

'    Else

'    Set f = fs.GetFile("c:\logon.txt")

'    Set ts = f.OpenAsTextStream(ForAppending, TristateUseDefault)

'    ts.WriteLine c

'    ts.Close

'    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)

'    s = ts.ReadLine

'    MsgBox s

'    ts.Close

'    End If

'End Sub