读取赋值问题

<% Option Explicit %>
    <%  
    Dim X_id
        X_id=request.QueryString("id")
    Dim db,rs,sql,a,objFSO
    Set db=Server.CreateObject("ADODB.Connection")
    db.Open "background"
    set rs=server.CreateObject("adodb.recordset")  
sql="Select * From lh where id="&Cint(X_id)
    db.Execute(Sql)
a=rs("imgsrc1")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")  
if objFSO.fileexists(Server.MapPath(a)) then  
objFSO.deletefile Server.MapPath(a),true  
end if  
db.execute("delete from lh where id="&Cint(X_id))  
response.Redirect("../picup/pic-up2.asp")
    %>
运行结果是红色字体就是第十一行 我数据库可有这字段
请问哪儿错了