<% 'Retrieving news with current ID If IsNumeric(Request.QueryString("ID")) Then Set rs = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM news WHERE Online = 'true' AND ID = '" & Request.QueryString("ID") & "'" rs.open SQL, Con, 3, 3 Con.execute(SQL) if rs.EOF then 'If ID does not exist, show nothing response.write "Den valgte nyhed blev ikke fundet" else %> <% If rs("Writer") ="" then %> <% else %> <% end if%>
<%=rs("Headline")%>
<%=rs("PubDate")%> kl. <%=rs("PubTime")%><%=rs("PubDate")%> kl. <%=rs("PubTime")%> af <%=rs("Writer")%>
<% Content = rs("Content") Content = Replace(Content, "

", "") Content = Replace(Content, "

", "") Content = Replace(Content, "

", "

") Response.write Content %>

 
Bookmark and Share

« Tilbage til oversigt

Link til denne artikel: http://www.hockeymagasinet.dk/?newsid=<%=rs("ID")%>
<% end if rs.close Set rs = Nothing %> <% else response.write "Den valgte nyhed blev ikke fundet" end if %>