hi friends

i am getting this error.with this i m sending my ASP code for 
searching the records.i have my database in Access.
-----------------
here is the code
------------------

<html>
<body>

        <%
        set cn=server.createobject("ADODB.connection")
        cn.provider="microsoft.jet.oledb.4.0"
        cn.open "c:\inetpub\wwwroot\final\wbcms.mdb"

        set rs=server.createobject("ADODB.recordset")
        set cmd=Server.Createobject("ADODB.command")

        rs.source="callentry"
        rs.activeconnection=cn
        rs.open
        rs.movefirst
        
        custSelect = request.form("custselect")
        custName=request.form("custname")
        enggName=request.form("engineer")
   status=request.form("status")
   selectID=request.form("idselect")
   loginId=request.form("logid")

   response.write(loginid)
        response.write(enggName)
        response.write(custSelect)
        response.write(custName)
        response.write(status)
   response.write       (selectID)
        if custSelect="Ignore" then
                if selectID="Ignore" then               

                        query = "select * from callentry where 
Engineer='" & enggName & _
                        "' and Status= '" & status & "'"
                         
                else
                        query = "select * from callentry where 
Engineer = '" & enggName & _
                        "' and Status = '" & Status & "' and 
CallLoggedID = '" & selectid & "'"
                end if
        else
                if selectID="Ignore" then               
                        query = "select * from callentry where 
EngineerName = '" & enggName & _
                         "' and status = '" & Status & "' and 
CustomerName = '" & custName & "'"
                else
                        query = "select * from callentry where 
EngineerName = '" & enggName & _
                        "' and status = '" & Status & "' and loginID 
= '" & selectid & _
                        "' and CustomerName = '" & custName & "'"
                end if
        end if  
        
        response.write(query)
        cmd.commandtext="query"
        cn.execute (query)
   set rs=cmd.execute
        rs.movefirst

        do while not rs.eof
        response.write(rs.fields(0))
        response.write(rs.fields(1))
        rs.movenext
        loop
        rs.close
        set rs=nothing
        set cmd=nothing


                
        %>
        
        

</body>
</html>








 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/

<*> To unsubscribe from this group, send an email to:
    [EMAIL PROTECTED]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 



Reply via email to