%@ Language=VBScript %>
<%
'*************************************************************************
' DO NOT MODIFY THIS SCRIPT IF YOU WANT UPDATES TO WORK!
' Function : Upload Files
' Product : CandyPress Store Frontend
' Version : 2.5
' Modified : February 2004
' Copyright: Copyright (C) 2004 CandyPress.Com
' See "license.txt" for this product for details regarding
' licensing, usage, disclaimers, distribution and general
' copyright requirements. If you don't have a copy of this
' file, you may request one at webmaster@candypress.com
'*************************************************************************
Option explicit
Response.Buffer = true
const adminLevel = 1
%>
<%
'Database
dim mySQL, cn, rs
'*************************************************************************
'Are we in demo mode?
if demoMode = "Y" then
response.redirect "sysMsg.asp?errMsg=" & server.URLEncode("DEMO MODE. Sorry, this featured is NOT available in Demo Mode.")
end if
'Open Database Connection
call openDB()
'Store Configuration
if loadConfig() = false then
response.redirect "sysMsg.asp?errMsg=" & server.URLEncode("Could not load Store Configuration settings.")
end if
'Close Database Connection
call closedb()
'Get UserID of locally logged on user (if applicable)
dim logonWinUser
logonWinUser = Request.ServerVariables("LOGON_USER")
%>
Upload Files
![]()
<%
if len(trim(Request.QueryString("msg"))) > 0 then
Response.Write "" & Request.QueryString("msg") & "
"
else
Response.Write "
"
end if
%>
![]()
1. Select Files to Upload.
|
Product Images Directory (<%=pImagesDir%>) Downloadable Items Directory (<%=pDownloadDir%>) |
|
<% 'See if user is already logged on locally to the web server If IsEmpty(logonWinUser) Or IsNull(logonWinUser) Or logonWinUser="" Then %> Logon locally to web server (Help) <% else %> You are logged on to your server as <%=logonWinUser%> <% end if %> |