Upload image

Use this page to upload product images. You can also remove product images previously uploaded.

<% Response.Expires = -1 Server.ScriptTimeout = 600 Dim Diagnostics If Request.ServerVariables("REQUEST_METHOD") <> "POST" then Diagnostics = TestEnvironment() If Diagnostics <>"" Then Response.Write "

" & vbCrLf Response.Write Diagnostics & vbCrLf Response.Write "

After you correct this problem, reload the page.

" & vbCrLf Response.Write "

" & vbCrLf Else Response.Write "

" & vbCrLf OutputForm() Response.Write "

" & vbCrLf End If Else Response.Write "

" & vbCrLf OutputForm() Response.Write SaveFiles() Response.Write "

" & vbCrLf End If Response.Write "

Back

" & vbCrLf Response.Write "

Existing images:

" & vbCrLf Dim Path, FS, Folder, File, Item, URL, FileCount, FolderSize Path = uploadsDirVar 'Location of ads Set FS = CreateObject("Scripting.FileSystemObject") Set Folder = FS.GetFolder(Path) BannersPresent = False For Each Item In Folder.Files If InStr(CStr(Item.Name),".asp") <= 0 And InStr(CStr(Item.Name),"noimage") <= 0 Then BannerCount = BannerCount + 1 BannersPresent = True If BannerCount = 1 Then Response.Write "" & vbCrLf URL = MapURL(Item.Path) ImageName = Item.Name ImageSize = AddCommas(Item.Size) 'in KB ImageDate = Item.DateLastModified imgurl = Server.MapPath("/img/products/" & ImageName) imghtml = "" ImageDesc = ImageDesc & "" & vbCrLf ImageDesc = ImageDesc & "" & vbCrLf ImageDesc = ImageDesc & "" & vbCrLf ImageDesc = ImageDesc & "" & vbCrLf End If Next Response.Write ImageDesc If BannersPresent = False Then Response.Write "" & vbCrLf End If If BannerCount >= 1 Then Response.Write "

" & imghtml & "	" & vbCrLf ImageDesc = ImageDesc & " " & vbCrLf ImageDesc = ImageDesc & " Name: " & ImageName & " " & vbCrLf ImageDesc = ImageDesc & " Size: " & ImageSize & " " & vbCrLf ImageDesc = ImageDesc & " Upload date/time: " & ImageDate & " " & vbCrLf ImageDesc = ImageDesc & " Delete image " & vbCrLf ImageDesc = ImageDesc & " " & vbCrLf ImageDesc = ImageDesc & "
No banners found.

" & vbCrLf %>

Back