<%
If CStr(session("user_logged_ID" & strSUnique)) = Empty then Response.Redirect "default.asp"
Server.ScriptTimeout=60
noBytes = Request.TotalBytes
binData = Request.BinaryRead (noBytes)
Set RST = CreateObject("ADODB.Recordset")
LenBinary = LenB(binData)
If LenBinary > 0 Then
RST.Fields.Append "myBinary", 201, LenBinary
RST.Open
RST.AddNew
RST("myBinary").AppendChunk BinData
RST.Update
strData = RST("myBinary")
End if
uploadPath = Server.Mappath(bnrLocation)
strBnd = "--" & Split(Request.ServerVariables ("HTTP_CONTENT_TYPE"),"boundary=")(1)
strData = Split(strData, strBnd)(1)
FileData = Split( strData, vbCrLf & vbCrLf)(1)
If Len(FileData) < 45000 then
strContent = Replace(Split( strData, vbCrLf)(1), Chr(34), "")
If instr(strContent, "\") <> 0 then
nameStart = InStrRev(strContent, "\")
Else: nameStart = InStrRev(strContent, "=")
End If
FileName = LCase(mid(strContent, nameStart + 1))
If Len(FileName) = 0 Or (Not Right(FileName, 4) = ".jpg" And Not Right(FileName, 4) = ".gif") then
Response.Write "
"
Else
If not objFile.FileExists(uploadPath & "\" & FileName) then
Set saveFile = objFile.OpenTextFile(uploadPath & "\" & FileName, 2, True)
saveFile.Write FileData
saveFile.Close
session("banner_upload" & strSUnique) = FileName
Response.Redirect "advertise.asp"
Else: Response.Write "
"
End If
End If
Else
Response.Write "
"
End If
%>