Editing: removethesis_form.asp

<!--#INCLUDE FILE="ConnectDB.asp"--> <% pern=session("username") if pern<>"" then %> <% id_thesis=request("id_thesis") id_stu=request("id_stu") date_mo=now username=session("username") delabs="select * from thesis where id_thesis='"&id_thesis&"'" Set orsabs=server.createobject("adodb.recordset") orsabs.open delabs,conn,1,3 If Not orsabs.eof then 'Response.write orsabs("abstract") 'Response.write delabs absor=orsabs("full_thesis") 'Response.write absor dim fs Set fs=Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists("C:\ict\ICT\thesis\"&absor&"") Then set f=fs.getfile ("C:\ict\ICT\thesis\"&absor&"") 'Response.write f f.Delete end if set fs=Nothing End if sqldata="update thesis set full_thesis=' ' where id_thesis='"&id_thesis&"'" response.write sqldata set orsdata=server.createobject("adodb.recordset") orsdata.open sqldata,conn,1,3 response.write "<meta http-equiv='refresh' content ='0;url=add_advisor_thesis_form.asp?id_thesis="&id_thesis&"&id_stu="&id_stu&"'>" 'Response.Redirect ("detail_letterin.asp?id="&id) else %> <SCRIPT LANGUAGE="JavaScript"> <% response.write "window.location.href='indexletterin.asp';" %> --> </SCRIPT> <% end if %>