<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit %> <% Response.buffer = True %> <% On Error Resume Next Dim cm, f, strFull1, strDisplay1, isFiles, choice, _ webDirList1, pubMdbList1, refreshRec, FileSystem, _ defasp, action, dropStr, choice1, sync, runWiz, _ wizWarning, wizButton, wizPic, wizFormPic, noCache %> <% '----------Query strings------------------------- dropStr=request.querystring("dropStr") dropStr = Replace(dropStr,chr(34),"") choice=request.form("Action") choice1=request.querystring("Action") If choice = "" Then choice = choice1 End If If choice = "" Then choice = "Welcome" action = "Add" End If sync = request.form("sync") If sync <> "" Then Myinfo.sync = sync End If If Myinfo.sync = 1 Then updateVar End If runWiz = Myinfo.ranWizard 'runWiz = "0" Sub updateVar isFiles = 0 defasp = 0 action = "" Myinfo.insRec = 0 Myinfo.updRec = 0 Myinfo.sync = 1 Myinfo.publish = 0 Myinfo.descrip = "" Myinfo.Showtext = 0 Myinfo.numRecords = 0 Myinfo.addDisplay = 0 Myinfo.Width = 0 Myinfo.strFull = "" Myinfo.strDisplay = "" End Sub '----------Opening Syncronization of Files-------- setSystemObj setConnObj ChkRunWiz If Myinfo.sync = 1 Then readPublish readWebPub addNewFiles removeFiles updateStrings sendUser End If If dropStr <> "" Then choice="Add" Myinfo.publish = -1 Myinfo.dropStr = dropStr End If %> <% Select Case choice%> <% Case "Welcome" %> <%=noCache%> <%=locPubWiz%>
<%=locPubWiz%>
 
<%=wizFormPic%>
<%=wizPic%> 		<%=locWelcomeInstr1%><%=locWelcomeInstr2%>

<%=wizWarning%>
<%=wizButton%>
<% response.flush %> <% Case "Choose" %> <%=locPubWiz%>
<%=locPubWiz%>
<%=locChooseWhatDo%>

<%=locChooseAddrad%>
<%=locChooseRemoverad%>
<%=locChooseRefreshrad%>
<%=locChooseUpdaterad%>
<% response.flush %> <%Case "Add" Dim Publish, add, apage, addStr, delStr '----------Query strings------------------------- addStr = request.querystring("addStr") If addStr <> "" Then 'add new files Choice = "ADD" dropStr = dropStr + addStr End If Myinfo.ShowText = 0 Myinfo.addDisplay = 0 publish = Myinfo.Publish Myinfo.addDisplay = 1 Myinfo.strDisplay = "" Myinfo.NumRecords = 0 %> <%=locPubWiz%> <% dropStr = "" Myinfo.dropStr = "" %>
<%=locPubWiz%>
<%=locAddInstr1%>
<%=locPath%>
<%=locDescription%>
<%=locAddInstr2%>
<%=locAddInstr3%>

 
<% response.flush %> <%Case "Remove"%> <% Myinfo.ShowText = 1 %> <%=locPubWiz%>
<%=locPubWiz%>
<%=locRemoveInstr1%>
<%=locFile%>
<%=locDescription%>
<%=locPubFiles%>
 
<% response.flush %> <%Case "Refresh"%> <% Myinfo.ShowText = 1 %> <%=locPubWiz%>
<%=locPubWiz%>
<%=locRefreshInstr1%>
<%=locFile%>
<%=locDescription%>
<%=locPubFiles%>
 
<% response.flush %> <%Case "Change"%> <% Myinfo.ShowText = 1 Myinfo.Width=1 %> <%=locPubWiz%>
<%=locPubWiz%>
<%=locChangeInstr1%>
<%=locFile%>
<%=locDescription%>
<%=locPubFiles%>
<% response.flush %> <% Case "Finish" Dim insRec, delRec, updRec, operation, newFileDescription, remRecord,refreshRecord, _ neg, negComment, negComment1, negComment2, plurality, nRecords, showNames '----------Query strings------------------------- refreshRecord=request.querystring("refreshRecord") remRecord = request.querystring("remRecord") '----------Update Page Variables------------------ insRec = Myinfo.insRec updRec = Myinfo.updRec operation = "" neg = "" negComment = "" plurality = "" '------------Call Subs----------------- If remRecord <> "" Then 'Remove records remFiles remRecord End If If insRec = 1 Then 'Add records insertFiles End If If updRec = 1 Then 'Update records updFiles End If If refreshRecord <> "" Then 'Refresh records refreshFiles refreshRecord End If %> <% Sub resetVar Myinfo.insRec = 0 Myinfo.updRec = 0 Myinfo.publish = 0 Myinfo.dropStr = "" Myinfo.descrip = "" Myinfo.Showtext = 0 Myinfo.numRecords = 0 Myinfo.addDisplay = 0 Myinfo.Width = 0 Myinfo.sync = 1 Myinfo.strFull = "" Myinfo.strDisplay = "" End Sub %> <%=locPubWiz%>
<%=locPubWiz%>
<%=showNames%> <%=plurality%> <%=operation%>

<%=negComment1%>

<%=negComment2%>
<% response.flush %> <% End Select %>