<%@ CODEPAGE=65001 %> <% '------------------------------------------------------------ ' ' Microsoft Internet Printing Project ' ' Copyright (c) Microsoft Corporation. All rights reserved. ' ' Printer Installation Page ' '------------------------------------------------------------ Option Explicit %> <% Const NONE_STR = """none""" Const LINE_STR = """line""" Const BLOCK_STR = """block""" CheckSession Response.Expires = 0 Const L_PrintInstall_Text = "Printer Installation" Dim strEncodedName Dim bStartInstall strEncodedName = strCleanRequest ("eprinter") On Error Resume Next Err.Clear if Session("StartInstall") = 1 Then Session("StartInstall") = 0 bStartInstall = TRUE Else bStartInstall = FALSE End If If Not bStartInstall Then Dim strView, strInitial strView = Request ("View") If strView = "" Then strView = "d" Select Case strView Case "p" strInitial = PROPERTY_VIEW Case "q" strInitial = QUEUE_VIEW Case "d" strInitial = Request(ASP1) If strInitial = "" Then strView = "q" strInitial = QUEUE_VIEW End If Case Else strView = "q" strInitial = QUEUE_VIEW End Select strInitial = strInitial & ATPAGE & CStr(Int(Rnd*10000)) Response.Redirect (strInitial) End If Response.Expires = 0 %> > <%=Write(L_PrintInstall_Text)%>


<%Const L_PrtInstall_Text = "Printer Installation"%> <%=Write (L_PrtInstall_Text)%>

<% Function strGenSteps Dim L_strStep_Text(3) Dim L_strFinal_Text Dim strHTML Dim i L_strStep_Text(0) = "Checking network connection ..." L_strStep_Text(1) = "Verifying login name ..." L_strStep_Text(2) = "Downloading file ..." L_strStep_Text(3) = "Installing printer ..." L_strFinal_Text = "The printer has been installed on your machine

Click here to open the printers folder on your machine

" strHTML = "" For i = 0 To 3 strHTML = strHTML & "" &_ L_strStep_Text(i) & "" Next strHTML = strHTML & "" &_ L_strFinal_Text & "" strGenSteps = strHTML End Function Function strEnableLine (id) strEnableLine = "EnableLine (document.all.Step" & id & ")" End Function Function strDisableLine (id) strDisableLine = "DisableLine (document.all.Step" & id & ")" End Function %>
<% If bStartInstall Then %> <% Else %>

<%=Write(strGenSteps)%>