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