<%@ 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
Dim L_PrintInstall_Text
Dim strEncodedName
Dim bStartInstall
L_PrintInstall_Text = OleCvt.ASPString(IDS_ASP_PRINTER_INSTALL)
strEncodedName = strCleanRequest ("eprinter")
if Len(strEncodedName) > MAX_ENCODED_PRINTER_NAME_LENGTH Then Call ErrorHandler(L_InvalidParameter_Text)
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)%>
<%
Function strGenSteps
Dim L_strStep_Text(3)
Dim L_strFinal_Text
Dim strHTML
Dim i
L_strStep_Text(0) = OleCvt.ASPString(IDS_ASP_CHECK_NET)
L_strStep_Text(1) = OleCvt.ASPString(IDS_ASP_VERIFY_LOGIN)
L_strStep_Text(2) = OleCvt.ASPString(IDS_ASP_DOWNLOADING_FILE)
L_strStep_Text(3) = OleCvt.ASPString(IDS_ASP_INSTALL_PRINTER)
L_strFinal_Text = OleCvt.ASPString(IDS_ASP_PRINTER_INSTALLED) & "
" & OleCvt.ASPString(IDS_ASP_CLICK_OPEN_PFD) & ""
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
%>
<%
End If
%>