recordset.Absoluteposition problem

[piersk]

I'm trying to do the whole alternate colours row thing.

I get the absoluteposition of a record (recordset.absoluteposition) and I know that it's an integer cos I have used CInt and have checked it using vartype(). I then call a function like this: fcnCellColour(recordset.absoluteposition) and the function fcnCellColour is like this:Function fcnCellColour(strInput)
strInput = strInput Mod 2
IF strInput = 1 THEN
fcnCellColour = "#cccccc"
ELSE
fcnCellColour = "#ffffff"
END IF
End Function

However, I keep getting the error message:Microsoft VBScript runtime error '800a000d'
Type mismatch: 'fcnCellColour'

/forum/addtogroup.asp, line 159

Anyone got any theories why this should be?

[rdoekes]

You call it as a sub, but you define it as a function with a return value.

Response.Write fcnCellColour(recordset.absoluteposition)
for instance will give you the expected outcome.

Or

<td bgcolor="<% = fcnCellColour(recordset.absoluteposition)%>">

Hope this helps.

-Rogier Doekes

[piersk]

Sorry, I should have made it clearer. I already have <% = fcnCellColour(recordset.absoluteposition)%> in there.

[rdoekes]

and which line is line 159?

[piersk]

The line that has the <td bgcolor="<% = fcnCellColour(recordset.absoluteposition)%>"> in it.

[rdoekes]

Based on your description I mocked up the following code, and I reveice no errors, with nice alternating cell background colors.

<table>
<%
Set oCnn = Server.CreateObject("ADODB.Connection")
oCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=z:\test\test.mdb;" & _
"User Id=;" & _
"Password="

Set oRs = Server.CreateObject("ADODB.RecordSet")
oRs.CursorLocation = 3 'adUseClient

oRS.Open "SELECT * FROM tbl_test", oCnn

If Not oRs.EOF Then
Do While Not oRs.EOF
%>
<tr>
<td bgcolor="<% = fcnCellColour(oRs.AbsolutePosition)%>">
<% = oRS.Fields(0).Value%></td>
</tr>
<%
oRs.MoveNext
Loop
Else %>
<tr><td>No records found</td></tr>
<%
End If
oRs.Close
oCnn.Close
Set oRs = Nothing
Set oCnn = Nothing

Function fcnCellColour(strInput)
strInput = strInput Mod 2
IF strInput = 1 THEN
fcnCellColour = "#cccccc"
ELSE
fcnCellColour = "#ffffff"
END IF
End Function
%>
</table>


In other words, you must be doing something else. Maybe the recordset?

[piersk]

Hi,

the code for the recordset looks like this: set rsCommittee = server.createobject("ADODB.Recordset")
rsCommittee.Activeconnection = strForumDSN
rsCommittee.Source = "select * from contacts where " & request.querystring("committee") & " = True order by LASTNAME"
rsCommittee.CursorType = 1
rsCommittee.CursorLocation = 3
rsCommittee.LockType = 1
rsCommittee.Open()

The recordset does actually work because I can get the member details out fine, and when I output the actual number that corresponds to the absolute position I get an integer.

[rdoekes]

very strange indeed.

Again I tested your code and I do not receive any errors.

Could you attach the code of the entire page to a reply?
I will take have a look and see what I can dig up.

-Rogier Doekes

[piersk]

As requested...

[rdoekes]

Is this the entire page?

Don't see the function anywhere.

[piersk]

The function is called on line 23 of the code I gave you. The actual code for the function is in a seperate file but is exactly as i posted earlier.

[rdoekes]

and where do you include this file?

Don't see that in the code

[piersk]

/me bangs head against wall

Of course!! I'm so stupid. I hadn't included the file.

Your last post reminded me.

Doh!

Thank you for your help.

[rdoekes]

Be careful you don't get a concussion :-)

my pleasure,

-Rogier Doekes