Problem med at hente fra DB
Hej Jeg har en Access DB, hvor jeg har noget html liggende i. Når man klikker på et link skal det html, så komme frem.Jeg får følgende fejl.
////
Microsoft JET Database Engine error '80040e14'
Syntax error in string in query expression 'side_navn ='Billeder'.
/ny/default.asp, line 66
////
Jeg har markeret det område i koden hvor det fejler...
----------------------------<%
Query= " SELECT * from tbl_menu where menu_vis = true order by menu_txt "
Set ResMenu = Conn.Execute(Query)
Session.LCID = 1030
%>
<body leftmargin="0" topmargin="0">
<table width="730" height="530" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<th background="image/bg_window.gif" scope="col"><table width="700" height="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr >
<th height="60" colspan="3" scope="col" background="image/top_bg.gif"> </th>
</tr>
<tr>
<th height="200" colspan="3" scope="col"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="700" height="200">
<param name="movie" value="work/movie_top.swf">
<param name="quality" value="high">
<embed src="work/movie_top.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="700" height="200"></embed>
</object></th>
</tr>
<tr bgcolor="#FFFFFF">
<th width="140" height="240" valign="top" background="image/ehlers_bg.jpg" scope="col"> <div align="center">
<table width="140" border="0" cellspacing="2" cellpadding="2">
<%
If not ResMenu.EOF then
ResMenu.movefirst
while not ResMenu.eof
%>
<tr>
<th scope="col" align="left"><a href="default.asp?link=<%=resMenu("menu_txt")%>" class="menuTxt"><%=resMenu("menu_txt")%></a></th>
</tr>
<%
ResMenu.MoveNext
Wend
resMenu.Close
Set resMenu = Nothing
End If
'End if
%>
</table>
</div></th>
<th width="420" valign="top" background="image/ehlers_bg_dark.jpg" scope="col"><table width="320" height="240" border="0" align="right" cellpadding="2" cellspacing="2">
///////////////////////////////////////////////////
<%
link = request.Querystring("link")
if link = "" then
Query= " SELECT * from tbl_sider where side_navn ='" & Forside
ResSider = Conn.Execute(Query)
else
Query= " SELECT * from tbl_sider where side_navn ='" & link
ResSider = Conn.Execute(Query)
end if
%>
<%
If not ResSider.EOF then
ResSider.movefirst
while not ResSider.eof
%>
<tr>
<th valign="top" scope="col"><div align="left"><%=ResSider("sider_html")%></div></th>
</tr>
<%
ResSider.MoveNext
Wend
resSider.Close
End If
'End if
%>
///////////////////////////////////////////////////////
Kan i se hvad jeg gør galt?
