<!-- #INCLUDE virtual="/sys/incToolsGui.asp" -->


<%

	' load object
Set load = new Loader

' calling initialize method
load.initialize

'Get form data
id = load.getValue("id")
iGallery = stripQuotes(load.getValue("iGallery"))
sBody = stripQuotes(load.getValue("sBody"))
sCredit = stripQuotes(load.getValue("sCredit"))

'''' Start Upload Number 1
'''' Start Upload Number 1
' File binary data
fileData = load.getFileData("sImg")
' File name
fileName = LCase(load.getFileName("sImg"))
'response.write("fileName: " & fileName & "<br>")



'Set the filename
pos = InStr(fileName, ".")


''' Name the Image
dot = pos - 1
sImgNew = stripPunctuation(left(fileName,dot))
sImgNew = iGallery & "_" & lcase(replace(sImgNew," ", "_"))
response.write sImgNew & "<br>"


fileFormat = Right(fileName, Len(fileName) - pos)
'response.write("fileFormat: " & fileFormat & "<br>")
setFileNameOne = sImgNew
'setFileNameOne = stripPunctuation(setFileNameOne)
setFileNameOne = setFileNameOne & "." & fileFormat
'response.write("setFileNameOne: " & setFileNameOne & "<br>") 
' File path

filePath = load.getFilePath("sImg")
'response.write("filePath: " & filePath & "<br>")
' File path complete

filePathComplete = load.getFilePathComplete("sImg")
'response.write("filePathComplete: " & filePathComplete & "<br>")
' File size

fileSizeOne = load.getFileSize("sImg")
'response.write("fileSize: " & fileSize & "<br>")
' File size translated

fileSizeTranslated = load.getFileSizeTranslated("sImg")
'response.write("fileSizeTranslated: " & fileSizeTranslated & "<br>")
' Content Type

contentType = load.getContentType("sImg")
'response.write("contentType: " & contentType & "<br>")
' No. of Form elements

countElements = load.Count
' Path where file will be uploaded

pathToFile = Server.mapPath("/images/") & "\" & setFileNameOne
'response.write("pathToFile: " & pathToFile & "<br>")
' Uploading file data

If (fileFormat = "jpg") or (fileFormat = "jpeg") Then

If fileSizeOne> 250 and fileSizeOne < 200001 Then
fileUploaded = load.saveToFile("sImg", pathToFile)
Else 
response.redirect "add_photo.asp?message=filesize&id=" & id
setFileNameOne = ""
End If

Else
setFileNameOne = ""
End If
'''' End Upload Number 1
'''' End Upload Number 1


''' Update Database '''
''' Update Database '''
''' Update Database '''
set rsPhotos = server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM drill_PhotoImages"
rsPhotos.Open sql, dbConn,adOpenDynamic,adLockOptimistic
rsPhotos.AddNew
rsPhotos("iGallery") = iGallery
rsPhotos("sBody") = sBody
rsPhotos("sCredit") = sCredit

if fileSizeOne > 250 and (fileFormat = "jpg") or (fileFormat = "jpeg") Then
rsPhotos("sImg") = setFileNameOne
end if
rsPhotos("dCreated") = now
rsPhotos("dModified") = now

rsPhotos.Update
response.redirect "details.asp?id=" & iGallery
''' Update Database '''
''' Update Database '''
''' Update Database '''

%>