hjælp til Online liste

Hej

Jeg har et lille problem
på mit websted kører jeg global.asa som viser om en bestemt bruger er online.
nu vil jeg så lave en online liste der viser alle dem der er online som er logget ind.
men det jeg har bikset mig frem til fungere ikke. det ser sådan her ud:

<%
Do While Not res.EoF
    brugernavn = res(\"username\")
    email = res(\"email\")
    online=\"Nej\"
   
TempArrayName=Application(\"Name\")
For i=0 To Application(\"TName\")-1
If TempArrayName(i) = brugernavn Then
online=\"Ja\"
End If
Next
%>
<tr>
<td class=\"brodtextFed\"><%=online%></td>
<td class=\"brodtextFed\"><%=username%></td>
<td class=\"brodtextFed\"><a href=\"mailto:<%=email%>\"><%=email%></a></td>
</tr>
<%
    res.MoveNext
Loop
%>

men så når man ser siden får jeg denne fejl:

Microsoft VBScript runtime error \'800a01f4\'

Variable is undefined: \'res\'

/online.asp, line 153

en eller anden hjælp.
kontakt: icq 97533793 eller mail webmaster@lovetalk.dk