<% 
dim conn,path,fmem_name
      fmem_name=request("mem_Name")
      response.write(fmem_name)
Set conn= Server.CreateObject("ADODB.Connection")
dbpath=Server.MapPath("blogdata/L-Blog.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
Sql="delete from blog_Member where mem_Name='"&fmem_name&"'"
			      set sqlX=conn.Execute(Sql)
                              conn.close
			      set conn=nothing
                               response.redirect("member.asp")
%>