home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 July / Chip_2000-07_cd.bin / servis / SPNT / sp6x86.exe / welcome.asp < prev    next >
Encoding:
Text File  |  1999-12-15  |  21.3 KB  |  831 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. Sub updateVar
  46.     isFiles = 0
  47.     defasp = 0
  48.     action = ""
  49.     Myinfo.insRec = 0
  50.     Myinfo.updRec = 0
  51.     Myinfo.sync = 1
  52.     Myinfo.publish = 0
  53.     Myinfo.descrip = ""
  54.     Myinfo.Showtext = 0
  55.     Myinfo.numRecords = 0
  56.     Myinfo.addDisplay = 0
  57.     Myinfo.Width = 0
  58.     Myinfo.strFull = ""
  59.     Myinfo.strDisplay = ""
  60. End Sub
  61.  
  62. '----------Opening Syncronization of Files--------
  63.  
  64. setSystemObj
  65. setConnObj
  66. ChkRunWiz
  67.  
  68. If Myinfo.sync = 1 Then
  69.     readPublish
  70.     readWebPub
  71.     addNewFiles
  72.     removeFiles
  73.     updateStrings
  74.     sendUser
  75. End If
  76.  
  77. If dropStr <> "" Then 
  78.     choice="Add"
  79.     Myinfo.publish = -1
  80.     Myinfo.dropStr = dropStr
  81. End If
  82. %>
  83.  
  84. <!-- #include file="welcome.inc" -->
  85.  
  86. <% Select Case choice%>
  87. <% Case "Welcome" %>
  88. <HTML>
  89. <HEAD>
  90. <%=noCache%>
  91. <TITLE><%=locPubWiz%></TITLE>
  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="VERDANA, ARIAL, HELVETICA" 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="175">
  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="VERDANA, ARIAL, HELVETICA" 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=ISO-8859-1">
  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="VERDANA, ARIAL, HELVETICA" SIZE=5><STRONG>
  186.             <%=locPubWiz%>
  187.             </STRONG></Font>
  188.         </TD>
  189.     </TR>
  190.     <TR>
  191.         <TD ALIGN=LEFT>
  192.         <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=3><STRONG><EM><%=locChooseWhatDo%></EM></STRONG></FONT>
  193.     </TD>
  194.     </TR>
  195.     <TR>
  196.         <TD ALIGN=LEFT>
  197.         <BLOCKQUOTE>
  198.         <FONT FACE="VERDANA, ARIAL, HELVETICA" 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="VERDANA, ARIAL, HELVETICA" 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-Ty<TITLE>PWS Publishing Wizard</TITLE>
  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="VERDANA, ARIAL, HELVETICA" SIZE=5><STRONG>
  341.             <%=locPubWiz%>
  342.             </STRONG></FONT>
  343.          </TD>
  344.     </TR>
  345.      <TR>
  346.         <TD COLSPAN=5>
  347.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG><%=locAddInstr1%></STRONG></FONT>
  348.         </TD>
  349.     </TR>
  350.     <TR>
  351.         <TD WIDTH="12%">
  352.             <FONT FACE="VERDANA, ARIAL, HELVETICA" 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="VERDANA, ARIAL, HELVETICA" 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="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG>
  383.                 <%=locAddInstr2%>
  384.             </STRONG></FONT>
  385.         </TD>
  386.     </TR>
  387.     <TR>
  388.         <TD COLSPAN=4>    
  389.             <FONT FACE="VERDANA, ARIAL, HELVETICA" 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="VERDANA, ARIAL, HELVETICA" 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="VERDANA, ARIAL, HELVETICA" 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="VERDANA, ARIAL, HELVETICA" 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. </HEAD>
  438. <SCRIPT LANGUAGE="VBScript"><!--
  439. Sub cmdNext_Click()
  440. If document.frmFILENAME.FILENAME.value <> "" Then
  441.     IFRFILENAME.remItem()
  442. ELSE
  443.     frmNext.goNextBTN.disabled = "True"
  444. End If
  445. End sub
  446.  
  447. Sub Start()
  448.     frmNext.goNextBTN.disabled = "True"
  449.     IFRFILENAME.frmFILENAME.selFILENAME.multiple = "multiple"
  450. End Sub
  451. -->
  452. </SCRIPT>
  453. <BODY BGCOLOR="#FFFFFF" TEXT="#000000" TOPMARGIN="0" LEFTMARGIN="0" onLoad="VBScript:Start()">
  454. <TABLE BORDER="0" CELLPADDING="1" CELLSPACING="1" WIDTH="100%">
  455.     <TR>
  456.         <TD BACKGROUND="pubbannr.gif" COLSPAN="4" ALIGN="CENTER" HEIGHT="50">
  457.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=5><STRONG>
  458.             <%=locPubWiz%>
  459.             </STRONG></FONT>
  460.          </TD>
  461.     </TR>
  462.      <TR>
  463.         <TD COLSPAN=4>
  464.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG><%=locRemoveInstr1%></STRONG></FONT>
  465.         </TD>
  466.     </TR>
  467.      <TR>
  468.         <TD WIDTH="15%">
  469.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG>
  470.             <FORM NAME="frmFILENAME">
  471.             <%=locFile%>
  472.         </TD>
  473.         <TD COLSPAN=3 >
  474.             <INPUT TYPE=TEXT SIZE=32 NAME="FILENAME" VALUE="<%=delStr%>">
  475.               </FORM>
  476.             </STRONG></FONT>
  477.         </TD>
  478.     </TR>
  479.     <TR>
  480.         <TD>
  481.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG>
  482.             <FORM NAME="frmDESCRIPTION">
  483.             <%=locDescription%>
  484.         </TD>
  485.         <TD COLSPAN=4>
  486.             <INPUT TYPE=TEXT SIZE=43 NAME="DESCRIPTION" VALUE="">
  487.             </FORM>
  488.             </STRONG></FONT>
  489.         </TD>
  490.     </TR>
  491.     <TR>
  492.         <TD COLSPAN=4>
  493.                 <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG><%=locPubFiles%></STRONG> </FONT>
  494.         </TD>
  495.     </TR>
  496.     <TR>
  497.         <TD COLSPAN=3 ALIGN=LEFT HEIGHT=105>
  498.             <IFRAME NAME=IFRFILENAME FRAMEBORDER=0 HEIGHT=105 WIDTH=400 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=AUTO SRC="filelist.asp"></IFRAME>
  499.         </TD>
  500.         <TD WIDTH="5%">
  501.          
  502.         </TD>
  503.     </TR>
  504.     <TR HEIGHT=10>
  505.         <TD ALIGN=RIGHT COLSPAN=3>
  506.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG>
  507.             <FORM METHOD=POST ACTION="welcome.asp">
  508.                 <INPUT TYPE=SUBMIT VALUE="<<" NAME="btnBACK">
  509.                 <INPUT TYPE="HIDDEN" VALUE="Choose" NAME="Action">
  510.                 <INPUT TYPE="HIDDEN" VALUE="1" NAME="sync">
  511.             </FORM>
  512.             </STRONG></FONT>
  513.         </TD>
  514.         <TD>
  515.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG>
  516.               <FORM NAME="frmNext">
  517.                 <INPUT ID="goNextBTN" TYPE=BUTTON VALUE=">>" onClick="VBScript:cmdNext_Click()">
  518.             </FORM>
  519.             </STRONG></FONT>
  520.         </TD>
  521.     <TR/>
  522. </TABLE>
  523. <% response.flush %>
  524. <%Case "Refresh"%>
  525. <% Myinfo.ShowText = 1
  526.  %>
  527. <HTML>
  528. <HEAD>
  529. <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  530. <TITLE><%=locPubWiz%></TITLE>
  531. </HEAD>
  532. <SCRIPT LANGUAGE="VBScript"><!--
  533. Sub cmdNext_Click()
  534. If document.frmFILENAME.FILENAME.value <> "" Then
  535.     IFRFILENAME.refreshItem()
  536. ELSE
  537.     frmNext.goNextBTN.disabled = "True"
  538. End If
  539. end sub
  540.  
  541. Sub Start()
  542.     frmNext.goNextBTN.disabled = "True"
  543.     IFRFILENAME.frmFILENAME.selFILENAME.multiple = "multiple"
  544. End Sub
  545. -->
  546. </SCRIPT>
  547. <BODY BGCOLOR="#FFFFFF" TEXT="#000000" TOPMARGIN="0" LEFTMARGIN="0" onLoad="VBScript:Start()">
  548. <TABLE BORDER="0" CELLPADDING="1" CELLSPACING="1" WIDTH="100%">
  549.     <TR>
  550.         <TD BACKGROUND="pubbannr.gif" COLSPAN="4" ALIGN="CENTER" HEIGHT="50">
  551.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=5><STRONG>
  552.             <%=locPubWiz%>
  553.             </STRONG></FONT>
  554.          </TD>
  555.     </TR>
  556.      <TR>
  557.         <TD COLSPAN=4>
  558.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG><%=locRefreshInstr1%></STRONG></FONT>
  559.         </TD>
  560.     </TR>
  561.      <TD WIDTH="15%">
  562.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG>
  563.             <FORM NAME="frmFILENAME">
  564.             <%=locFile%>
  565.         </TD>
  566.         <TD COLSPAN=3 >
  567.             <INPUT TYPE=TEXT SIZE=32 NAME="FILENAME" VALUE="">
  568.               </FORM>
  569.             </STRONG></FONT>
  570.         </TD>
  571.     </TR>
  572.     <TR>
  573.         <TD>
  574.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG>
  575.             <FORM NAME="frmDESCRIPTION">
  576.             <%=locDescription%>
  577.         </TD>
  578.         <TD COLSPAN=4>
  579.             <INPUT TYPE=TEXT SIZE=43 NAME="DESCRIPTION" VALUE="">
  580.             </FORM>
  581.             </STRONG></FONT>
  582.         </TD>
  583.     </TR>
  584.     <TR>
  585.         <TD COLSPAN=4>
  586.                 <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG><%=locPubFiles%></STRONG> </FONT>
  587.         </TD>
  588.     </TR>
  589.     <TR>
  590.         <TD COLSPAN=3 ALIGN=LEFT HEIGHT=105>
  591.             <IFRAME NAME=IFRFILENAME FRAMEBORDER=0 HEIGHT=105 WIDTH=400 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=AUTO SRC="filelist.asp"></IFRAME>
  592.         </TD>
  593.         <TD WIDTH="5%">
  594.          
  595.         </TD>
  596.     </TR>
  597.     <TR HEIGHT=10>
  598.         <TD ALIGN=RIGHT COLSPAN=3>
  599.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG>
  600.             <FORM METHOD=POST ACTION="welcome.asp">
  601.                 <INPUT TYPE=SUBMIT VALUE="<<" NAME="btnBACK">
  602.                 <INPUT TYPE="HIDDEN" VALUE="Choose" NAME="Action">
  603.                 <INPUT TYPE="HIDDEN" VALUE="1" NAME="sync">
  604.             </FORM>
  605.             </STRONG></FONT>
  606.         </TD>
  607.         <TD>
  608.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG>
  609.               <FORM NAME="frmNext">
  610.                 <INPUT ID="goNextBTN" TYPE=BUTTON VALUE=">>" ONCLICK="cmdNext_Click()" NAME="btnNEXT">
  611.             </FORM>
  612.             </STRONG></FONT>
  613.         </TD>
  614.     <TR/>
  615. </TABLE>
  616. <% response.flush %>
  617. <%Case "Change"%>
  618. <%
  619. Myinfo.ShowText = 1
  620. Myinfo.Width=1
  621. %>
  622. <HTML>
  623. <HEAD>
  624. <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  625. <TITLE><%=locPubWiz%></TITLE>
  626. </HEAD>
  627. <SCRIPT LANGUAGE="VBScript"><!--
  628. Sub cmdUpdate_Click()
  629. If document.frmFILENAME.FILENAME.value <> "" Then
  630.     newDescription = document.frmDESCRIPTION.DESCRIPTION.value
  631.     ifrFILENAME.updateItem(newDescription)
  632.     document.frmDESCRIPTION.DESCRIPTION.value = ""
  633.     document.frmFILENAME.FILENAME.value = ""
  634.     frmNext.goNextBTN.disabled = "False"
  635.     frmUpdate.btnUpdate.disabled = "True"
  636. Else
  637.     frmNext.goNextBTN.disabled = "True"
  638. End If
  639. End sub
  640.  
  641. Sub Start()
  642.     frmNext.goNextBTN.disabled = "True"
  643.     frmUpdate.btnUpdate.disabled = "True"
  644.     ifrFILENAME.changeValue()
  645. End Sub
  646. -->
  647. </SCRIPT>
  648. <BODY BGCOLOR="#FFFFFF" TEXT="#000000" TOPMARGIN="0" LEFTMARGIN="0" onLoad="VBScript:Start()">
  649. <TABLE BORDER="0" CELLPADDING="1" CELLSPACING="1" WIDTH="100%">
  650.     <TR>
  651.         <TD BACKGROUND="pubbannr.gif" COLSPAN="5" ALIGN="CENTER" HEIGHT="50">
  652.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=5><STRONG>
  653.             <%=locPubWiz%>
  654.             </STRONG></FONT>
  655.          </TD>
  656.     </TR>
  657.      <TR>
  658.         <TD COLSPAN=5>
  659.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG><%=locChangeInstr1%></STRONG></FONT>
  660.             </TD>
  661.     </TR>
  662.      <TD WIDTH="12%">
  663.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG>
  664.             <FORM NAME="frmFILENAME">
  665.             <%=locFile%>
  666.         </TD>
  667.         <TD WIDTH="50%">
  668.             <INPUT TYPE=TEXT SIZE=32 NAME="FILENAME" VALUE="">
  669.               </FORM>
  670.             </STRONG></FONT>
  671.         </TD>
  672.     </TR>
  673.     <TR>
  674.         <TD>
  675.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG>
  676.             <FORM NAME="frmDESCRIPTION">
  677.             <%=locDescription%>
  678.         </TD>
  679.         <TD COLSPAN=4>
  680.             <INPUT TYPE=TEXT SIZE=38 NAME="DESCRIPTION" VALUE="" OnFocus="VBScript:frmUpdate.btnUpdate.disabled = 'False'">
  681.             </FORM>
  682.             </STRONG></FONT>
  683.         </TD>
  684.     </TR>
  685.     <TR>
  686.         <TD COLSPAN=4>
  687.                 <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG><%=locPubFiles%></STRONG></FONT>
  688.         </TD>
  689.     </TR>
  690.     <TR>
  691.         <TD COLSPAN=2 ALIGN=LEFT VALIGN=TOP HEIGHT=105>
  692.             <IFRAME NAME=IFRFILENAME FRAMEBORDER=0 HEIGHT=105 WIDTH=349 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=AUTO SRC="filelist.asp"></IFRAME>
  693.         </TD>
  694.         <TD COLSPAN=2 VALIGN=TOP>
  695.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG>
  696.             <FORM NAME="frmUpdate">
  697.                 <INPUT ID="btnUpdate" TYPE=BUTTON VALUE=" <%=locChangeUpdatebtn%> " ONCLICK="cmdUpdate_Click()" >
  698.             </FORM>
  699.             </STRONG></FONT>
  700.         </TD>
  701.     </TR>
  702.     <TR HEIGHT=15>
  703.         <TD COLSPAN=2>
  704.         </TD>
  705.         <TD ALIGN=RIGHT>
  706.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG>
  707.             <FORM METHOD=POST ACTION="welcome.asp">
  708.                 <INPUT TYPE=SUBMIT VALUE="<<" NAME="btnBACK">
  709.                 <INPUT TYPE="HIDDEN" VALUE="Choose" NAME="Action">
  710.                 <INPUT TYPE="HIDDEN" VALUE="1" NAME="sync">
  711.             </FORM>
  712.             </STRONG></FONT>
  713.         </TD>
  714.         <TD HEIGHT=15>
  715.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG>
  716.               <FORM NAME="frmNext" METHOD=POST ACTION="welcome.asp">
  717.                 <INPUT ID="goNextBTN" TYPE=SUBMIT VALUE=">>" "VBScript:document.frmNext.submit" >
  718.                 <INPUT TYPE=HIDDEN VALUE="Finish" NAME="Action">
  719.             </FORM>
  720.             </STRONG></FONT>
  721.         </TD>
  722.     <TR/>
  723. </TABLE>
  724.  
  725. </BODY>
  726. </HTML>
  727. <% response.flush %>
  728. <% Case "Finish"
  729.  
  730. Dim insRec, delRec, updRec, operation, newFileDescription, remRecord,  _
  731. neg, negComment, negComment1, negComment2, plurality, nRecords, showNames
  732.  
  733. '----------Query strings-------------------------
  734.  
  735. refreshRec=request.querystring("refreshRec")
  736. remRecord = request.querystring("remRecord")
  737. nRecords = request.querystring("nRecords")
  738.  
  739. '----------Update Page Variables------------------
  740.  
  741. insRec = Myinfo.insRec
  742. updRec = Myinfo.updRec
  743. operation = ""
  744. neg = ""
  745. negComment = ""
  746. plurality = ""
  747.  
  748.     
  749. '------------Call Subs-----------------
  750. If remRecord <> "" Then 'Remove records
  751.     remFiles remRecord, nRecords
  752. End If
  753.  
  754. If insRec = 1 Then 'Add records
  755.     insertFiles
  756. End If
  757.  
  758. If updRec = 1 Then 'Update records
  759.     updFiles 
  760. End If
  761.  
  762. If refreshRec <> "" Then 'Refresh records
  763.     refreshFiles refreshRec, nRecords
  764. End If
  765. %>
  766. <!-- #include file="finish.inc" -->
  767. <%
  768. Sub resetVar 
  769.     Myinfo.insRec = 0
  770.     Myinfo.updRec = 0
  771.     Myinfo.publish = 0
  772.     Myinfo.dropStr = ""
  773.     Myinfo.descrip = ""
  774.     Myinfo.Showtext = 0
  775.     Myinfo.numRecords = 0
  776.     Myinfo.addDisplay = 0
  777.     Myinfo.Width = 0
  778.     Myinfo.sync = 1
  779.     Myinfo.strFull = ""
  780.     Myinfo.strDisplay = ""
  781. End Sub
  782. %>
  783. <HTML>
  784. <HEAD>
  785. <TITLE><%=locPubWiz%></TITLE>
  786. </HEAD>
  787. <BODY BGCOLOR="#FFFFFF" TEXT="#000000" TOPMARGIN="0" LEFTMARGIN="0">
  788. <TABLE BORDER=0 WIDTH=100% CELLPADDING=1 CELLSPACING=1 HEIGHT=300>
  789.     <TR>
  790.         <TD BACKGROUND="pubbannr.gif" COLSPAN="3" ALIGN="CENTER" HEIGHT="50">
  791.             <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=5><STRONG>
  792.             <%=locPubWiz%>
  793.             </STRONG></Font>
  794.         </TD>
  795.     </TR>
  796.     <TR  HEIGHT=50>
  797.         <TD ALIGN=LEFT>
  798.             <IMG SRC='../website/streamer.gif'HEIGHT=175 WIDTH=148>
  799.         </TD>
  800.         <TD ALIGN=TOP>
  801.         <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2><STRONG>
  802.         <%=showNames%> <%=plurality%> <%=operation%>
  803.         <P>
  804.         <%=negComment1%><P>
  805.         <%=negComment2%><P>
  806.         </STRONG></FONT>
  807.         </TD>
  808.     </TR>
  809.     <TR HEIGHT=30>
  810.         <TD>
  811.         </TD>
  812.         <TD ALIGN=RIGHT>
  813.         <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=-2><STRONG>
  814.           <FORM METHOD=POST ACTION="welcome.asp">
  815.             <INPUT TYPE=SUBMIT VALUE="<<" NAME="btnReturn">
  816.             <INPUT TYPE="HIDDEN" VALUE="Choose" NAME="Action">
  817.             <INPUT TYPE="HIDDEN" VALUE="1" NAME="sync">
  818.         </FORM>
  819.         </STRONG></FONT>
  820.         </TD>
  821.     </TR>
  822. </TABLE>
  823. </BODY>
  824. </HTML>
  825. <% response.flush %>
  826. <% End Select %>
  827.  
  828.  
  829.  
  830.  
  831.