Problemas com Upload

[Guilherme Gibelato 0]

Boa tarde pessoal, estou com um pequeno problema em meu código para Upload.

 

Eu seleciono os arquivos e tal, clico em Upload, ele envia os arquivos para a pasta normalmente, mas nao tem nada nos arquivos, quando eu faço o upload de uma imagem por exemplo, e eu tento abrir essa imagem aparece: "Visualização nao disponivel"

 

Não sei o que acontece, pois eu preciso mostrar essa imagem em um sistema de pesquisa de produtos.

 

O código está em ASP:

 

Se alguém puder me ajudar eu agradeço.

 

<%

Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

'chama a função para baixar o arquivo
BuildUploadRequest  RequestBin

TEC_CURSO = UploadRequest.Item("TEC_CURSO").Item("Value")
DESC_CURSO = UploadRequest.Item("DESC_CURSO").Item("Value")

'*****************************************************************
'PRIMEIRO ARQUIVO
'*****************************************************************

contentType = UploadRequest.Item("FILEPATH").Item("ContentType")
filepathname = UploadRequest.Item("FILEPATH").Item("FileName")
filename =Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("FILEPATH").Item("Value")

'*****************************************************************
'SEGUNDO ARQUIVO
'*****************************************************************

contentType2 = UploadRequest.Item("FILEPATH2").Item("ContentType")
filepathname2 = UploadRequest.Item("FILEPATH2").Item("FileName")
filename2 =Right(filepathname2,Len(filepathname2)-InstrRev(filepathname2,"\"))
value2 = UploadRequest.Item("FILEPATH2").Item("Value")

'*****************************************************************
'TERCEIRO ARQUIVO
'*****************************************************************

contentType3 = UploadRequest.Item("FILEPATH3").Item("ContentType")
filepathname3 = UploadRequest.Item("FILEPATH3").Item("FileName")
filename3 =Right(filepathname3,Len(filepathname3)-InstrRev(filepathname3,"\"))
value3 = UploadRequest.Item("FILEPATH3").Item("Value")










'AQUI É O SERVEROBJECT PARA TRATAR ARQUIVOS TEXTO!!!!!
 Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Cria e preenche o arquivo com os dados enviados
 pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
 dim strLogPath 
 dim pos
 
 pos = instrRev(Request.ServerVariables("PATH_INFO"),"/",-1)
 
 strLogPath = left(Request.ServerVariables("PATH_INFO"),pos)
 dim strpath
 strPath = Request.ServerVariables("SERVER_NAME")  & strLogpath
 Set FILE1 = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
 'Set FILE2 = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename2)
 'Set FILE3 = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename3)

Dim CONOBJ
Set CONOBJ = Server.CreateObject("ADODB.Connection")
CONOBJ.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco.mdb") & ";"
Dim SQL
SQL = "INSERT INTO CURSOS_OFERECIDOS(TECNICA, DESC_CURSO, FOTO1, FOTO2, FOTO3) VALUES('" & TEC_CURSO & "','" & DESC_CURSO & "','" & "Uploads_cursos/"&filename & "','" & filename2 & "','" & filename3 & "')"
SET RS = CONOBJ.EXECUTE(SQL)
 
 FILE1.Close
 'FILE2.Close
 'FILE3.Close
 RESPONSE.REDIRECT "OK.ASP"
%>
<!--#include file="upload.asp"-->

[Mário Monteiro 179]

de onde pegou este codigo de upload ?