Hi
     My Problem Is that when I execute the query " select * from customer where name='philip' ", and if there are no matching records then How do I display a message such as "no such records" ,please give me the code .

Thank You
Praveen...

Hi

Depends on how you execute the command....
generally
<%
'use the connection string or DSN to connect....
Dim objRS, objConn, sqlQuery, strParam
strParam = "Philip"
sqlQuery = "SELECT * FROM Customer Where Name = '" & strParam & "' "
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConnString
Set objRS = objConn.Execute sqlQuery
If Not objRS.BOF AND Not objRS.EOF Then
    '....code here....
Else
   Response.Write "Sorry, no matches found for " & strParam & ".<br />"
End If
If Not objConn Is Nothing Then Set objCOnn = Nothing

If Not objRS Is Nothing Then Set objRS = Nothing

%>

Hello
     I modified your code to look like this :

          If Not objRS.BOF AND Not objRS.EOF Then
                     response.write "record found "
          Else
                     Response.Write "Sorry, no matches found "
          End If
but I get "record found " printed whether the given parameter exists or not.i.e. even if "philip" doesnt exist ,still i get "record found"

please help..
praveen...

Hi

Try writing out what the query thinks it has found...
using some generic code....

Dim fld

If Not objRS.BOF AND Not objRS.EOF Then
   Response.Write("<table border=""1""><tr>")
   For Each fld in objRS.Fields
     Response.Write("<td>" & fld.Name & "</td>")
   Next
   Response.Write("</tr>")
   While Not objRS.EOF
     Response.Write("<tr>")
     For Each fld in objRS.Fields
       Response.Write("<td>" & objRS.Fields(fld.Name) & "&nbsp;</td>")
     Next
     Response.Write("</tr>")
     objRS.MoveNext
   Wend
   Response.Write("</table>")
Else
    Response.Write "Sorry, no matches found "
End If


See what this produces...
Check the code spelling before trying to run!

here is my program :


<%
                'declare variables
                Dim Conn
                Dim Rs
                Dim filePath
                Dim mysql
                dim sqlstmt
                dim index
                dim temp
                dim temp1
                dim sqlstmt1



                 ' map the path of the database to a variable
                 filePath = Server.MapPath("serverdocket.mdb")
                'receive the parameter server name and save it to temp
                temp= trim(request.form("txtservername"))
                temp1=cdate(trim(request.form("txtdate")))
               ' create ado connection
                 Set Conn = Server.CreateObject("ADODB.Connection")
                 set rs= server.Createobject("ADODB.recordset")
                Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
               sqlstmt1="select * from activitysoft where servername='" &temp&"' and activitydate ='"&temp1&"'"
                ' create ado recordset
on error resume next
                 Set Rs = Conn.Execute (sqlstmt1)





 %>



<center>
<br><br><br><br><br><br>


<%
'use delete statement to delete the record

  sqlstmt = "DELETE * FROM activitysoft WHERE servername='" &temp&"' and activitydate ='"&temp1&"'"
  conn.execute(sqlstmt)





%>

'now if the variables temp and temp1 do exist ,then the record is deleted , else a message "no record found" is returned.how do I do print "no record found" when there are no matching records.
thankzzz
praveen..

..check the datatype for the 'activitydate' in the database.
If this is a date/time field then you may need to amend your sql statement to use hash characters instead of single quotes to surround the temp1 varaible value, as below.

sqlstmt1="select * from activitysoft where servername='" &temp&"' and activitydate =#"&temp1&"#"

If there are matches then go on to delete them else show a message indicating no matching records found.

Basically:
1. execute the SELECT statement to check for matching records as you
   are already doing.
2. Then check the recordset object for BOF /EOF
3. If BOF and EOF are TRUE then there are no matches
      display a message.
   Else
      there is data that matches so go on to
      execute the DELETE statement
   End If

Is this what you mean?
If so, you already have code examples of how to achieve this, just make sure that you don't close the connection until you really need to.

ITZ Workin !!!!!!

Thankzzzz a LOTTTTTTT

Praveen....