Dim rsArticle, Hl, Mention, NString, Posted
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"/avisen/articledb.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
SQL = \"SELECT TOP 1 * FROM Names WHERE Completed=1 ORDER BY id DESC;\"
Set rs = Con.Execute(SQL)
if NOT rs.EOF then
SQL = \"SELECT TOP 5 * FROM Articles WHERE ShName =\'\" & rs(\"ShName\") &\"\' ORDER BY id ASC;\"
Set rsArticle= Con.Execute(SQL)
if NOT rsArticle.EOF then
%>
<%
Do while NOT rsArticle.EOF
Hl = rsArticle(\"Headline\")
ID = rsArticle(\"ID\")
Mention = REPLACE(rsArticle(\"Mention\"),vbCrlf,\"<br>\" & vbCrlf)
Mention = REPLACE(Mention,\"\'\" ,\"′\")
Hl = REPLACE(Hl,\"\'\" ,\"′\")
NString = Split(rsArticle(\"Posted\"),\"-\", -1, 1)
Posted = NString(2) & \"-\" & NString(1) & \"-\" & NString(0) & \" \" & NString(3) &\":\" & NString(4)
%>
document.write(\'Tilføjet:<% = Posted %><br>\')
document.write(\'<% = Hl %>\')
<%if NOT Mention=\"NO\" then%>
document.write(\'<p><% = Mention %></p>\')
<% else %>
document.write(\'<br>\')
<% End if %>
document.write(\'<a href=\"
www.minside.dk/avisen/viewarticle.asp?ArticleID=<% = ID %>\">Læs her</a>\')
<% rsArticle.movenext
if rsArticle.EOF = false then %>document.write(\'<hr size=\"1\" noshade>\')<% End if %>
<% loop %>
<% else %>
Databasen er tom!
<% End if
rsArticle.close
Set rsArticle= nothing
End if
Con.close
Set Con = nothing
%>
Det virker fint på et andet domæne.
Jeg skulle lave \"\'\" om til ′ for at ikke få fejlmelding i Javascriptet.
Det ligger så på den server hvor nyhederne skal hentes.
Browseren tror så at jeg linker til en alm. javascript-fil, når jeg så skriver på den anden:
<script src=\"
http://www.minside.dk/index/sharenews.asp\" type=\"text/javascript\"></script>