Aner ikke hvad fejlen er?
Jeg kan ikke finde fejlen i denne :(Jeg for hele tiden: Artiklen du forsøger at få vist eksistere ikke !!
http://www.aqua-world.dk/artikler.asp
<%
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/data/data.mdb") & "; UId=Administrator; PWD="
Id=request("Id")
if Id<>"" then
set objRS = Conn.execute("select * from [artikler] where Id="&Id&"")
if objRS.eof then
response.write "Artiklen du forsøger at få vist eksistere ikke !!"
else
response.write "<B>Dato : </b> "&objRS("dato")& " "
response.write "<B>Overskrift: </b> "&objRS("overskrift")& " "
response.write "<br>"
response.write "<br>"
response.write "<B>Artikel: </B> "&objRS("Besked")&"<br>"
response.write "<br>"
response.write "<B>Email : </b> "&objRS("Link")& " "
response.write "<br>"
end if
objRS.close : set objRS=nothing
else
set objRS = Conn.execute("select * from [artikler] order by Overskrift asc ")
if objRS.eof then
response.write "<font color=""black"">Der var desvære ingen artikler i øjeblikket.</font>"
else
do while not objRS.eof
response.write "<a href=""art.asp?target=0&Id=" & objRS("Id") & """>" & objRS("overskrift") & " - " & objRS("Forfatter") & "</a><br>"
objRS.movenext
loop
end if
objRS.close : set objRS=nothing
end if
response.write "</body></html>"
Conn.close : set Conn=nothing
%>
