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