%@Language = VBSCript%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=staintext;"
vl_id = ""
vl_title = ""
vl_article = ""
set rs = conn.Execute("SELECT * FROM Articles")
if not rs.EOF then
vl_id = "" & rs("ArticleID")
vl_title = "" & rs("Title") & " "
vl_article = replace("" & rs("Article"),vbcrlf,"
") & " "
end if
rs.close
set rs = nothing
errStr = ""
conn.Close
set conn = nothing
%>