home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch22 / timesrvr.asp < prev    next >
Encoding:
Text File  |  1998-07-13  |  574 b   |  24 lines
  1. <HTML>
  2. <BODY>
  3. <% theTime = Time %>
  4. <% theDate = Date %>
  5. <FONT FACE=VERDANA SIZE=3>
  6. <H1>Server's Local Time</H1>
  7. <BR><BR>
  8. The time at the server's location is <% = theTime %>
  9. <BR>
  10. and the date is <% = theDate %>.
  11. <P>
  12. <HR>
  13. <H1>Client's Local Time</H1>
  14. <SCRIPT LANGUAGE = VBScript>
  15. Document.write "The local time is " & Time
  16. Document.write "<BR>"
  17. Document.write "and the date time is " & Date
  18. Document.write "<HR>"
  19. Document.write "The time difference is " & DateDiff("s",  "<% = theTime %>", Time) & " second(s)"
  20. Document.close
  21. </SCRIPT>
  22. </BODY>
  23. </HTML>
  24.