File Manager

<html>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874"></HEAD>

<body>
<%
Response.Expires = -10000
Server.ScriptTimeOut = 300

Set theForm = Server.CreateObject("ABCUpload4.XForm")
Set theField = theForm("filefield1")(1)'show filename
filename=theField.SafeFileName
theForm.Overwrite = True
theForm.MaxUploadSize = 8000000
'theForm.ID = Request.QueryString("ID")
Set theField = theForm("filefield1")(1)
If theField.FileExists Then
	theField.Save "pic_lec/" &theField.FileName
End If
%>

<%
'response.write session("id_res_up")
id_lecturer=session("id_lecturer")
response.write "up.........."&filename&" /"&id_lecturer
sql_check="select * from lecturer where id_lecturer='"&id_lecturer&"'"
set ors_check=server.createobject("adodb.recordset")
ors_check.open sql_check,conn,1,3
if not ors_check.eof then
sqlupload="update lecturer set picture_lec='"&filename&"' where id_lecturer='"&id_lecturer&"'"
set orsupload = Server.CreateObject("adodb.recordset")
response.write sql_upload
orsupload.open sqlupload,conn,1,3
response.write "aaa"&id_lecturer
end if
%>
<meta http-equiv="refresh" content ="0;url=detail_lec.asp?id_lecturer=<%=id_lecturer%>">

Upload Complete...

</body>
</html>

File Manager

Editing: upload_lec_pic.asp.bak