<%option explicit%> <% '*********************************************************** ' Browse to file then invoke shopuploadfile.asp ' VP-ASP 6.50 Aug 31, 2004 '************************************************************ Dim sRowColor, Id, Product, Directory, filename, url, dbfield, catalogid sRowColor=xTableRowColor shopcheckadmin "" %> <% GetInput Serror=Request("msg") filename="" If Serror<>"" Then shopwriteerror Serror filename=Getsess("uploadfilename") end if url="shopa_uploadfilepop.asp" %>

<% GenerateDisplayHeader getlang("langupload") GenerateDisplayBodyHeader%> <% Formateditrow "Directory","directory",directory%> <%=getlang("LangMenuFileName")%> <% GenerateDisplayBodyFooter If getconfig("xbuttonlogin")="" then %><% else %><% end if %>

<% '=============================== Sub GetInput dim table, idfield, returnurl,formname,formfield catalogid=Request("id") dbfield=request("field") table=request("table") idfield=request("idfield") Returnurl=request("url") formname=request("form") formfield=request("formfield") Setsess "uploadcatalogid",catalogid Setsess "uploadfield",dbfield Setsess "uploadreturnurl",returnurl setsess "uploadtable",table setsess "uploadidfield",idfield setsess "uploadformname",formname setsess "uploadformfield",formfield Directory=request("directory") if directory="" then Directory=Session("uploaddirectory") If directory="" then Directory=getconfig("xuploaddirectory") end if end if setsess "uploaddirectory",directory end sub %>