Behold listen i en dropdownboks
Hej.Jeg har en Dropdownboks, som viser nogen forskellige varetyper. Den bliver styret af 3 menupunkter ude til højre af siden. Når man trykke på en af disse menuer, vil den automatisk ændre sig inden i boksen. Men vælger man en type i boksen, ja så vil den automatisk hoppe tilbage til den som er den første, når den har lavet en reload af siden. Kan jeg ikke få boksen til at huske på det sidste menupunkt som blev valgt af de 3 som styrer mine dropdownbox?
Her er min kode. Det er det Recordset som hedder Type som jeg har problemer med
---------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/Kitchnkool1.asp" -->
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%
Dim rsType__MMColParam
rsType__MMColParam = "1"
If (Request.QueryString("KategoriID") <> "") Then
rsType__MMColParam = Request.QueryString("KategoriID")
End If
%>
<%
Dim rsType
Dim rsType_numRows
Set rsType = Server.CreateObject("ADODB.Recordset")
rsType.ActiveConnection = MM_Kitchnkool1_STRING
rsType.Source = "SELECT * FROM QRYVarervaelg WHERE KategoriID = " + Replace(rsType__MMColParam, "'", "''") + ""
rsType.CursorType = 0
rsType.CursorLocation = 2
rsType.LockType = 1
rsType.Open()
rsType_numRows = 0
%>
<%
Dim rsVarer__MMColParam
rsVarer__MMColParam = "0"
If (Request.QueryString("VarerV") <> "") Then
rsVarer__MMColParam = Request.QueryString("VarerV")
End If
%>
<%
Dim rsVarer
Dim rsVarer_numRows
Set rsVarer = Server.CreateObject("ADODB.Recordset")
rsVarer.ActiveConnection = MM_Kitchnkool1_STRING
rsVarer.Source = "SELECT * FROM Varer WHERE TypeID = " + Replace(rsVarer__MMColParam, "'", "''") + ""
rsVarer.CursorType = 0
rsVarer.CursorLocation = 2
rsVarer.LockType = 1
rsVarer.Open()
rsVarer_numRows = 0
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = -4
Dim HLooper1__index
HLooper1__index = 0
rsVarer_numRows = rsVarer_numRows + HLooper1__numRows
%>
<html xmlns="http://www.w3.org/1999/xhtml"><!-- InstanceBegin template="/Templates/start.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<!-- InstanceBeginEditable name="doctitle" -->
<title>Test</title>
<!-- InstanceEndEditable -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link href="/stylrsheet/stylrsheet.css" rel="stylesheet" type="text/css" />
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<!-- InstanceBeginEditable name="head" --><!-- InstanceEndEditable -->
</head>
<body bgcolor="#666666" onLoad="MM_preloadImages('/gfx/knapper_05.jpg','/gfx/knapper_04.jpg','/gfx/knapper_02.jpg','/gfx/knapper_03.jpg')">
<div align="center">
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="/gfx/kitchnkoollogotopsortrod.jpg" name="toplogo" width="760" height="85" id="toplogo" /></td>
</tr>
<tr>
<td height="20" valign="top"><table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="360" valign="middle"><a href="/aspsider/startside.asp"><img src="/gfx/home1.gif" alt="Tilbage til startsiden" width="24" height="15" border="0" /></a></td>
<td width="100"><a href="/aspsider/hvemer.asp"><img src="/gfx/knappergraa_02.jpg" name="hvemer" width="100" height="20" border="0" id="hvemer" onMouseOver="MM_swapImage('hvemer','','/gfx/knapper_02.jpg',1)" onMouseOut="MM_swapImgRestore()" /></a></td>
<td width="100"><a href="/aspsider/sidstenyt.asp"><img src="/gfx/knappergraa_04.jpg" name="sidst" width="100" height="20" border="0" id="sidst" onMouseOver="MM_swapImage('sidst','','/gfx/knapper_04.jpg',1)" onMouseOut="MM_swapImgRestore()" /></a></td>
<td width="100">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><a href="/aspsider/varer.asp" target="_top"><img src="/gfx/knappergraa_03.jpg" alt="" name="varer2" border="0" id="varer2" onMouseOver="MM_swapImage('varer2','','/gfx/knapper_03.jpg',1)" onMouseOut="MM_swapImgRestore()" onload="" /></a></td>
</tr>
</table></td>
<td width="100"><a href="/aspsider/herborvi.asp"><img src="/gfx/knappergraa_05.jpg" name="kontakt" width="100" height="20" border="0" id="kontakt" onMouseOver="MM_swapImage('kontakt','','/gfx/knapper_05.jpg',1)" onMouseOut="MM_swapImgRestore()" /></a></td>
</tr>
</table> </td>
</tr>
</table>
</div>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="760" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="118" align="left" valign="top" bgcolor="#660000"> <!-- InstanceBeginEditable name="Menuvenstre" -->
<TABLE WIDTH=118 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD> <a href="/aspsider/vareroversigt.asp?KategoriID=1"><IMG SRC="../menufarver/menusort_01.jpg" ALT="" name="kokkenudstyr" WIDTH=118 HEIGHT=22 border="0" id="kokkenudstyr" onMouseOver="MM_swapImage('kokkenudstyr','','/menufarver/menusrod_01.jpg',1)" onMouseOut="MM_swapImgRestore()"></a></TD>
</TR>
<TR>
<TD> <a href="/aspsider/vareroversigt.asp?KategoriID=2"><IMG SRC="../menufarver/menusort_03.jpg" ALT="" name="kokkendesign" WIDTH=118 HEIGHT=25 border="0" id="kokkendesign" onMouseOver="MM_swapImage('kokkendesign','','/menufarver/menusrod_03.jpg',1)" onMouseOut="MM_swapImgRestore()"></a></TD>
</TR>
<TR>
<TD> <a href="/aspsider/vareroversigt.asp?KategoriID=3"><IMG SRC="../menufarver/menusort_05.jpg" ALT="" name="varer" WIDTH=118 HEIGHT=24 border="0" id="varer" onMouseOver="MM_swapImage('varer','','/menufarver/menusrod_05.jpg',1)" onMouseOut="MM_swapImgRestore()"></a></TD>
</TR>
<TR>
<TD> <IMG SRC="../menufarver/menusort_07.jpg" ALT="" name="sort4" WIDTH=118 HEIGHT=23 id="sort4"></TD>
</TR>
<TR>
<TD> <IMG SRC="../menufarver/menusort_09.jpg" ALT="" name="sort5" WIDTH=118 HEIGHT=24 id="sort5"></TD>
</TR>
<TR>
<TD> <IMG SRC="../menufarver/menusort_11.jpg" ALT="" name="sort6" WIDTH=118 HEIGHT=24 id="sort6"></TD>
</TR>
<TR>
<TD> <IMG SRC="../menufarver/menusort_13.jpg" ALT="" name="sort7" WIDTH=118 HEIGHT=23 id="sort7"></TD>
</TR>
<TR>
<TD> <IMG SRC="../menufarver/menusort_15.jpg" ALT="" name="sort8" WIDTH=118 HEIGHT=68 id="sort8"></TD>
</TR>
</TABLE>
<!-- InstanceEndEditable --></td>
<td width="642" valign="top" bgcolor="#660000" ><!-- InstanceBeginEditable name="brodtekst" -->
<table width="610" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"> <br />
<table width="590" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><div align="center">
<form action="/aspsider/vareroversigt.asp" method="get" name="varervaelg" id="varervaelg">
<select name="varerv" class="varervaelger" id="varerv" onChange="java script:document.varervaelg.submit(this.form)">
<option value="0">Vælg varer</option>
<%
While (NOT rsType.EOF)
%>
<option value="<%=(rsType.Fields.Item("TypeID").Value)%>">
<% if Cstr(rsType.Fields.Item("TypeID").Value) = Cstr(rsVarerv) then
Response.write " SELECTED "
End if %><%=(rsType.Fields.Item("Type").Value)%></option>
<%
rsType.MoveNext()
Wend
If (rsType.CursorType > 0) Then
rsType.MoveFirst
Else
rsType.Requery
End If
%>
</select>
</form>
</div></td>
</tr>
</table>
<br />
<table width="590" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> <table align="center" >
<%
startrw = 0
endrw = HLooper1__index
numberColumns = 4
numrows = -1
while((numrows <> 0) AND (Not rsVarer.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<tr align="center" valign="top">
<%
While ((startrw <= endrw) AND (Not rsVarer.EOF))
%>
<td> <% If Not rsVarer.EOF Or Not rsVarer.BOF Then %>
<table width="125" border="0" align="center" cellpadding="0" cellspacing="0" class="varertabel1">
<tr>
<td> </td>
</tr>
<tr>
<td> <div align="center"><img src="<%=(rsVarer.Fields.Item("Billedelille").Value)%>" border="1" class="varebillede" /></div></td>
</tr>
<tr>
<td><div align="center"><%=(rsVarer.Fields.Item("Varernavn").Value)%></div></td>
</tr>
<tr>
<td><div align="center">
<p class="varebillede"><%=(rsVarer.Fields.Item("Pris").Value)%> kr.</p>
</div></td>
</tr>
<tr valign="middle">
<td valign="top"> <div align="center"><img src="/gfx/information.jpg" width="30" height="15" /></div></td>
</tr>
</table>
<% End If ' end Not rsVarer.EOF Or NOT rsVarer.BOF %> </td>
<%
startrw = startrw + 1
rsVarer.MoveNext()
Wend
%>
</tr>
<%
numrows=numrows-1
Wend
%>
</table>
<div align="center"></div></td>
</tr>
</table>
</td>
</tr>
</table>
<!-- InstanceEndEditable -->
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2" valign="bottom"><table width="760" border="0" cellpadding="0" cellspacing="0" class="tabelbund">
<tr>
<td height="20" valign="middle" background="/gfx/bundlogo.jpg" bgcolor="#666666">
<div align="center">Nansensgade 36 TV. 1366 KBH.K
Tlf: 33141444</div></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
<br />
</body>
<!-- InstanceEnd -->
</html>
<%
rsVarer.Close()
Set rsVarer = Nothing
%>
<%
rsType.Close()
Set rsType = Nothing
%>
