Det virker ikke se her
www.krellers.dk/soundavenue_dk/news/ klik så på en af nyhederne
hele filen ser sådan ud
<% Response.Buffer = True %>
<HTML>
<HEAD>
<!-- Minus AutoDato -->
<TITLE>Nyheds system.</TITLE>
<META NAME="Generator" CONTENT="Microsoft FrontPage 5.0">
</HEAD>
<BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#FFFFFF" VLINK="#FFFFFF" ALINK="#FFFFFF">
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
If Request.QueryString("id") <> "" Then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM nyheder WHERE (ID = " & Request.QueryString("id") & ")"
rs.Open strSQL, myConn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
Response.write "<TABLE WIDTH=""100%"" BORDER=""0"" BGCOLOR=""#000000"" BORDERCOLOR=""#000000""><TR VALIGN=""top""><TD><FONT face=""Verdana"" size=""7""><B>" & rs("overskrift") & "</B></FONT><BR><FONT face=""Verdana"" size=""7""> Dato " & rs("dato") & "</FONT><BR><FONT>" & rs("nyhed") & "</FONT><BR><FONT face=""Verdana"" size=""7"">Forfatter: " & rs("forfatter") & "</FONT></TD></TR></TABLE><BR>" rs.Update
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
End If
End If
%>
<center>
<font face="Verdana" style="font-size: 7pt">
<A HREF="java script:history.back(1)" TARGET="_top" style="text-decoration: none">
<font color="#FF9900">T</font>ilbage</A></font></center>
</BODY>
</HTML>