fejl i kode.

Jeg har en fejl i nedenstående kode:

Scriptet ser ud til at virke, men der udskrives en forkert pris (jeg tror den tager prisen for den første post i db'en)

Scriptet kan ses på www.comgros.dk/test.asp

prøv feks. at vælge :
asus A1000B DJ Cover pris er 156,45
men den tager prisen for en asus A1000B Display 13,3"

Hvorfor ?




<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=d:\websider\global\comgrosinfo.dk\comgrosinfo.dk\db\notebook.mdb"
Conn.Open DSN

if request.servervariables("REQUEST_METHOD") = "POST" then
  typen = request.form("typen")
Set rs = Conn.execute ("SELECT * FROM notebook WHERE typen = '" & typen &"'")
  pris = rs("pris")
end if
%>

<%
sql="select * from notebook order by model"
set record=conn.execute(sql)


%>
<form method="POST" action="">
<select MULTIPLE name="typen" onChange="this.form.submit()" style="background-color: #ffffff"; style="font:bold 10px Ariel, sans-serif";><%do while not record.eof%>

<option value="<%=record("typen")%>"><%=record("model")&(" ")&record("typen")&(" ")&record("part")%>
<%
record.movenext
loop%></option>


</select>
</form>

 
 
<p><%=pris%>