Recordset count

[colinod]

I am trying to get a total recordset count in the asp script at the top of my page in the header i am getting -1 for the result can anyone help

this is the code i am using

<%
On Error Resume Next
 
Response.Expires=0
Set yaketyConnection=Server.CreateObject("ADODB.Connection")
DatabaseDetails="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("database path.mdb") & ";"
yaketyConnection.Open DatabaseDetails
yaketyQuery="SELECT * FROM celebs WHERE voicetypea like '%"&voiceid&"%' and sex like 'm' or voicetypeb like '%"&voiceid&"%' and sex like 'm' or voicetypec like '%"&voiceid&"%' and sex like 'm' or voicetyped like '%"&voiceid&"%' and sex like 'm' or voicetypee like '%"&voiceid&"%' and sex like 'm' or voicetypef like '%"&voiceid&"%' and sex like 'm' or voicetypeg like '%"&voiceid&"%' and sex like 'm' or voicetypeh like '%"&voiceid&"%' and sex like 'm' or voicetypei like '%"&voiceid&"%' and sex like 'm' or voicetypej like '%"&voiceid&"%' and sex like 'm' or voicetypek like '%"&voiceid&"%' and sex like 'm' or voicetypel like '%"&voiceid&"%' and sex like 'm' or voicetypem like '%"&voiceid&"%' and sex like 'm'  or voicetypen like '%"&voiceid&"%' and sex like 'm' or voicetypem like '%"&voiceid&"%' and sex like 'm' order by surname"
Set yaketyRecordset=yaketyConnection.execute(yaketyQuery)
 
i=yaketyRecordset.recordcount
 
Dim iCount
%>

futher down the page at the top of the visible page to the user i am using the following to show the count

<% Response.Write(i)%>

i know i am doing something wrong but cannot figure out how to correct can anyone help

[CroCrew]

Hello colinod,

Give this a try:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Relative path to your Access database") 
    Set yaketyRecordset = Server.CreateObject("ADODB.Recordset")
    SQL = "SELECT * FROM celebs"
    yaketyRecordset.CursorType = 1
    yaketyRecordset.LockType = 3
    yaketyRecordset.Open SQL, Conn
 
    Response.Write("Total Records: " & yaketyRecordset)
    Response.End
%>
 
 

[chirag1989]

Hello colinod,

Give this a try:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Relative path to your Access database") 
    Set yaketyRecordset = Server.CreateObject("ADODB.Recordset")
    SQL = "SELECT * FROM celebs"
    yaketyRecordset.CursorType = 1
    yaketyRecordset.LockType = 3
    yaketyRecordset.Open SQL, Conn
 
    Response.Write("Total Records: " & yaketyRecordset)
    Response.End
%>
 
 

hi,
even i m havin same problem wid recordcount so i tried the above code but it showed error of type mismatch

[CroCrew]

What does your code look like? Can you copy and paste it here so we can debug it?

Thanks~

[JamieHowarth0]

Hi there,

Try using:

Option Strict
 
'yakety code goes here
 
Dim i As Integer
If yaketyRecordset.Recordcount > 0 Then 
    i = yaketyRecordset.Recordcount
Else
    i = 0
End If
 

Could be that you have used Option Strict in your application declaration (using Option Strict means you have to declare all variables and their appropriate types before assigning values).

Hope it helps.

medicineworker