<%@Language = VBScript%> <%Option Explicit%>
<% Dim rs,area,namn,bild area = CInt(Request.QueryString("area")) bild = Request.QueryString("bild") dbConnect Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM area",db Response.Write "
" Do While Not rs.EOF If area = rs("areaID") Then Response.Write "" & rs("namn") & "
" Else Response.Write "" & rs("namn") & "
" End If rs.MoveNext Loop Response.Write "
" rs.Close rs.Open "SELECT namn FROM area WHERE areaID = " & area,db namn = rs("namn") rs.Close %>
<% rs.Open "SELECT * FROM bilder WHERE area =" & area,db Dim i i=1 Do While Not rs.EOF Response.Write "" If i MOD 3 =0 Then Response.Write "" End If i=i+1 rs.MoveNext Loop rs.Close %>
<% dbClose %>

<% If bild <> "" Then dbConnect Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM bilder WHERE bildID =" & bild,db %>

" style="border:solid #000000 1px;">
<%=rs("rubrik")%>
<%=rs("texten")%>
<% dbClose End If %>