<% idnr = Request.Querystring("idnr") Set MinCon = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") MinCon.Open "DSN=d2658_boktips;Password=bigge" SQL = "SELECT * FROM boktips WHERE id = " & idnr & "" rs.Open SQL,MinCon %> <% If rs("extra1") > " " Then%> <%=rs("extra1")%> <%else%> <%=rs("genre")%> <% End If %> <% rs.MoveNext Loop %>

<%Do While Not rs.EOF %>

Titel

<%=rs("titel")%>

 > " width="100" height="160" align="right">

Författare

<%=rs("forfattare")%>

<%=rs("anmarkning")%>

 
Genre <%=rs("genre")%>
Katalog ">Finns boken inne? Kolla här.
Hylla <%=rs("signum")%>

Tipsare

<%=rs("tipsare")%>
Tillbaka till alla listor>>