|
<%
Dim id
id = Request.QueryString("article_id")
If id<>"" Then
Dim Rs
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select ARTICLE_TITLE, ARTICLE_BODY From ARTICLE Where ARTICLE_ID = " & id, conn, adOpenStatic, adLockReadOnly
If Not Rs.EOF Then
%>
<%=formatstr(Rs("ARTICLE_TITLE"))%> <%=Rs("ARTICLE_BODY")%> <% End If Else %> <% End If %> |