/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gibson 560
cumano 530
MouseKeep.. 480
Random 410
strarup 370
10  Dysmorf 370
Visning af nyhedsgrupper med komponentet a~
Fra : Thygesen


Dato : 04-10-02 17:50

Findes der en kommando til at få vist headeren for meddelelserne, når man
bruger aspNNTP.Conn til visning af nyhedsgrupper.

Jeg har læst mig frem til at der findes en kommando der hedder:
NNTP.GetArticleHeaders
men hvis jeg skriver:
response.write NNTP.GetArticleHeaders

så skriver den bare: "sand"

Jeg har prøvet at se på http://www.serverobjects.com/comp/AspNNTP.htm men
jeg kan ikke se om man kan få vist headeren.


Jeg bruger følgende kode:

Set NNTP = Server.CreateObject("AspNNTP.Conn")

NNTP.Server = "sunsite.auc.dk"

if NNTP.SetNewsgroup ("dk.edb.internet.webdesign.serverside.asp") then

LastArticle = NNTP.LastArticle

For intCount = 0 to 1
intCurArticle = LastArticle-intcount

NNTP.GetArticleByNumber(intCurArticle)

Response.Write "<tr><td>" & intCurArticle & "</td><td>" & _
NNTP.Subject & "</td><td><pre>Time: " & NNTP.DateTime &
"<br><br>Message:<br>" & HTMLEnc(NNTP.BodyText)

response.write "<hr>MessageID: " & HTMLEnc( NNTP.MessageID ) &
"<br>References: " & NNTP.References & "<br><br>" &_

"</pre></td></tr>" & VbCrLf

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

Set NNTP = nothing


Mvh. Christoffer Thygesen

e-mail: cht@cht.dk



 
 
Søg
Reklame
Statistik
Spørgsmål : 177821
Tips : 31980
Nyheder : 719565
Indlæg : 6410979
Brugere : 218912

Månedens bedste
Årets bedste
Sidste års bedste