<% DataConn = "DSN=info_system" Set objConn = server.createobject("ADODB.connection") objConn.open DataConn strSQL = "SELECT x.info_data_id as x_id, x.portal_id, x.category_id, i.header, i.description, i.content, i.active, i.startdate, i.enddate, i.info_data_id as i_id "_ & "FROM info_xref_portals as x, info_data as i "_ & "WHERE x.info_data_id = i.info_data_id AND x.portal_id = " & int(portal_input) & " AND x.category_id = " & int(category_input)_ & " AND startdate <= '" & datepart("yyyy",Date) & "-" & datepart("m",Date) & "-" & datepart("d",Date) & "'"_ & " AND enddate >= '" & datepart("yyyy",Date) & "-" & datepart("m",Date) & "-" & datepart("d",Date) & "'"_ & " AND i.active = 'true' ORDER BY i.startdate DESC" set list = objConn.execute(strSQL) %>   <% If List.EOF Then %> <% Else While not list.eof %> <% list.movenext wend End If %>

Information

Denne bar er i øjeblikket tom !!

<%=list("startdate")%> <%=list("header")%> <%=list("description")%> &redir=<%=redir%>">Læs mere...

<% objConn.close Set objConn = nothing %>