Exception occurred.

Du kan ikke checke på både EOF og indhold samtidigt. Hvis der er EOF, vil linien fejle.

Istedet skal du:

<%
If(Not rs.EOF) Then
  If(rs("site_kat") = 2) Then
  End If
End If

%>

if - sætningen skal deles i to. Sådan:

If not rs.EOF then
if rs("site_kat")=2 Then   
end if
end if

Det er fordi at ASP udføre hele linien uanset om resultatet er fundet inden.
I eks. Delphi kan man selv bestemme om hele linien skal udføres eller ej.