ASP Loop

Hvordan er det nu man laver et loop i asp?? den skal være i dette script:

<%
Set DataConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = dsn & "DBQ=" & server.mappath("../../databaser/rf_it.mdb")
DataConn.Open DSN
Set mehl = Server.CreateObject("ADODB.RecordSet")
mehl.open "SELECT * FROM printer ", DataConn
Set rs = mehl
        If rs.BOF Or rs.EOF Then
        Response.Redirect("../../error/4.html")
        end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> Gui </TITLE>
<LINK REL="StyleSheet" HREF="../../sheet.css" TYPE="text/css" >
</HEAD>
<BODY>
<FORM METHOD=POST ACTION="gui_script.asp">
<INPUT TYPE="text" NAME="gui">&nbsp;<INPUT TYPE="button" VALUE="Tilbage" onClick="history.back()">
<BR>
<BR>

<BR>
Printer Navn:&nbsp;<font color="red" size="3"><% response.write (mehl("share_navn")) %></font><br>
SAP Navn :&nbsp;<font color="red" size="3"><% response.write (mehl("sap_navn")) %></font><br>
Printer model :&nbsp;<font color="red" size="3"><% response.write (mehl("printer_type")) %></font><br>
Printer ip:&nbsp;<font color="red" size="3"><% response.write (mehl("ip")) %></font><br>
Tilslutning :&nbsp;<font color="red" size="3"><% response.write (mehl("tilslutning")) %></font><br>
RAM :&nbsp;<font color="red" size="3"><% response.write (mehl("ram")) %>Mb</font><br>
Placering :&nbsp;<font color="red" size="3"><% response.write (mehl("sted")) %></font><br>
Sider ved sidste service besøg:&nbsp;<font color="red" size="3"><% response.write (mehl("sider_ved_sidste_internservice")) %></font><br>
Hvad er lavet :&nbsp;<font color="red" size="3"><% response.write (mehl("hvad_er_lavet")) %></font><br>
Dato for service :&nbsp;<font color="red" size="3"><% response.write (mehl("dato_for_service")) %></font><br>
Hvem har lavet det :&nbsp;<font color="red" size="3"><% response.write (mehl("hvem")) %></font><br>

</BODY>
</HTML>