<% 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.netOriginInformationRecent EventsOur Classmates
" Response.Write "

" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
 Personal Details

" Response.Write "


" Response.Write "

    " 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 "" 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





Origin | Information | Recent Events |
Our Classmates | 7D Forum | D-League


Copyright © 1998, 99, 2000
All Rights Reserved by Sherman Chow & Cu-Copper