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.
|
|
<%@ LANGUAGE = VBScript %><% Option Explicit %><% Response.Expires = 0 %>
<%' $Date: 9/25/97 4:20p $' $ModTime: $' $Revision: 7 $' $Workfile: default.asp $ Dim ranWizard If request("ranWizard") <> "" Then If request("ranWizard") = "True" Then ranWizard = "True" ElseIf request("ranWizard") = "False" Then ranWizard = "False" Else call ranWizardCheck End If Else call ranWizardCheck End If%><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><html><head><% If ranWizard = "False" Then%> <META HTTP-EQUIV="Refresh" CONTENT="0; url=wizard.asp"> <% ElseIf ranWizard = "True" Then%><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>PWS Homepage Wizard</title></head><BODY Background="admin.gif" Topmargin="1" Leftmargin="100"><FONT face="verdana" size="+2">Do you want to...</FONT><TABLE width="100%" border=0> <TR><TD rowspan=3> </TD> <TD> <FONT face="verdana" size="+1"> <A HREF="template.asp" TARGET="_BLANK">Edit your home page</A> </FONT> </TD></TR> <% If myinfo.Guestbook = "-1" Then response.write "<TR><TD><FONT face='verdana' size='+1'>"_ & "<A HREF='qbe.asp'>View your guest book</A>"_ & "</FONT>" End If response.write "</TD></TR>"
If myinfo.Messages = "-1" Then response.write "<TR><TD><FONT face='verdana' size='+1'>"_ & "<A HREF='admin.asp?private=True'>Open your drop box</A>"_ & "</FONT>" End If response.write "</TD></TR>" %> </TABLE></FONT></BODY></HTML><% End If
Sub ranWizardCheck If myinfo.ranWizard <> "" Then If myinfo.ranWizard = "-1" Then ranWizard = "True" ElseIf myinfo.ranwizard = "0" Then ranWizard = "False" Else ranWizard = "False" End If Else ranWizard = "False" End If End Sub%>
|
