se.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)%>