<% Set RecSet2 = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM tblVfm WHERE side=8 ORDER BY index" RecSet2.Open strSQL , Connect,1, 1 Do Until RecSet2.EOF tittel = RecSet2("tittel") dato_tekst = RecSet2("dato_tekst") ingress = RecSet2("ingress") brodtekst = RecSet2("brodtekst") bilde = RecSet2("bilde") bilde2 = RecSet2("bilde2") bilde3 = RecSet2("bilde3") %> <%=tittel%> <%IF Len(dato_tekst) > 0 THEN %> <%=dato_tekst%> <%END IF%> <%=formatStr(ingress)%> <%=formatStr(brodtekst)%> <% IF bilde > 0 THEN strSQL = "SELECT * FROM image WHERE bilde_id="&bilde RecSet.Open strSQL , Connect,1, 1 %> <%=RecSet("tittel")%> <%IF Len(RecSet("bildetekst")) > 0 THEN%> <%=RecSet("bildetekst")%> <%END IF%> <%IF Len(RecSet("fotograf")) > 0 THEN%> Fotograf: <%=RecSet("fotograf")%> <%END IF RecSet.Close END IF%> <%IF bilde2 > 0 THEN strSQL = "SELECT * FROM image WHERE bilde_id="&bilde2 RecSet.Open strSQL , Connect,1, 1 %> <%=RecSet("tittel")%> <%IF Len(RecSet("bildetekst")) > 0 THEN%> <%=RecSet("bildetekst")%> <%END IF%> <%IF Len(RecSet("fotograf")) > 0 THEN%> Fotograf: <%=RecSet("fotograf")%> <%END IF%> <%RecSet.Close%> <%END IF%> <%IF bilde3 > 0 THEN strSQL = "SELECT * FROM image WHERE bilde_id="&bilde3 RecSet.Open strSQL , Connect,1, 1 %> <%=RecSet("tittel")%> <%IF Len(RecSet("bildetekst")) > 0 THEN%> <%=RecSet("bildetekst")%> <%END IF%> <%IF Len(RecSet("fotograf")) > 0 THEN%> Fotograf: <%=RecSet("fotograf")%> <%END IF RecSet.Close END IF%> <% RecSet2.MoveNext loop RecSet2.Close %>