"Jon Klose Larsen" <klose@post8.tele.dk> skrev i en meddelelse
news:9d4gg1$fdu$1@news.cybercity.dk...
> Hej
>
> Jeg har en side der ligger på en "fremmed" server.
>
> Denne side ville jeg gerne have includeret på en af mine egne asp-sider,
så
> jeg kan få vist min menu.
>
> Jeg prøvede med:
>
> <!--#include file=
www.xxxxx.xxxx/xxxx-->
>
> men det virker ikke !!!
>
> Hvordan klarer jeg det problem ??
kan du ik bare
<script src="
http://www.svend-bent.dk/topmenu.asp">
det kræver dog noget dokument.write kode som jeg har lavet et eksempel på
her under
'inkludre forbindelse til database
<!--#include file="connect.asp"-->
<%
dim rskato, sql
set rskato=Server.CreateObject("ADODB.Recordset")
sql="SELECT Top 20 link FROM link ORDER BY link;"
rskato.Open sql, db, 2, 2
If Not rskato.EOF Then%>
<%
Response.Write("document.write('<font face=" & Chr(34) & "Verdana" & Chr(34)
& " size=" & Chr(34) & "1" & Chr(34) & " color=" & Chr(34) & "#000000" &
Chr(34) & ">');")
Response.Write("document.write('Top 20 Links fra svend-bent.dk<br>');")
Response.Write("document.write('</font>');")
%>
<%
Response.Write("document.write('<BR>');")
Response.Write("document.write('<blockquote>');")
Response.Write("document.write('<font face=" & Chr(34) & "Verdana" & Chr(34)
& " size=" & Chr(34) & "1" & Chr(34) & ">');")
hits = 0
do while hits < 20 and not rskato.EOF
Response.Write("document.write('<A HREF="&
"
http://www.svend-bent.dk/info.asp?LinkID=" & (rskato("LinkID")) & ">" &
rskato("Sitename") & "</A><BR>');")
'Response.Write("document.write('<BR>');")
rskato.movenext
hits = hits + 1
loop
rskato.close
END If
set rskato=nothing')")
%>
<%
Response.Write("document.write('</font></blockquote></Center>');")
Response.Write("document.write('<font size=" & Chr(34) & "1" & Chr(34) &
">');")
Response.Write("document.write('<p align=" & Chr(34) & "center" & Chr(34) &
"><font color=" & Chr(34) & "#000000" & Chr(34) & ">© Copyright 1999-2000
');")
Response.Write("document.write('<a href=" & Chr(34) &
"
http://www.svend-bent.dk/" & Chr(34) & ">Find med Svend-bent.dk</a> ');")
Response.Write("document.write('<BR>Udviklet & drives af <a href=" &
Chr(34) & "mailto:mogens@
www.svend-bent.dk" & Chr(34) & ">Mogens Dyhre
Hansen.</A></font>');")
Response.Write("document.write('</p>');")
Response.Write("document.write('</font>');")
%>
--
/Mogens
http://www.svend-bent.dk/ Startsiden med Emneindex, robotsøgning, hitlist,
sidste nye links, click true %, Grafer på dine links med de sidste dags hits
+ meget mere
http://hjem.get2net.dk/mogges/ Haltruplund dambrug - Frisk fisk er sundt.
Fjern remove i mail adr. så er der hul igennem.