Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

87 lines
2.3 KiB

  1. <% @ LANGUAGE="VBSCRIPT" %>
  2. <%
  3. Option Explicit
  4. Dim background, Style, frameHeight, pagePicture, pageText, pageType, pagewords, ranWizard, strpageType, Theme
  5. %>
  6. <!--
  7. $Date: 9/25/97 4:10p $
  8. $ModTime: $
  9. $Revision: 9 $
  10. $Workfile: template.asp $
  11. -->
  12. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  13. <HTML>
  14. <HEAD>
  15. <% call Template_ranWizardCheck
  16. If request("REQUEST_METHOD") = "POST" Then
  17. call variableAssignments
  18. If request.Form("contents") Then
  19. %>
  20. <META HTTP-EQUIV="Refresh" CONTENT="0; url=/default.asp">
  21. <%
  22. End If
  23. myinfo.ranWizard = -1
  24. End If
  25. If request("debug") = "true" Then
  26. myinfo.ranWizard = -1
  27. ElseIf request("debug") = "false" Then
  28. myinfo.ranWizard = 0
  29. End If
  30. If request.Form("addLink.x") <> "" Then 'add links
  31. call Template_addLink
  32. End If
  33. If request.Form("removeLink.x") <> "" Then 'remove links
  34. call Template_removeLink
  35. End If
  36. %>
  37. <META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
  38. <META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
  39. <TITLE>PWS Quick Setup</TITLE>
  40. <% call styleSheet %>
  41. <!--#include file ='tempsubs.inc'-->
  42. <!--#include virtual ='/iissamples/homepage/sub.inc'-->
  43. <!--#include file ='myinfo.inc'-->
  44. <SCRIPT LANGUAGE="VBSCRIPT">
  45. <!--
  46. Sub theme_OnChange
  47. document.form(0).submit
  48. End Sub
  49. -->
  50. </SCRIPT>
  51. </HEAD>
  52. <BODY TopMargin=0 Leftmargin="0">
  53. <FONT FACE="VERDANA" SIZE="-2">
  54. <!-- ******************* TOP ROW *************************** -->
  55. <TABLE border="0" cellpadding="0" cellspacing="0" width="100%" Background="QuickStartBanner.JPG">
  56. <TR>
  57. <TD Valign="top" Align="center" COLSPAN="3">
  58. <FONT Size="-1"><B>Personalize your home page layout by adding or changing information on the form.</B></FONT>
  59. <TABLE border=0>
  60. <TR><TD Align=center><FONT Size="-1">
  61. <%
  62. response.write "<A HREF = " & """#""" & " onClick = """ & HelpWindow("") & """><Font Color=""" & "#0000FF""" & " Size=2>Hint:</FONT></a><BR>"
  63. If myinfo.ranWizard = "-1" Then
  64. response.write "<FORM NAME='Template' ACTION='template.asp' METHOD='POST'>"_
  65. & "<INPUT TYPE='hidden' NAME='basics' Value='-1'><BR>"
  66. %>
  67. <!--#include file="themes.inc" -->
  68. <%
  69. response.write "</FORM>"
  70. End If
  71. %>
  72. </FONT></TD></TR>
  73. </TABLE>
  74. </TD>
  75. </TR>
  76. </TABLE>
  77. <TABLE border="0" cellpadding="0" cellspacing="0" width="100%" class=bg0>
  78. <TR>
  79. <!--#include file="T_Theme.inc" -->
  80. </TR>
  81. </TABLE>
  82. </FONT>
  83. </BODY>
  84. </HTML>