Hallo Liste,
ich habe zwischenzeitlich "probiert" und bin jetzt so weit:
..............................................................
<%
'eine Funktion aus Visual Basic Pro, checkt, ob Abfrage erledigt werden
konnte
function isQueryInComplete(propertyValue)
isQueryInComplete = PropertyValue and &H80
end function
dim con
dim cmd
dim rs
dim adcmdtxt
'der Sqlstring, abgefragt wird ein eigenst�ndig erstellter katalog
newscatalog
adcmdtxt = "Select newsgroup, newsarticleid, newsfrom, newssubject,
newsdate,contents from newscatalog..SCOPE() where newsgroup='NameNewsGroup'
order by newsdate"
'Kontrollausgabe
response.write adcmdtxt & "<br>"
set con = server.createobject("ADODB.Connection")
set cmd = server.createobject("ADODB.Command")
set rs=server.createobject("ADODB.Recordset")
con.connectionstring="provider=msidxs;"
con.open
cmd.activeconnection = con
cmd.properties(40)="DE"
cmd.commandtext = adcmdtxt
rs.cursortype = 3
rs.open cmd
'die Ausgabe, leider funktioniert der href noch nicht einwandfrei
if not isqueryincomplete(rs.properties(39)) then
response.write "Anzahl der Eintr�ge : " & rs.recordcount & "<br>"
do while not rs.eof
response.write "<a href='news://80.38.203.201/"; &
Server.HTMLEncode(rs("newsgroup")) & "/" &
Server.HTMLEncode(RS("newsarticleid")) & "'>Nummer</a>"
response.write rs("newsgroup").value & "<br>"
response.write rs("newsfrom").value & "<br>"
response.write rs("newssubject").value & "<br>"
response.write rs("contents").value & "<br>"
rs.movenext
loop
end if
rs.close
set rs = nothing
set cmd=nothing
set con=nothing
%>
----------------------------------------------------------------------------
--------------------------------
Voraussetzung:
IIS 4.0 und Index Server und MDAC ab Version 2.5
Dann noch einen eigenst�ndigen Katalog auf dem Index Server und nur newsroot
in den Katalog.
Funktioniert eigentlich ganz gut, ich habe nur noch keinen �bergang von der
eigentlichen Anzeige der Informationen zum Content.
Die MSDN sagt hierzu, dass der Inhalt einer News zwar abgefragt werden kann
(select contents ..... where contain('contents' like "xxxx")>0)
aber: Der Inhalt kann nicht auf einer Webseite angezeigt werden.
Deshalb geht auch derzeit der oben eingebaute Link noch ins Leere. Bei mir
wird Outlook Express ge�ffnet (so weit oK), aber er findet die newsgroup
(rs("newsgroup")) noch nicht sauber.
Bis dahin trotzdem vielen Dank
Ciao Thomas
| [aspdedatabase] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
