Hjælp til lidt ASP / SQL

VBScript kode 

 <%
     SQL = "SELECT navn_id, firmanavn, oprettet, beskrivelse, sortering, aktiv, adresse, postnr, bynavn, hjemmeside, type, tlf FROM navn WHERE aktiv = 'ja' AND annoncer LIKE '%forsider%' ORDER BY Rnd(TimeValue(Now())*-10000000*[navn_id])"
     %>

VBScript kode 

 <%
     SQL = "SELECT efternavn_id, firmanavn, oprettet, beskrivelse, sortering, aktiv, adresse, postnr, bynavn, hjemmeside, type, tlf FROM efternavn WHERE aktiv = 'ja' AND annoncer LIKE '%forsider%' ORDER BY Rnd(TimeValue(Now())*-10000000*[efternavn_id])"
     %>

VBScript kode 

 <%
 Set x = Conn.Execute ( SQL )
 if not x.eof Then
 do while not x.eof
 %>
 
     <%
     SQL = "SELECT TOP 1 billede_id, filnavn, navn_id FROM navn_logo WHERE navn_id = " & x("navn_id") & " ORDER BY filnavn ASC"
     Set photo = Conn.Execute ( SQL )
     %>
     <%
     if not photo.eof Then
     do while not photo.eof
     %>
 
     <% If x("hjemmeside") = "" Then %><% Else %><a href="http://<% = x("hjemmeside") %>" target="_blank"><%End If %><img src="/upload/navn/<% = photo("filnavn") %>" alt="<% = x("firmanavn") %>" border="0" style="margin-bottom:7px;padding-bottom:3px;" title="<% = x("firmanavn") %>"><% If x("hjemmeside") = "" Then %><% Else %></a><%End If %>
 
     <% 
     photo.movenext 
     if not photo.eof then
     Else
     End if
     Loop
     Else
     End If
     %>
 
 <%
 x.movenext
 if not x.eof then
 Else
 End if
 Loop
 else
 %>
 
 <%
 End If
 %>