Udtræk i tabels

HVordan udtrækker man dette stykke kode

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body style=\"font-family: Verdana; font-size: 8pt\" bgcolor=\"#FFFFFF\" text=\"#000000\">

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"/log/rfk.mdb\")
Conn.Open DSN

strSQL = \"Select * from met\"
if Session(\"visID\") <> \"\" then
  strSQL = strSQL & \" WHERE ID NOT IN (\"&Session(\"visID\")&\")\"
end if
rs.Open strSQL, Conn, 3, 1
rndMax = CInt(rs.RecordCount)
if rndMax > 0 then
  Randomize
  rndNumber = Int((RND * rndMax)) \'Find et random nummer
  rs.Move rndNumber \'Flyt til den valgte record

  Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt; font-weight: bold\"\">\" & rs(\"spg\") & \"<br></font>\"     
  Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt\"\">\" & rs(\"a\") & \"<br></font>\"
  Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt\"\">\" & rs(\"b\") & \"<br></font>\"
  Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt\"\">\" & rs(\"c\") & \"<br></font>\"
  Response.Write \"<font style=\"\"font-family: Verdana; font-size: 8pt\"\">\" & rs(\"d\") & \"<br></font>\"

  if Session(\"visID\") = \"\" then
    Session(\"visID\") = rs(\"ID\")
  else
    Session(\"visID\") = Session(\"visID\") & \",\" & rs(\"ID\")
  end if
else
  Response.Write \"Ikke flere record at vise, reload og begynd forfra\" 
  Session(\"visID\") = \"\"
end if
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>

</body>
</html>

Ligger på webben: http://www.2mwebdesign.dk/log/met.asp


Så det bliver lagt ind i disse tabels?

http://www.2mwebdesign.dk/log/pu.asp