---

Hey
Mon der skulle være nogen der kender AspNNTP-komponenten fra serverobjects
inc?
Mit spørgsmål er:
Hvordan får jeg det lavet så når man trykker på en besked, så henter den den
fra serveren?

index.asp
<code>


<%

rem
*************************************************************************
rem * Instantiate the NNTP object
rem
*************************************************************************
Set NNTP = Server.CreateObject("AspNNTP.Conn")

rem
*************************************************************************
rem * Set the news server name
rem
*************************************************************************
NNTP.Server = "news.sonofon.dk"

if NNTP.SetNewsgroup ("dk.marked.privat") then
Response.Write "Første 10 meddelelser:<p><table>"
For intCount = 1 to 10

rem
*************************************************************************
rem * Grab just the headers for the article
rem
*************************************************************************
NNTP.GetArticleHeaders

Response.Write "<tr><td><a
href=""message.asp?art="&nntp.MessageID&""">" & NNTP.Subject & "</a></tr>"

rem
*************************************************************************
rem * Point CurrentArticle to the next legal article number
rem * Note: Use this rather than looping from FirstArticle to
LastArticle
rem * since some articles may no longer exist
rem
*************************************************************************
NNTP.NextArticle
Next
Response.Write "</table>"

else
Response.Write "<p>Unable to open Server or Newsgroup<br>" & VbCrLf
Response.Write "Failure was: " & NNTP.Response & "</p>" & VbCrLf
end if

rem
*************************************************************************
rem * Make sure the object is destroyed
rem
*************************************************************************
Set NNTP = nothing


%>

</code>

message.asp
<code>
<%
dim art

art = request.querystring("art")
art = Replace("art","<>","")



set nntp = Server.CreateObject("AspNNTP.Conn")
nntp.server = "news.sonofon.dk"
if nntp.SetNewsgroup ("dk.marked.privat") then
nntp.GetArticleByID(art)
Response.Write "<tr><td>" &nntp.Subject & "</td><td><pre>" & nntp.BodyText
&"</pre></td></tr>" & VbCrLf
end if
%>
</code>
Variablen art bliver fint overført men der bliver ikke skrevet noget ud på
siden message.asp
hvorfor??

pft

Lasse