select-box

response.write \"<select size=\"\"1\"\" onChange=\"\"location.href=\'side.asp?kategori=\' + this.options[selectedIndex].value;\"\">\"
response.write \"<option>Vælg kategori\"
If Not (rs.BOF Or rs.EOF) Then
  Do While Not rs.EOF
  Response.Write \"<option value=\"\"\" & rs(\"kategori\") & \"\"\">\" & rs(\"kategori\")   
rs.MoveNext
Loop
response.write \"</select>\"




response.write \"<select size=\"\"1\"\" onChange=\"\"location.href=\'side.asp?type=\' + this.options[selectedIndex].value;\"\">\"
response.write \"<option>Vælg type\"
If Not (rs.BOF Or rs.EOF) Then
  Do While Not rs.EOF
  Response.Write \"<option value=\"\"\" & rs(\"type\") & \"\"\">\" & rs(\"type\")   
rs.MoveNext
Loop
response.write \"</select>\"

Jeg har lidt problemer med det , her min start.....Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"prod.mdb\")

\'SQLstmt = \"INSERT INTO adresse (ID,produkt,model,beskrivelse,varenr,pris,link,email,info,billeder,dato\"
\'SQLstmt = SQLstmt & \" VALUES (\" & request.form(\"produkt\") & \",\'\" & request.form(\"model\") & \"\',\'\"  & request.form(\"beskrivelse\") & \"\',\'\" & request.form(\"varenr\") & \"\',\" & request.form(\"pris\") & \",\'\" & request.form(\"link\") & \"\',\'\" & request.form(\"email\") & \"\')\" & request.form(\"info\") & \"\')\" & request.form(\"billeder\") & \"\')\" & request.form(\"dato\") & \"\')\"
SQLstmt = \"SELECT * FROM produkter ORDER BY ID desc;\"
\'
\'response.write SQLstmt

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)

hvad er problemet?