<% Set Connha = Server.CreateObject("ADODB.Connection") Connha.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/byla.mdb") %>

VÅRA TJÄNSTER

<% Set RecSetha = Server.CreateObject("ADODB.Recordset") SQLha = "SELECT tjanster.rubrik, tjanster.texten, tjanster.bild, tjanster.vad, tjanster.url, tjanster.id FROM tjanster Order By id asc" RecSetha.Open SQLha, Connha If RecSetha.EOF Then%> <%Else%>
<%Do While Not RecSetha.EOF %> <% RecSetha.MoveNext Loop %>
<% End If %>