<% SET connect = Server.CreateObject("ADODB.Connection") Connect.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/") & "\" & "/produkter/register.mdb" SET RecSet = Server.CreateObject("ADODB.RecordSet") visa ="SELECT * FROM medlem WHERE kategori = 'Bildgrupp' and Lag = 'aktiv' and Namn = 'Grupp 5' ORDER BY namn Asc" RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %> <%do while not recset.eof%>

<%=RecSet("Beskrivning")%>

<% RecSet.MoveNext loop RecSet.Close Connect.Close %> <% SET connect = Server.CreateObject("ADODB.Connection") Connect.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/") & "\" & "/produkter/register.mdb" SET RecSet = Server.CreateObject("ADODB.RecordSet") visa ="SELECT * FROM medlem WHERE kategori = 'grupp5' and Lag = 'aktiv' ORDER BY namn Asc" RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
<%do while not recset.eof%>
<%=RecSet("Namn")%>
<%=RecSet("Personnr")%>
" TARGET="_blank">" width="163">
<%=RecSet("Pris")%> 
<%=RecSet("Beskrivning")%>  
<% RecSet.MoveNext loop RecSet.Close Connect.Close %>