<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!--#include file="functions.asp" -->
<%
' END ACCESS DATABASE CONNECTION OBJECT

'display relevant story
' Dim ID
theID = Request("ID")
'ID = CLng(ID)
'ID = 14
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Title, Body, UserName, Intro FROM articles WHERE ID = " & theID & ""
rs.Open sql, conn

Body= rs("Body").Value
IF Body ="" THEN
Body = "<h1>" & rs("UserName").Value  & " is too lame to write a full story for this article!</h1>" 
END IF
%>

<head>
<title>Full Article: <%= rs("Title").Value %></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link rel="stylesheet" href="stylesheet.css" type="text/css" />
</head>
<body topmargin="0">

<h2><%= rs("Title").Value %></h2>

<br />
<hr />
<br />
<p><%=Body%></p>

<hr />
<form><input type="button" value="Close Window"
onclick="window.close()" /></form>

<br />
<br />
 <%
rs.close
conn.close
%>
</body>
</html>

