<%
Function GetFileName(sTemp)
	Dim sDirectory, iMax, iLoop, sURLArray, sTempChar

	If InStr(sTemp, "/") Then
		sTempChar = "/"
	Else
		sTempChar = "\"
	End If

	sURLArray = Split(sTemp, sTempChar)
	iMax = UBound(sURLArray)

	GetFileName = sURLArray(iMax)
End Function

sSQL2 = "SELECT * FROM TblLogin Where LoginId=" & ID
Set rsImages = objADO.Execute(sSQL2)

'Pic 1 Upload
'checks to see if a picture was attached
sImageURL1 = WriteUploadedFile("ImageFile1", "upload\Agent")
sImageURL1 = objRS("UserName") & "_" & sImageURL1
'if no pic was attached and there was an existing pic in db then keep pic in db
'if no pic in db and none attached, upload nothing
if rsImages("AgentPicture") <> "" and sImageURL1 = "" then
sImageURL1 = rsImages("AgentPicture")
end if 


Err.Clear
On Error Resume Next
Set objImage = Server.CreateObject("AspImage.Image")

If Err.Number <> 0 Then
	sThumbURL1 = WriteUploadedFile("ImageFile1t", "upload")
	

'start here
Else

	sImageFileName1 = Server.MapPath("upload\agent\" & sImageURL1)
	sImageURL1 = GetFileName(ImageResize(sImageFileName1, 500, 400))
	sThumbFileName1 = Left(sImageURL1, Len(sImageURL1) - 4) & "thumb1.jpg"
	sPath = Server.MapPath("upload\agent\")
	If Not Right(sPath, 1) = "\" Then sPath = sPath & "\"
	Set fs = CreateObject("Scripting.FileSystemObject")
	fs.CopyFile sImageFileName1, sPath & sThumbFileName1
	sThumbURL1 = GetFileName(ImageResize(sPath & sThumbFileName1, 160, 120))

	
End If


' End Code Change
sSQL = "UPDATE TblLogin SET AgentPicture='" & sImageURL1 & "'"


sSQL = sSQL & " WHERE LoginID=" & ID
Set rsREListing = objADO.Execute(sSQL)


%>