ASP kode i formularfelt

Jeg har lige et lile problem med at få min varekurv til at fungere.

Min kode ser sådan ud, og jeg ønsker at "value" i formularfeltet skal indeholde data fra databasen, f.eks sådan at det istedetfor "value=50" (pris), så står det noget som "value=rs("Pris")"

Noget som kan hjælpe?
 

<%
  dbfile=Server.MapPath("skoleweb.mdb")
  Set OBJdbConnection=Server.CreateObject("ADODB.Connection")
  OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile

Set rs = Server.CreateObject("ADODB.Recordset")
  sql=  "SELECT * FROM Produkter WHERE Produktkategori='"&Request.Querystring("Produktkategori")&"'"
  rs.Open sql, OBJdbConnection, 3, 3

%>

<%
' Gennemløb Recordset (rs) med en løkke
Do

  ' Udskriv værdien af kolonnen Produktkategori
    Response.Write("<center>")
    Response.Write("<p>")
    Response.Write("<br>")
    Response.Write("<table width=80%\>")
    Response.Write("<tr>")
    Response.Write("<td bgcolor=BFDBDF width=60%\")
    Response.Write("<b>Produkt Id: </b>" & rs("ProduktId")  & "<br>")
    Response.Write("<b>Navn: </b>" & rs("Produktnavn")  & "<br>")
    Response.Write("<b>Pris: </b>" & rs("Pris")  & "<br>")
    Response.Write("<b>Beskrivelse: </b><br>" & rs("Produktbeskrivelse")  & "<br>")
%>

    <form method="post" action="kjop_vare.asp">
        <input type="hidden" name="ID" value="2">
        <input type="hidden" name="Navn" value="Fiskestang">
        <input type="hidden" name="Pris" value="50">
        <select size="1" name="Antall">
            <option selected="selected">1</option>
            <option>2</option>
            <option>3</option>
            <option>4</option>
            <option>5</option>
            <option>6</option>
            <option>7</option>
            <option>8</option>
            <option>9</option>
            <option>10</option>
            </select>
        <input type="submit" value="Kjøp">
    </form>



<%
    Response.Write("</td>")
    Response.Write("<td>")
    Response.Write("<img src='images/" & rs("Bilde") & "'>")
    Response.Write("</td>")
    Response.Write("</tr>")
    Response.Write("</table>")
    Response.Write("</center>")

    Response.Write("<p>")


  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

%>

<%
  set rs = Nothing
  OBJdbConnection.Close
  set OBJdbConnection = Nothing
%>