Behöver lite hjälp här utan er experter:

Jag har lite kod som ser ut så här vad den skall göra är att visa som senaste inloggade på ett forum men jag får ett fel meddelande och jag kan inte se vad som är fel på koden så därför vänder jag mig till er här!!!

<%
Dim MyCheck 'As Boolean
Dim intDay,intMonth,intYear 'As Integer
Dim dtmDate, dtmTempDate 'As datetime
  dtmDate = now()
  If strTimeOffSet = "+" Then
   dtmTempDate = DateAdd("h", + intTimeOffSet, dtmDate)
  ElseIf strTimeOffSet = "-" Then
   dtmTempDate = DateAdd("h", - intTimeOffSet, dtmDate)
  End If
  'Seprate the date into differnet strings
  intDay = CInt(Day(dtmTempDate))
  intMonth = CInt(Month(dtmTempDate))
  intYear = CInt(Year(dtmTempDate))
MyCheck = False
strSQL = "SELECT tblAuthor.Username, tblAuthor.Author_ID, tblAuthor.Group_ID, tblAuthor.Last_visit "
strSQL = strSQL & ",DateAdd(hh, " & strTimeOffSet & intTimeOffSet & ", tblAuthor.Last_visit) AS FFGG "
strSQL = strSQL & "FROM tblAuthor "
strSQL = strSQL & "where day(DateAdd(hh, " & strTimeOffSet & intTimeOffSet & ", tblAuthor.Last_visit)) = " & intDay & " and month(DateAdd(hh, " & strTimeOffSet & intTimeOffSet & ", tblAuthor.Last_visit)) = " & intMonth & " and year(DateAdd(hh, " & strTimeOffSet & intTimeOffSet & ", tblAuthor.Last_visit)) = " & intYear & " "
strSQL = strSQL & "ORDER BY FFGG DESC;"

rsCommon.Open strSQL, adoCon
Response.Write "<b>Det har loggat " & rsCommon.RecordCount & " medlemmar idag.</b><br><br>"
Response.Write "Medelemmar som har loggat in idag är:  "
Do Until rsCommon.eof
 If MyCheck = True then
  Response.Write ",  "
 Else
  MyCheck = True
 End If 
 Response.Write "<a class=""smlink"" href=""JavaScript:openWin('pop_up_profile.asp?PF=" & rsCommon("Author_ID") & "','profile','toolbar=0,location=0,status=0,menubar=0,scroll bars=1,resizable=1,width=590,height=425')"">"
 Response.Write rsCommon("Username") <- - -  På denna rad är det fel på
 Response.Write "</a>"
 rsCommon.MoveNext
Loop 
%>

Och felmedelandet jag får är följande:

Microsoft JET Database Engine fel '80040e10'

Det har inte angetts något värde för en eller flera nödvändiga parametrar.

Jag kan inte se vad som jag tydligen har missat...

MVH Megaman