Problemer med ?include

Hejsa,

Jeg tager data fra en MDB, og får vist alle emner fra DB. Når jeg klikker på et af emnerne fra DB, skulle den gerne visse alle informationerne fra DB, men dette script virker ikke.. Hvad er der galt?

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/db/data.mdb")
Set rs = Conn.execute("SELECT * FROM events ORDER BY event_DS")
%>

Her kan du finde informationer om hvad der er af arrangementer.<br><br>

<table border="0" width="100%">
<%
  If not (rs.bof or rs.eof) then
    Do while NOT rs.EOF
   
    strID = rs("event_ID")
    strHEAD = rs("event_head")
    strTEXT = rs("event_text")
    strDS = rs("event_DS")
    strTS = rs("event_TS")
    strDE = rs("event_DE")
    strTE = rs("event_TE")
    strLOC = rs("event_location")
    strPRI = rs("event_price")
   
      If Request.Querystring("eventID") = strID then %>
    <tr>
        <td>
        <b><%=strHEAD%></b><br>
        <%=strTEXT%><br><br>
        <b>Starter:</b> <%=strDS%> Kl. <%=strTS%><br>
        <b>Slutter:</b> <%=strDE%> Kl. <%=strTE%><br>
        <b>Sted:</b> <%=strLOC%><br>
        <b>Pris:</b> <%=strPRI%>kr.<br><br>
        </td>
    </tr>
    <% else %>
    <tr>
        <td><a href="default.asp?include=events&eventID=<%=strID%>"><%=strDS%> - <%=strHEAD%></a></td>
    </tr>
    <% end if
      rs.movenext
      Loop %>
</table>

<%

Else
Response.Write "Der blev ikke fundet nogen data."
End if

rs.close
set rs = nothing
conn.close
set conn = nothing

%>