<% 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 8' 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 = 'grupp8' and Lag = 'aktiv' ORDER BY namn Asc"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>