King's College 7D (98-99) Official Web

<% If Request.ServerVariables("REQUEST_METHOD") <> "POST" Then Response.Write "" Response.Write "" Response.Write "King's College 7D (98-99) Official Web" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

kc7d99.isCool.net Origin Information Recent Events Our Classmates
" Response.Write "

" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

Personal Details

" Response.Write "

Your name: " Response.Write "

Your URL: " Response.Write "

Your email: " Response.Write "

ICQ UIN: " Response.Write "Age/Gender: " Response.Write "

Your Hobbies: " Response.Write "

Where do u come from ?: " Response.Write "

How did u find here ?:" Response.Write "

Comments

" Response.Write "

" Response.Write "" Response.Write "

Your Comments:
" Response.Write "
" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" 'Response.Write "
" 'Response.Write "" 'Response.Write "
" Response.Write "

" Response.Write "

" Response.Write "
" Response.Write "" Response.Write "Origin | " Response.Write "Information | " Response.Write "Recent Events | " Response.Write "
Our Classmates | " Response.Write "7D Forum | " Response.Write "D-League" Response.Write "
" Response.Write "Copyright © 1998, 99, 2000" Response.Write "
All Rights Reserved by Sherman Chow & Cu-Copper" Response.Write "
" Response.Write "" Response.Write "" Response.End Else Dim objFSO, objOutputStream, strDataFile strDataFile = Server.Mappath("7dguestbk.txt") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objInputStream = objFSO.OpenTextFile(strDataFile, 1, True, False) strBuffer = "" If Not objInputStream.AtEndOfStream Then strBuffer = objInputStream.ReadAll objInputStream.Close Set objInputStream = Nothing If Len(Trim(Request.Form("field1"))) <> 0 Then Set objOutputStream = objFSO.OpenTextFile(strDataFile, 2, True, False) objOutputStream.WriteLine("!!S!!") objOutputStream.WriteLine(Date) objOutputStream.WriteLine(Time) Dim FormKey For Each FormKey in Request.Form If Len(Trim(Request.Form(FormKey))) = 0 Then objOutputStream.WriteBlankLines(1) Else objOutputStream.WriteLine(Trim(Request.Form(FormKey))) End If Next objOutputStream.WriteLine(strBuffer) objOutputStream.Close Set objOutputStream = Nothing Else Response.Write "Error! Name field is empty.
Please go back and fill it in..." Response.End End If Set ObjFSO = Nothing End If %> King's College 7D (98-99) Official Web

kc7d99.isCool.net Origin Information Recent Events Our Classmates

Thank you for signing my guestbook! =)

Please click here to view my guestbook.



kc7d99.isCool.net	Origin	Information	Recent Events	Our Classmates