Konfigurator med listboxe

Hej

Jeg prøver på at lave en konfigurator hvor man kan omkonfigurere en vare vha. listboxe.
Har indtil videre lavet en listbox med Frontpage som virker men vil gerne have den som ASP hvilket jeg også har lavet - den virker bare ikke. Kan nogen se hvori problemet ligger ? (undskyld alt skramlet fra Frontpage)

ASP:
<%
Dim objDB
Dim objRS
Dim sDBName

sDBName = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/hovedmenu.mdb")
Set objDB = Server.CreateObject("ADODB.Connection")
objDB.Open sDBName

strsql = "SELECT (SELECT varenavn  FROM produkter WHERE varenr=kabinet) AS Varenavn, (SELECT pris  FROM produkter where varenr=kabinet) AS Pris,  (SELECT pris FROM produkter WHERE varenr=xkabinet) AS Pris2, (SELECT Varenr FROM produkter where varenr=kabinet) AS Varenr FROM Produkter INNER JOIN Config ON Produkter.Varenr=Config.Varenr WHERE Config.Varenr='::Varenr::' AND (SELECT webstatus FROM produkter WHERE varenr=kabinet)='www';"

Set objRS = objDB.Execute(strsql)

' Listbox

Response.Write "<select name=""Varenavn"">"
Do While Not objRS.EOF
    Response.Write "<option value=" & Chr(34) & objRS("Varenavn") & Chr(34) & ">" & objRS("Varenavn")
    objRS.MoveNext
Loop

Response.Write "</select>"
%>





Frontpage:
<form>
    <p align="left"><nobr>
    <!--webbot bot="DatabaseRegionStart" s-columnnames="Varenavn,Pris,Pris2,Varenr" s-columntypes="202,6,6,202" s-dataconnection="Hovedmenu" b-tableformat="FALSE" b-menuformat="TRUE" s-menuchoice="Varenavn" s-menuvalue="Varenavn" b-tableborder="TRUE" b-tableexpand="TRUE" b-tableheader="TRUE" b-listlabels="TRUE" b-listseparator="TRUE" i-listformat="0" b-makeform="FALSE" s-recordsource s-displaycolumns="Varenavn,Pris,Pris2,Varenr" s-criteria s-order s-sql="SELECT (SELECT varenavn  FROM produkter WHERE varenr=kabinet) AS Varenavn, (SELECT pris  FROM produkter where varenr=kabinet) AS Pris,  (SELECT pris FROM produkter WHERE varenr=xkabinet) AS Pris2, (SELECT Varenr FROM produkter where varenr=kabinet) AS Varenr&lt;br&gt;FROM Produkter INNER JOIN Config ON Produkter.Varenr=Config.Varenr&lt;br&gt;WHERE Config.Varenr='::Varenr::' AND (SELECT webstatus FROM produkter WHERE varenr=kabinet)='www';" b-procedure="FALSE" clientside suggestedext="asp" s-defaultfields="Varenr=" s-norecordsfound i-maxrecords="256" i-groupsize="0" botid="6" u-dblib="_fpclass/fpdblib.inc" u-dbrgn1="_fpclass/fpdbrgn1.inc" u-dbrgn2="_fpclass/fpdbrgn2.inc" preview=" &lt;span style=&quot;color: rgb(0,0,0); background-color: rgb(255,255,0)&quot;&gt;Database&lt;/span&gt; " startspan b-InForm="TRUE" b-UseDotNET="FALSE" CurrentExt sa-InputTypes b-DataGridFormat="FALSE" b-DGridAlternate="TRUE" sa-CritTypes b-WasTableFormat="FALSE" b-ReplaceDatabaseRegion="FALSE" --><!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>Komponenten Databaseresultater på denne side kan ikke vise databaseindhold. Siden skal have et filnavn, der slutter med '.asp', og webstedet skal findes på en server, der understøtter Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT (SELECT varenavn  FROM produkter WHERE varenr=kabinet) AS Varenavn, (SELECT pris  FROM produkter where varenr=kabinet) AS Pris,  (SELECT pris FROM produkter WHERE varenr=xkabinet) AS Pris2, (SELECT Varenr FROM produkter where varenr=kabinet) AS Varenr FROM Produkter INNER JOIN Config ON Produkter.Varenr=Config.Varenr WHERE Config.Varenr='::Varenr::' AND (SELECT webstatus FROM produkter WHERE varenr=kabinet)='www';"
fp_sDefault="Varenr="
fp_sNoRecords=""
fp_sDataConn="Hovedmenu"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=True
fp_sMenuChoice="Varenavn"
fp_sMenuValue="Varenavn"
fp_sColTypes="&Varenavn=202&Pris=6&Pris2=6&Varenr=202&"
fp_iDisplayCols=4
fp_fCustomQuery=True
BOTID=6
fp_iRegion=BOTID
%>
<!--webbot bot="DatabaseRegionStart" endspan i-checksum="15443" --></nobr></p>
    <p align="left">Kabinet</p>
    <p align="left"><nobr><select NAME="Varenavn" SIZE="1">
    <option selected value="1">Ingen</option>
    <!--webbot bot="AspInclude" clientside u-incfile="_fpclass/fpdbrgn1.inc" startspan --><!--#include file="_fpclass/fpdbrgn1.inc"-->
    <!--webbot bot="AspInclude" endspan i-checksum="63746" -->
    <option><%=FP_FieldHTML(fp_rs,"Varenavn")%> Kr. <%=FP_FieldHTML(fp_rs,"pris")%> - <%=FP_FieldHTML(fp_rs,"pris2")%></option>
    <!--webbot bot="AspInclude" clientside u-incfile="_fpclass/fpdbrgn2.inc" startspan --><!--#include file="_fpclass/fpdbrgn2.inc"-->
    <!--webbot bot="AspInclude" endspan i-checksum="63754" --></select></nobr></p>
    <p align="left"><nobr>
    <!--webbot bot="DatabaseRegionEnd" b-tableformat="FALSE" b-menuformat="TRUE" u-dbrgn2="_fpclass/fpdbrgn2.inc" i-groupsize="0" clientside preview=" &lt;span style=&quot;color: rgb(0,0,0); background-color: rgb(255,255,0)&quot;&gt;Resultater&lt;/span&gt; " startspan --><!--webbot bot="DatabaseRegionEnd" endspan --></nobr></p>
</form>