<!--#include file="conn.asp"-->
<%
	delimg=Request("delimg")
	set rs=server.createobject("adodb.recordset")
	id=Request.QueryString("id")
	classid=Request.QueryString("classid")
	sql="select name from pic where id="&id
	rs.open sql,conn,2,3
	rs.delete
	rs.update

     Dim fso
	 Set fso = CreateObject("Scripting.FileSystemObject")
	 delimg=Server.mappath(delimg)
	 fso.DeleteFile delimg
     Response.Redirect "index.asp?classid="&classid
%>