home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_02.cab / welcome.asp < prev    next >
Encoding:
Text File  |  1998-04-27  |  21.2 KB  |  835 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2.  
  3. <% Option Explicit %>
  4. <% Response.buffer = True %>
  5. <!-- VSS generated file data
  6. $Modtime: 10/24/97 12:59p $
  7. $Revision: 74 $
  8. $Workfile: welcome.asp $
  9. -->
  10.  
  11. <%
  12.     On Error Resume Next
  13.  
  14.     Dim cm, f, strFull1, strDisplay1, isFiles, choice, _
  15.     webDirList1, pubMdbList1, refreshRec, FileSystem, _
  16.     defasp, action, dropStr, choice1, sync, runWiz, _
  17.     wizWarning, wizButton, wizPic, wizFormPic, noCache
  18. %>
  19.  
  20. <!-- #include file="localize.inc" -->
  21.  
  22. <%
  23.  
  24. '----------Query strings-------------------------
  25.     dropStr=request.querystring("dropStr") 
  26.     choice=request.form("Action")
  27.     choice1=request.querystring("Action")
  28.     If choice = "" Then
  29.         choice = choice1
  30.     End If
  31.     If choice = "" Then
  32.         choice = "Welcome"
  33.         action = "Add"
  34.     End If
  35.     sync = request.form("sync")
  36.     If sync <> "" Then
  37.         Myinfo.sync = sync
  38.     End If
  39.     If Myinfo.sync = 1 Then
  40.         updateVar
  41.     End If
  42.     runWiz = Myinfo.ranWizard
  43.         'runWiz = "0"
  44. Sub updateVar
  45.     isFiles = 0
  46.     defasp = 0
  47.     action = ""
  48.     Myinfo.insRec = 0
  49.     Myinfo.updRec = 0
  50.     Myinfo.sync = 1
  51.     Myinfo.publish = 0
  52.     Myinfo.descrip = ""
  53.     Myinfo.Showtext = 0
  54.     Myinfo.numRecords = 0
  55.     Myinfo.addDisplay = 0
  56.     Myinfo.Width = 0
  57.     Myinfo.strFull = ""
  58.     Myinfo.strDisplay = ""
  59. End Sub
  60.  
  61. '----------Opening Syncronization of Files--------
  62.  
  63. setSystemObj
  64. setConnObj
  65. ChkRunWiz
  66.  
  67. If Myinfo.sync = 1 Then
  68.     readPublish
  69.     readWebPub
  70.     addNewFiles
  71.     removeFiles
  72.     updateStrings
  73.     sendUser
  74. End If
  75.  
  76. If dropStr <> "" Then 
  77.     choice="Add"
  78.     Myinfo.publish = -1
  79.     Myinfo.dropStr = dropStr
  80. End If
  81. %>
  82.  
  83. <!-- #include file="welcome.inc" -->
  84.  
  85. <% Select Case choice%>
  86. <% Case "Welcome" %>
  87. <HTML>
  88. <HEAD>
  89. <%=noCache%>
  90. <TITLE><%=locPubWiz%></TITLE>
  91. <META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=windows-1250">
  92. </HEAD>
  93. <SCRIPT LANGUAGE="VBScript">
  94. Sub chkRunWizard
  95.     runWiz = "<%=runWiz%>"
  96.     If runWiz = "-1" Then
  97.         frmWiz2.StartBTN.disabled  = "False"
  98.     Else
  99.         frmWiz2.StartBTN.disabled  = "True"
  100.     End If
  101. End Sub
  102. </SCRIPT>
  103. <BODY BGCOLOR="#FFFFFF" TEXT="#000000" TOPMARGIN="0" LEFTMARGIN="0" onLoad="chkRunWizard">
  104. <TABLE BORDER=0 WIDTH="100%" CELLPADDING=1 CELLSPACING=1>
  105.     <TR>
  106.         <TD BACKGROUND="pubbannr.gif" COLSPAN="3" ALIGN="CENTER" HEIGHT="50">
  107.             <FONT FACE="Arial, Arial" SIZE=5><STRONG>
  108.             <%=locPubWiz%>
  109.             </STRONG></FONT>
  110.         </TD>
  111.     </TR>
  112.     <TR>
  113.         <TD WIDTH="20%">
  114.          
  115.         </TD>
  116.         <TD valign="top" Width="150" Height="140">
  117.             <FORM NAME=frmWiz1 METHOD=POST ACTION="welcome.asp">
  118.             <INPUT TYPE=HIDDEN NAME="Action" VALUE="<%=action%>">
  119.             <INPUT TYPE=HIDDEN NAME="sync" VALUE=1>
  120.             <%=wizFormPic%>
  121.             </FORM>
  122.             <%=wizPic%>
  123.         </TD>
  124.         <TD>
  125.             <FONT FACE="Arial, Arial" SIZE="-1">
  126.             <STRONG><%=locWelcomeInstr1%><%=locWelcomeInstr2%></STRONG></FONT>
  127.             <P>
  128.             <CENTER>
  129.             <FORM NAME=frmWiz2 METHOD=POST ACTION="welcome.asp">
  130.             <INPUT TYPE=HIDDEN NAME="Action" VALUE="<%=action%>">
  131.             <INPUT TYPE=HIDDEN NAME="sync" VALUE=1>
  132.             <INPUT TYPE=SUBMIT VALUE=" >> " ID="StartBTN">
  133.             </FORM>
  134.             </CENTER>
  135.         </TD>
  136.     </TR>
  137.     <TR>
  138.         <TD COLSPAN = 3 ALIGN="Center">
  139.             <%=wizWarning%><BR>
  140.             <%=wizButton%>
  141.         </TD>
  142.     </TR>
  143. </TABLE>
  144. </BODY>
  145. </HTML>
  146. <% response.flush %>
  147. <% Case "Choose" %>
  148. <HTML>
  149. <HEAD>
  150. <META HTTP-EQUIV="CONTENT-TYPE" CONTENT="TEXT/HTML; CHARSET=windows-1250">
  151. <TITLE><%=locPubWiz%></TITLE>
  152. </HEAD>
  153. <SCRIPT LANGUAGE="VBScript">
  154. Dim RadChoice
  155. RadChoice = "Add"
  156. Sub Add_OnClick
  157.     RadChoice = "Add"
  158.     testBTN()
  159. End Sub
  160. Sub Remove_OnClick
  161.     RadChoice = "Remove"
  162.     testBTN()
  163. End Sub
  164. Sub Refresh_OnClick
  165.     RadChoice = "Refresh"
  166.     testBTN()
  167. End Sub
  168. Sub Change_OnClick
  169.     RadChoice = "Change"
  170.     testBTN()
  171. End Sub
  172. Sub testBTN() 
  173.     isFiles = <%=isFiles%>
  174.     If isFiles = 0 and RadChoice <> "Add" Then
  175.         frmBACK.goNextBTN.disabled  = "True"
  176.     Else
  177.         frmBACK.goNextBTN.disabled  = "False"
  178.     End If
  179. End Sub
  180. </SCRIPT>
  181. <BODY BGCOLOR="#FFFFFF" TEXT="#000000" TOPMARGIN="0" LEFTMARGIN="0" onLoad="VBScript:testBTN()">
  182. <TABLE BORDER=0 WIDTH="100%" CELLPADDING=1 CELLSPACING=1>
  183.     <TR>
  184.         <TD BACKGROUND="pubbannr.gif" COLSPAN="3" ALIGN="CENTER" HEIGHT="50">
  185.             <FONT FACE="Arial, Arial" SIZE=5><STRONG>
  186.             <%=locPubWiz%>
  187.             </STRONG></Font>
  188.         </TD>
  189.     </TR>
  190.     <TR>
  191.         <TD ALIGN=LEFT>
  192.         <FONT FACE="Arial, Arial" SIZE=3><STRONG><EM><%=locChooseWhatDo%></EM></STRONG></FONT>
  193.     </TD>
  194.     </TR>
  195.     <TR>
  196.         <TD ALIGN=LEFT>
  197.         <BLOCKQUOTE>
  198.         <FONT FACE="Arial, Arial" SIZE="-1"><STRONG>
  199.         <FORM NAME=frmCHOOSE METHOD=POST ACTION=WELCOME.ASP>
  200.              <BR><INPUT TYPE="RADIO" CHECKED NAME="ACTION" VALUE="Add" ID="Add"><%=locChooseAddrad%>
  201.                     <BR><INPUT TYPE="RADIO" NAME="ACTION" VALUE="Remove" ID="Remove"><%=locChooseRemoverad%>
  202.                     <BR><INPUT TYPE="RADIO" NAME="ACTION" VALUE="Refresh" ID="Refresh"><%=locChooseRefreshrad%>
  203.                     <BR><INPUT TYPE="RADIO" NAME="ACTION" VALUE="Change" ID="Change"><%=locChooseUpdaterad%><p>
  204.         
  205.         
  206.         </FORM>
  207.         </STRONG>
  208.         </FONT>
  209.         </BLOCKQUOTE>
  210.         </TD>
  211.     </TR>
  212.     <TR>
  213.         <TD ALIGN=RIGHT>
  214.         <FONT FACE="Arial, Arial" SIZE="-1"><STRONG>
  215.         <FORM NAME=frmBACK METHOD=POST ACTION=WELCOME.ASP>
  216.         <INPUT TYPE=BUTTON VALUE="<<" onClick="JavaScript:frmBACK.submit();">
  217.         <INPUT ID=goNextBTN TYPE=BUTTON VALUE=">>"  onClick="VBScript:frmChoose.Submit">
  218.         </FORM>
  219.         </STRONG>    
  220.         </FONT>
  221.         </TD>
  222.     </TR>
  223. </TABLE>
  224. </BODY>
  225. </HTML>
  226. <% response.flush %>
  227. <%Case "Add"
  228.  
  229.     Dim Publish, add, apage, addStr, delStr
  230.  
  231. '----------Query strings-------------------------
  232.     addStr = request.querystring("addStr")
  233.     If addStr <> "" Then 'add new files
  234.         Choice = "ADD"
  235.         dropStr = dropStr + addStr
  236.     End If
  237.  
  238.     Myinfo.ShowText = 0
  239.     Myinfo.addDisplay = 0
  240.     publish = Myinfo.Publish
  241.     
  242. Myinfo.addDisplay = 1
  243. Myinfo.strDisplay = ""
  244. Myinfo.NumRecords = 0
  245. %>
  246. <HTML>
  247. <HEAD>
  248. <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  249. <META HTTP-EQUIV="Content-Type" CONTENT="TEXT/HTML; CHARSET=windows-1250">
  250. <TITLE><%=locPubWiz%></TITLE>
  251. <SCRIPT LANGUAGE="Javascript" SRC="JSBrowser/JSBrowser.js"></SCRIPT>
  252. </HEAD>
  253. <SCRIPT LANGUAGE="Javascript" SRC="JSBrowser/JSBrowser.js"></SCRIPT>
  254. <SCRIPT LANGUAGE="Javascript">
  255.     function callBrowser () {
  256.              JSBrowser = new BrowserObj(document.frmFILENAME.FILENAME,POP,TFILE,SMALL);
  257.          }
  258. </SCRIPT>
  259.  
  260. <SCRIPT LANGUAGE="VBScript"><!--
  261.  
  262. Dim add, semiColon
  263.  
  264. semiColon = chr(59)
  265.     
  266. Sub cmdAdd_Click()
  267.     Filepath=Trim(document.frmFILENAME.FILENAME.value)
  268.     If instr(Filepath, bckSlash) = 0 Then
  269.         Alert "<%=locInvalidPath%>"
  270.         document.frmFILENAME.FILENAME.value = ""
  271.         Exit Sub
  272.     End If
  273.     If instr(Filepath, period) = 0 Then
  274.          Alert "<%=locInvalidPath%>"
  275.         document.frmFILENAME.FILENAME.value = ""
  276.         Exit Sub
  277.     End If
  278.         
  279.     If add < 1 Then
  280.         If Filepath="" Then
  281.             Alert "<%=locPathRequired%>"
  282.         End If
  283.     End If
  284.     If Filepath <> "" Then
  285.         Description=Trim(document.frmDESCRIPTION.DESCRIPTION.value)
  286.         If Description = "" Then
  287.             Description = "   "
  288.         End If
  289.         If len(FilePath) <> 0 Then
  290.             Filepath = Filepath + semiColon
  291.             add = add + 1
  292.         End If
  293.         ifrFILENAME.location.href ="filelist.asp?newDescription=" + Description + "&newFilepath=" + Filepath
  294.         document.frmFILENAME.FILENAME.value = ""
  295.         document.frmDESCRIPTION.DESCRIPTION.value = ""
  296.         frmRemove.btnRemove.disabled ="False"
  297.         goNext.goNextBTN.disabled = "False"
  298.     End If
  299. end sub
  300.  
  301. Sub cmdRemove_Click()
  302.     items = IFRFILENAME.frmFILENAME.selFILENAME.length
  303.     If items <= 2 Then
  304.         goNext.goNextBTN.disabled = "True"
  305.         frmRemove.btnRemove.disabled ="True"
  306.         frmAdd.btnAdd.disabled ="True"
  307.     Else
  308.         goNext.goNextBTN.disabled = "False"
  309.     End If
  310.     ifrFILENAME.removeItem()
  311. end sub
  312.  
  313. Sub Browser()
  314.     callBrowser()
  315.     frmAdd.btnAdd.disabled ="False"
  316. End Sub
  317.  
  318. Sub Start()
  319.     dropStr = "<%=dropStr%>"
  320.     aFile = "<%=isFiles%>"
  321.     If dropStr <> "" Then 
  322.         frmAdd.btnAdd.disabled ="False"
  323.     Else
  324.         frmAdd.btnAdd.disabled ="True"
  325.     End If
  326.     goNext.goNextBTN.disabled = "True"
  327.     frmRemove.btnRemove.disabled ="True"
  328.     If aFile = "" Or aFile = "0" Then
  329.         goBack.goBackBTN.disabled = "True"
  330.     Else
  331.         goBack.goBackBTN.disabled = "False"
  332.     End If
  333. End Sub
  334. -->
  335. </SCRIPT>
  336. <BODY BGCOLOR="#FFFFFF" TEXT="#000000" TOPMARGIN="0" LEFTMARGIN="0" onLoad="VBScript:Start()">
  337. <TABLE BORDER="0" CELLPADDING="1" CELLSPACING="1" WIDTH="100%">
  338.     <TR>
  339.         <TD BACKGROUND="pubbannr.gif" COLSPAN="5" ALIGN="CENTER" HEIGHT="50">
  340.             <FONT FACE="Arial, Arial" SIZE=5><STRONG>
  341.             <%=locPubWiz%>
  342.             </STRONG></FONT>
  343.          </TD>
  344.     </TR>
  345.      <TR>
  346.         <TD COLSPAN=5>
  347.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG><%=locAddInstr1%></STRONG></FONT>
  348.         </TD>
  349.     </TR>
  350.     <TR>
  351.         <TD WIDTH="12%">
  352.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  353.                 <FORM NAME="frmFILENAME">
  354.                     <%=locPath%>
  355.         </TD>
  356.         <TD WIDTH="50%">
  357.                     <INPUT TYPE=TEXT SIZE=32 NAME="FILENAME" VALUE="<%=Myinfo.dropStr%>" onClick="VBScript:frmAdd.btnAdd.disabled ='False'">
  358.         </TD>
  359. <% dropStr = ""
  360. Myinfo.dropStr = ""
  361. %>
  362.         <TD COLSPAN=2>
  363.                 <INPUT TYPE=BUTTON VALUE=" <%=locAddBrowsebtn%> " ONClick="VBScript:Browser()" NAME="hdnBrowser">
  364.                 </FORM>
  365.             </STRONG></FONT>
  366.         </TD>
  367.     </TR>
  368.     <TR>
  369.         <TD>
  370.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  371.                 <FORM NAME="frmDESCRIPTION">
  372.             <%=locDescription%>
  373.         </TD>
  374.         <TD COLSPAN=4>
  375.             <INPUT TYPE=TEXT SIZE=38 NAME="DESCRIPTION" VALUE="">
  376.             </FORM>
  377.             </STRONG></FONT>
  378.         </TD>
  379.     </TR>
  380.     <TR>
  381.         <TD COLSPAN=5>
  382.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  383.                 <%=locAddInstr2%>
  384.             </STRONG></FONT>
  385.         </TD>
  386.     </TR>
  387.     <TR>
  388.         <TD COLSPAN=4>    
  389.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG><%=locAddInstr3%></STRONG></FONT>
  390.         </TD>
  391.     </TR>
  392.     <TR>
  393.         <TD COLSPAN=2 VALIGN=TOP ALIGN=LEFT HEIGHT=105>
  394.             <IFRAME NAME=IFRFILENAME FRAMEBORDER=0 HEIGHT=105 WIDTH=349 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=AUTO SRC="filelist.asp"></IFRAME>
  395.         </TD>
  396.         <TD COLSPAN=2>
  397.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  398.                 <FORM NAME="frmAdd">
  399.                 <INPUT  ID="btnAdd" TYPE=BUTTON VALUE="     <%=locAddAddbtn%>    " ONCLICK="cmdAdd_Click()"><P>
  400.             </FORM>
  401.                  <FORM NAME="frmRemove">
  402.                 <INPUT ID="btnRemove" TYPE=BUTTON VALUE="<%=locAddRemovebtn%>" ONCLICK="cmdRemove_Click()"><P>
  403.             </FORM>
  404.             </STRONG></FONT>
  405.         </TD>
  406.     </TR>
  407.     <TR HEIGHT=15>
  408.         <TD COLSPAN=2>
  409.          
  410.         </TD>
  411.         <TD ALIGN=RIGHT>
  412.         <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  413.             <FORM NAME="goBack" METHOD=POST ACTION="welcome.asp">
  414.                 <INPUT ID="goBackBTN" TYPE="SUBMIT" VALUE="<<" >
  415.                 <INPUT TYPE="HIDDEN" VALUE="Choose" NAME="Action">
  416.                 <INPUT TYPE="HIDDEN" VALUE="1" NAME="sync">
  417.             </FORM>
  418.             </STRONG></FONT>
  419.         </TD>
  420.         <TD HEIGHT=15>
  421.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  422.               <FORM NAME="goNext" METHOD=POST ACTION="welcome.asp">
  423.                 <INPUT TYPE=SUBMIT VALUE=">>" ID="goNextBTN">
  424.                 <INPUT TYPE=HIDDEN VALUE="Finish" NAME="Action">
  425.             </FORM>
  426.             </STRONG></FONT>
  427.         </TD>
  428.     <TR/>
  429. </TABLE>
  430. <% response.flush %>
  431. <%Case "Remove"%>
  432. <% Myinfo.ShowText = 1 %>
  433. <HTML>
  434. <HEAD>
  435. <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  436. <TITLE><%=locPubWiz%></TITLE>
  437. <META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=windows-1250">
  438. </HEAD>
  439. <SCRIPT LANGUAGE="VBScript"><!--
  440. Sub cmdNext_Click()
  441. If document.frmFILENAME.FILENAME.value <> "" Then
  442.     IFRFILENAME.remItem()
  443. ELSE
  444.     frmNext.goNextBTN.disabled = "True"
  445. End If
  446. End sub
  447.  
  448. Sub Start()
  449.     frmNext.goNextBTN.disabled = "True"
  450.     IFRFILENAME.frmFILENAME.selFILENAME.multiple = "multiple"
  451. End Sub
  452. -->
  453. </SCRIPT>
  454. <BODY BGCOLOR="#FFFFFF" TEXT="#000000" TOPMARGIN="0" LEFTMARGIN="0" onLoad="VBScript:Start()">
  455. <TABLE BORDER="0" CELLPADDING="1" CELLSPACING="1" WIDTH="100%">
  456.     <TR>
  457.         <TD BACKGROUND="pubbannr.gif" COLSPAN="4" ALIGN="CENTER" HEIGHT="50">
  458.             <FONT FACE="Arial, Arial" SIZE=5><STRONG>
  459.             <%=locPubWiz%>
  460.             </STRONG></FONT>
  461.          </TD>
  462.     </TR>
  463.      <TR>
  464.         <TD COLSPAN=4>
  465.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG><%=locRemoveInstr1%></STRONG></FONT>
  466.         </TD>
  467.     </TR>
  468.      <TR>
  469.         <TD WIDTH="15%">
  470.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  471.             <FORM NAME="frmFILENAME">
  472.             <%=locFile%>
  473.         </TD>
  474.         <TD COLSPAN=3 >
  475.             <INPUT TYPE=TEXT SIZE=32 NAME="FILENAME" VALUE="<%=delStr%>">
  476.               </FORM>
  477.             </STRONG></FONT>
  478.         </TD>
  479.     </TR>
  480.     <TR>
  481.         <TD>
  482.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  483.             <FORM NAME="frmDESCRIPTION">
  484.             <%=locDescription%>
  485.         </TD>
  486.         <TD COLSPAN=4>
  487.             <INPUT TYPE=TEXT SIZE=43 NAME="DESCRIPTION" VALUE="">
  488.             </FORM>
  489.             </STRONG></FONT>
  490.         </TD>
  491.     </TR>
  492.     <TR>
  493.         <TD COLSPAN=4>
  494.                 <FONT FACE="Arial, Arial" SIZE=-2><STRONG><%=locPubFiles%></STRONG> </FONT>
  495.         </TD>
  496.     </TR>
  497.     <TR>
  498.         <TD COLSPAN=3 ALIGN=LEFT HEIGHT=105>
  499.             <IFRAME NAME=IFRFILENAME FRAMEBORDER=0 HEIGHT=105 WIDTH=400 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=AUTO SRC="filelist.asp"></IFRAME>
  500.         </TD>
  501.         <TD WIDTH="5%">
  502.          
  503.         </TD>
  504.     </TR>
  505.     <TR HEIGHT=10>
  506.         <TD ALIGN=RIGHT COLSPAN=3>
  507.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  508.             <FORM METHOD=POST ACTION="welcome.asp">
  509.                 <INPUT TYPE=SUBMIT VALUE="<<" NAME="btnBACK">
  510.                 <INPUT TYPE="HIDDEN" VALUE="Choose" NAME="Action">
  511.                 <INPUT TYPE="HIDDEN" VALUE="1" NAME="sync">
  512.             </FORM>
  513.             </STRONG></FONT>
  514.         </TD>
  515.         <TD>
  516.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  517.               <FORM NAME="frmNext">
  518.                 <INPUT ID="goNextBTN" TYPE=BUTTON VALUE=">>" onClick="VBScript:cmdNext_Click()">
  519.             </FORM>
  520.             </STRONG></FONT>
  521.         </TD>
  522.     <TR/>
  523. </TABLE>
  524. <% response.flush %>
  525. <%Case "Refresh"%>
  526. <% Myinfo.ShowText = 1
  527.  %>
  528. <HTML>
  529. <HEAD>
  530. <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  531. <TITLE><%=locPubWiz%></TITLE>
  532. <META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=windows-1250">
  533. </HEAD>
  534. <SCRIPT LANGUAGE="VBScript"><!--
  535. Sub cmdNext_Click()
  536. If document.frmFILENAME.FILENAME.value <> "" Then
  537.     IFRFILENAME.refreshItem()
  538. ELSE
  539.     frmNext.goNextBTN.disabled = "True"
  540. End If
  541. end sub
  542.  
  543. Sub Start()
  544.     frmNext.goNextBTN.disabled = "True"
  545.     IFRFILENAME.frmFILENAME.selFILENAME.multiple = "multiple"
  546. End Sub
  547. -->
  548. </SCRIPT>
  549. <BODY BGCOLOR="#FFFFFF" TEXT="#000000" TOPMARGIN="0" LEFTMARGIN="0" onLoad="VBScript:Start()">
  550. <TABLE BORDER="0" CELLPADDING="1" CELLSPACING="1" WIDTH="100%">
  551.     <TR>
  552.         <TD BACKGROUND="pubbannr.gif" COLSPAN="4" ALIGN="CENTER" HEIGHT="50">
  553.             <FONT FACE="Arial, Arial" SIZE=5><STRONG>
  554.             <%=locPubWiz%>
  555.             </STRONG></FONT>
  556.          </TD>
  557.     </TR>
  558.      <TR>
  559.         <TD COLSPAN=4>
  560.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG><%=locRefreshInstr1%></STRONG></FONT>
  561.         </TD>
  562.     </TR>
  563.      <TD WIDTH="15%">
  564.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  565.             <FORM NAME="frmFILENAME">
  566.             <%=locFile%>
  567.         </TD>
  568.         <TD COLSPAN=3 >
  569.             <INPUT TYPE=TEXT SIZE=32 NAME="FILENAME" VALUE="">
  570.               </FORM>
  571.             </STRONG></FONT>
  572.         </TD>
  573.     </TR>
  574.     <TR>
  575.         <TD>
  576.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  577.             <FORM NAME="frmDESCRIPTION">
  578.             <%=locDescription%>
  579.         </TD>
  580.         <TD COLSPAN=4>
  581.             <INPUT TYPE=TEXT SIZE=43 NAME="DESCRIPTION" VALUE="">
  582.             </FORM>
  583.             </STRONG></FONT>
  584.         </TD>
  585.     </TR>
  586.     <TR>
  587.         <TD COLSPAN=4>
  588.                 <FONT FACE="Arial, Arial" SIZE=-2><STRONG><%=locPubFiles%></STRONG> </FONT>
  589.         </TD>
  590.     </TR>
  591.     <TR>
  592.         <TD COLSPAN=3 ALIGN=LEFT HEIGHT=105>
  593.             <IFRAME NAME=IFRFILENAME FRAMEBORDER=0 HEIGHT=105 WIDTH=400 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=AUTO SRC="filelist.asp"></IFRAME>
  594.         </TD>
  595.         <TD WIDTH="5%">
  596.          
  597.         </TD>
  598.     </TR>
  599.     <TR HEIGHT=10>
  600.         <TD ALIGN=RIGHT COLSPAN=3>
  601.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  602.             <FORM METHOD=POST ACTION="welcome.asp">
  603.                 <INPUT TYPE=SUBMIT VALUE="<<" NAME="btnBACK">
  604.                 <INPUT TYPE="HIDDEN" VALUE="Choose" NAME="Action">
  605.                 <INPUT TYPE="HIDDEN" VALUE="1" NAME="sync">
  606.             </FORM>
  607.             </STRONG></FONT>
  608.         </TD>
  609.         <TD>
  610.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  611.               <FORM NAME="frmNext">
  612.                 <INPUT ID="goNextBTN" TYPE=BUTTON VALUE=">>" ONCLICK="cmdNext_Click()" NAME="btnNEXT">
  613.             </FORM>
  614.             </STRONG></FONT>
  615.         </TD>
  616.     <TR/>
  617. </TABLE>
  618. <% response.flush %>
  619. <%Case "Change"%>
  620. <%
  621. Myinfo.ShowText = 1
  622. Myinfo.Width=1
  623. %>
  624. <HTML>
  625. <HEAD>
  626. <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  627. <TITLE><%=locPubWiz%></TITLE>
  628. <META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=windows-1250">
  629. </HEAD>
  630. <SCRIPT LANGUAGE="VBScript"><!--
  631. Sub cmdUpdate_Click()
  632. If document.frmFILENAME.FILENAME.value <> "" Then
  633.     newDescription = document.frmDESCRIPTION.DESCRIPTION.value
  634.     ifrFILENAME.updateItem(newDescription)
  635.     document.frmDESCRIPTION.DESCRIPTION.value = ""
  636.     document.frmFILENAME.FILENAME.value = ""
  637.     frmNext.goNextBTN.disabled = "False"
  638.     frmUpdate.btnUpdate.disabled = "True"
  639. Else
  640.     frmNext.goNextBTN.disabled = "True"
  641. End If
  642. End sub
  643.  
  644. Sub Start()
  645.     frmNext.goNextBTN.disabled = "True"
  646.     frmUpdate.btnUpdate.disabled = "True"
  647.     ifrFILENAME.changeValue()
  648. End Sub
  649. -->
  650. </SCRIPT>
  651. <BODY BGCOLOR="#FFFFFF" TEXT="#000000" TOPMARGIN="0" LEFTMARGIN="0" onLoad="VBScript:Start()">
  652. <TABLE BORDER="0" CELLPADDING="1" CELLSPACING="1" WIDTH="100%">
  653.     <TR>
  654.         <TD BACKGROUND="pubbannr.gif" COLSPAN="5" ALIGN="CENTER" HEIGHT="50">
  655.             <FONT FACE="Arial, Arial" SIZE=5><STRONG>
  656.             <%=locPubWiz%>
  657.             </STRONG></FONT>
  658.          </TD>
  659.     </TR>
  660.      <TR>
  661.         <TD COLSPAN=5>
  662.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG><%=locChangeInstr1%></STRONG></FONT>
  663.             </TD>
  664.     </TR>
  665.      <TD WIDTH="12%">
  666.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  667.             <FORM NAME="frmFILENAME">
  668.             <%=locFile%>
  669.         </TD>
  670.         <TD WIDTH="50%">
  671.             <INPUT TYPE=TEXT SIZE=32 NAME="FILENAME" VALUE="">
  672.               </FORM>
  673.             </STRONG></FONT>
  674.         </TD>
  675.     </TR>
  676.     <TR>
  677.         <TD>
  678.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  679.             <FORM NAME="frmDESCRIPTION">
  680.             <%=locDescription%>
  681.         </TD>
  682.         <TD COLSPAN=4>
  683.             <INPUT TYPE=TEXT SIZE=38 NAME="DESCRIPTION" VALUE="" OnFocus="VBScript:frmUpdate.btnUpdate.disabled = 'False'">
  684.             </FORM>
  685.             </STRONG></FONT>
  686.         </TD>
  687.     </TR>
  688.     <TR>
  689.         <TD COLSPAN=4>
  690.                 <FONT FACE="Arial, Arial" SIZE=-2><STRONG><%=locPubFiles%></STRONG></FONT>
  691.         </TD>
  692.     </TR>
  693.     <TR>
  694.         <TD COLSPAN=2 ALIGN=LEFT VALIGN=TOP HEIGHT=105>
  695.             <IFRAME NAME=IFRFILENAME FRAMEBORDER=0 HEIGHT=105 WIDTH=349 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=AUTO SRC="filelist.asp"></IFRAME>
  696.         </TD>
  697.         <TD COLSPAN=2 VALIGN=TOP>
  698.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  699.             <FORM NAME="frmUpdate">
  700.                 <INPUT ID="btnUpdate" TYPE=BUTTON VALUE=" <%=locChangeUpdatebtn%> " ONCLICK="cmdUpdate_Click()" >
  701.             </FORM>
  702.             </STRONG></FONT>
  703.         </TD>
  704.     </TR>
  705.     <TR HEIGHT=15>
  706.         <TD COLSPAN=2>
  707.         </TD>
  708.         <TD ALIGN=RIGHT>
  709.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  710.             <FORM METHOD=POST ACTION="welcome.asp">
  711.                 <INPUT TYPE=SUBMIT VALUE="<<" NAME="btnBACK">
  712.                 <INPUT TYPE="HIDDEN" VALUE="Choose" NAME="Action">
  713.                 <INPUT TYPE="HIDDEN" VALUE="1" NAME="sync">
  714.             </FORM>
  715.             </STRONG></FONT>
  716.         </TD>
  717.         <TD HEIGHT=15>
  718.             <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  719.               <FORM NAME="frmNext" METHOD=POST ACTION="welcome.asp">
  720.                 <INPUT ID="goNextBTN" TYPE=SUBMIT VALUE=">>" "VBScript:document.frmNext.submit" >
  721.                 <INPUT TYPE=HIDDEN VALUE="Finish" NAME="Action">
  722.             </FORM>
  723.             </STRONG></FONT>
  724.         </TD>
  725.     <TR/>
  726. </TABLE>
  727.  
  728. </BODY>
  729. </HTML>
  730. <% response.flush %>
  731. <% Case "Finish"
  732.  
  733. Dim insRec, delRec, updRec, operation, newFileDescription, remRecord,  _
  734. neg, negComment, negComment1, negComment2, plurality, nRecords, showNames
  735.  
  736. '----------Query strings-------------------------
  737.  
  738. refreshRec=request.querystring("refreshRec")
  739. remRecord = request.querystring("remRecord")
  740. nRecords = request.querystring("nRecords")
  741.  
  742. '----------Update Page Variables------------------
  743.  
  744. insRec = Myinfo.insRec
  745. updRec = Myinfo.updRec
  746. operation = ""
  747. neg = ""
  748. negComment = ""
  749. plurality = ""
  750.  
  751.     
  752. '------------Call Subs-----------------
  753. If remRecord <> "" Then 'Remove records
  754.     remFiles remRecord, nRecords
  755. End If
  756.  
  757. If insRec = 1 Then 'Add records
  758.     insertFiles
  759. End If
  760.  
  761. If updRec = 1 Then 'Update records
  762.     updFiles 
  763. End If
  764.  
  765. If refreshRec <> "" Then 'Refresh records
  766.     refreshFiles refreshRec, nRecords
  767. End If
  768. %>
  769. <!-- #include file="finish.inc" -->
  770. <%
  771. Sub resetVar 
  772.     Myinfo.insRec = 0
  773.     Myinfo.updRec = 0
  774.     Myinfo.publish = 0
  775.     Myinfo.dropStr = ""
  776.     Myinfo.descrip = ""
  777.     Myinfo.Showtext = 0
  778.     Myinfo.numRecords = 0
  779.     Myinfo.addDisplay = 0
  780.     Myinfo.Width = 0
  781.     Myinfo.sync = 1
  782.     Myinfo.strFull = ""
  783.     Myinfo.strDisplay = ""
  784. End Sub
  785. %>
  786. <HTML>
  787. <HEAD>
  788. <TITLE><%=locPubWiz%></TITLE>
  789. <META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=windows-1250">
  790. </HEAD>
  791. <BODY BGCOLOR="#FFFFFF" TEXT="#000000" TOPMARGIN="0" LEFTMARGIN="0">
  792. <TABLE BORDER=0 WIDTH=100% CELLPADDING=1 CELLSPACING=1 HEIGHT=300>
  793.     <TR>
  794.         <TD BACKGROUND="pubbannr.gif" COLSPAN="3" ALIGN="CENTER" HEIGHT="50">
  795.             <FONT FACE="Arial, Arial" SIZE=5><STRONG>
  796.             <%=locPubWiz%>
  797.             </STRONG></Font>
  798.         </TD>
  799.     </TR>
  800.     <TR  HEIGHT=50>
  801.         <TD ALIGN=LEFT>
  802.             <IMG SRC='../website/streamer.gif'HEIGHT=150 WIDTH=148>
  803.         </TD>
  804.         <TD ALIGN=TOP>
  805.         <FONT FACE="Arial, Arial" SIZE=2><STRONG>
  806.         <%=showNames%> <%=plurality%> <%=operation%>
  807.         <P>
  808.         <%=negComment1%><P>
  809.         <%=negComment2%><P>
  810.         </STRONG></FONT>
  811.         </TD>
  812.     </TR>
  813.     <TR HEIGHT=30>
  814.         <TD>
  815.         </TD>
  816.         <TD ALIGN=RIGHT>
  817.         <FONT FACE="Arial, Arial" SIZE=-2><STRONG>
  818.           <FORM METHOD=POST ACTION="welcome.asp">
  819.             <INPUT TYPE=SUBMIT VALUE="<<" NAME="btnReturn">
  820.             <INPUT TYPE="HIDDEN" VALUE="Choose" NAME="Action">
  821.             <INPUT TYPE="HIDDEN" VALUE="1" NAME="sync">
  822.         </FORM>
  823.         </STRONG></FONT>
  824.         </TD>
  825.     </TR>
  826. </TABLE>
  827. </BODY>
  828. </HTML>
  829. <% response.flush %>
  830. <% End Select %>
  831.  
  832.  
  833.  
  834.  
  835.