Simpel løkke som tilføjer 1 hvergang..

Det her kunne være en mulighed... Den lægger 1 til hver gang siden reloades. (Hvis det bare kopieres ind på siden)

<%
session("loop") = "0"
session("loop") = session("loop") + 1
%>

ellers så prøv at beskriv helt nøjagtigt hvad du vil have... For det variere meget afhængi af hvad det skal bruges til...

taeller = 0
do until taeller = 10
Response.Write("taeller er nu "&taeller&"<br>")
loop

ups, forkert :=)



taeller = 0
do until taeller = 10
taeller = taeller + 1
Response.Write("taeller er nu "&taeller&"<br>")
loop

Hejsa

Du er inde på noget af det rigtige, men jeg kan ikke få den til at vokse med det, hvis jeg skal lave en beskrivelse kommer den til at se sådan her ud:

Dette

<%
    While (not rsmainmenu.EOF)
        loop = X + 1
%>
group[<%=loop%>][0]=new Option("JavaScript Kit")
<% 
    rsmainmenu.movenext
    wend
%>

Skal give noget ala dette:

group[0][0]=new Option("JavaScript Kit")
group[0][1]=new Option("News.com")
group[0][2]=new Option("Wired News")

group[1][0]=new Option("CNN")
group[1][1]=new Option("ABC News")

group[2][0]=new Option("Hotbot")
group[2][1]=new Option("Infoseek")
group[2][2]=new Option("Excite")
group[2][3]=new Option("Lycos")

<%
'Du må ikke benytte loop som variabel-navn...

taeller=0
strSQL=""
set rs=Main.Execute(strSQL)
if not rs.EOF then
  do until rs.EOF
  taeller=taeller+1
 
  %>group[<%=taeller%>].....<%
 
  rs.MoveNext
  loop
end if
rs.close
set rs=nothing

%>

Hej Netjay

Det ser rigtig godt! Jeg tester det lige af! du hører fra mig lidt senere i aften :-)

ok... og et eksempel med indsæt fra database...:
%>group[<%=rs("id")%>][<%=taeller%>]=new Option("<%=rs("beskrivelse")%>").....<%

Hej igen

Nu har jeg prøvet at teste det, men den smider kun 10 ud som tal. Min kode ser sådan ud:

<script>
<!--

var groups=document.doublecombo.example.options.length
var group=new Array(groups)
for (i=0; i<groups; i++)
group[i]=new Array()


<%   
    '####### Mainmenu2 ############
    '## Create db objects and SQL   
    set mainmenu2Conn = Server.CreateObject("ADODB.Connection")
    mainmenu2Conn.Open Application("ConnectString")
    Set rsmainmenu2 = Server.CreateObject("ADODB.Recordset")

    mainmenu2Sql = "SELECT * FROM prodmainnav ORDER BY prodmainnav.id;"

    Set rsmainmenu2 = mainmenu2Conn.Execute(mainmenu2Sql)

    While (not rsmainmenu2.EOF)
%>
<%
taeller = 0
do until taeller = 10
taeller = taeller + 1
loop
%>
<%   
    '####### Submenu ############
    '## Create db objects and SQL   
    set submenuConn = Server.CreateObject("ADODB.Connection")
    submenuConn.Open Application("ConnectString")
    Set rssubmenu = Server.CreateObject("ADODB.Recordset")

    submenuSql = "SELECT * FROM prodsubcat WHERE prodsubcat.maincatid = " & rsmainmenu2("id") & " ORDER BY prodsubcat.id;"

    Set rssubmenu = submenuConn.Execute(submenuSql)

    While (not rssubmenu.EOF)
%>
<%
taeller2 = 0
do until taeller2 = 10
taeller2 = taeller2 + 1
loop
%>
group[<%Response.Write taeller%>][<%Response.Write taeller%>]=new Option("<%=rssubmenu("subcat")%>")

<% 
    rssubmenu.movenext
    wend
%>
<% 
    rsmainmenu2.movenext
    wend
%>

var temp=document.doublecombo.stage2

function redirect(x){
for (m=temp.options.length-1;m>0;m--)
temp.options[m]=null
for (i=0;i<group[x].length;i++){
temp.options[i]=new Option(group[x][i].text,group[x][i].value)
}
temp.options[0].selected=true
}

function go(){
location=temp.options[temp.selectedIndex].value
}
//-->
</script>

Hvad går der galt?? :-)

det er fodi du først udskriver den efter at den har loopet og derfor giver den 10... du skal skrive den imellem do until samt loop:

do until taeller2 = 10
taeller2 = taeller2 + 1
%>group[<%Response.Write taeller%>][<%Response.Write taeller%>]=new Option("<%=rssubmenu("subcat")%>")
loop

men jeg tror der er meget galt i den kode :=

ved ikke om du kan bruge dette til noget:
  taeller=0
  Set rsmainmenu2 = mainmenu2Conn.Execute("SELECT * FROM prodmainnav ORDER BY prodmainnav.id;")
    if not rsMainMenu2.EOF then
    do until rsMainMenu2.EOF
      taeller=taeller+1
      taeller2=0
     
      do until taeller2=10
      taeller2=taeller2+1
      %>group[<%Response.Write taeller%>][<%Response.Write taeller2%>]=new Option("<%=rssubmenu("subcat")%>")<%
      loop

    rs.movenext ' GÅR TIL NÆSTE EMNE I DB
    loop
    end if
  rsmainmenu2.close
  set rsmainmenu2=nothing

Det går op i hat og briller nu! Nu smider den 700 linier kode ud som bla. ser sådan her ud

group[1][1]=new Option("Stig")

med 20 af hvert tal

og jeg har sat det sådan her:

<%
taeller = 0
do until taeller = 10
taeller = taeller + 1
%>
<%   
    '####### Mainmenu2 ############
    '## Create db objects and SQL   
    set mainmenu2Conn = Server.CreateObject("ADODB.Connection")
    mainmenu2Conn.Open Application("ConnectString")
    Set rsmainmenu2 = Server.CreateObject("ADODB.Recordset")

    mainmenu2Sql = "SELECT * FROM prodmainnav ORDER BY prodmainnav.id;"

    Set rsmainmenu2 = mainmenu2Conn.Execute(mainmenu2Sql)

    While (not rsmainmenu2.EOF)
%>
<%   
    '####### Submenu ############
    '## Create db objects and SQL   
    set submenuConn = Server.CreateObject("ADODB.Connection")
    submenuConn.Open Application("ConnectString")
    Set rssubmenu = Server.CreateObject("ADODB.Recordset")

    submenuSql = "SELECT * FROM prodsubcat WHERE prodsubcat.maincatid = " & rsmainmenu2("id") & " ORDER BY prodsubcat.id;"

    Set rssubmenu = submenuConn.Execute(submenuSql)

    While (not rssubmenu.EOF)
%>
<%
taeller2 = 0
do until taeller2 = 10
taeller2 = taeller2 + 1

%>
group[<%Response.Write taeller%>][<%Response.Write taeller%>]=new Option("<%=rssubmenu("subcat")%>")
<% loop %>
<% 
    rssubmenu.movenext
    wend
%>
<% 
    rsmainmenu2.movenext
    wend
%>
<% loop %>

Flot kode!!
Jeg prøver lige :-)

Hmm.. Jeg får en underlig Object Required fejl i denne linie..

Set rsmainmenu2 = mainmenu2Conn.Execute("SELECT * FROM prodmainnav ORDER BY prodmainnav.id;")

Men jeg kan ikke se der skulle være nogen object som mangler!!! dog kan jeg se at der mangler SuMenu select så jeg har lavet den om til dette:

<%
  taeller=0
  Set rsmainmenu2 = mainmenu2Conn.Execute("SELECT * FROM prodmainnav ORDER BY prodmainnav.id;")
    if not rsMainMenu2.EOF then
    do until rsMainMenu2.EOF
      taeller=taeller+1
     
      taeller2=0
   
        Set rssub = subConn.Execute("SELECT * FROM prodsubcat ORDER BY prodsubcat.id;")
        if not rssub.EOF then
        do until rssub.EOF
     
          do until taeller2=10
          taeller2=taeller2+1
          %>group[<%Response.Write taeller%>][<%Response.Write taeller2%>]=new Option("<%=rssub("subcat")%>")<%
          loop
     
        rssub.movenext ' GÅR TIL NÆSTE EMNE I DB
        loop
        end if
      rssub.close
      set rssub=nothing
     
    rsMainMenu2.movenext ' GÅR TIL NÆSTE EMNE I DB
    loop
    end if
  rsMainMenu2.close
  set rsMainMenu2=nothing
 
  %>

Er det forkert??

<%' OBJEKTET SOM MANGLER ER BLOT:
    set mainmenu2Conn = Server.CreateObject("ADODB.Connection")
    mainmenu2Conn.Open Application("ConnectString")
    Set rsmainmenu2 = Server.CreateObject("ADODB.Recordset")

'HAR ÆNDRET LIDT I KODE-EKSEMPLET:

  taeller=0
  Set rsMainMenu2 = mainmenu2Conn.Execute("SELECT * FROM prodmainnav ORDER BY prodmainnav.id;")
    if not rsMainMenu2.EOF then
    do until rsMainMenu2.EOF
      taeller=taeller+1
     
        taeller2=0
        Set rssub = subConn.Execute("SELECT * FROM prodsubcat ORDER BY prodsubcat.id;")
        if not rssub.EOF then
        do until rssub.EOF
          taeller2=taeller2+1
          %>group[<%Response.Write taeller%>][<%Response.Write taeller2%>]=new Option("<%=rssub("subcat")%>")<%
     
        rssub.movenext ' GÅR TIL NÆSTE EMNE I rssub
        loop
        end if
      rssub.close
      set rssub=nothing
     
    rsMainMenu2.movenext ' GÅR TIL NÆSTE EMNE I rsMainMenu
    loop
    end if
  rsMainMenu2.close
  set rsMainMenu2=nothing
 
  %>

prøv med dette :)

Nu begynder det at ligne noget, men den smider det samme ud i alle 4 grupper..

group[1][1]=new Option("frederik")
group[1][2]=new Option("Stig")
group[1][3]=new Option("test")
group[1][4]=new Option("test")
group[1][5]=new Option("test")

group[2][1]=new Option("frederik")
group[2][2]=new Option("Stig")
group[2][3]=new Option("test")
group[2][4]=new Option("test")
group[2][5]=new Option("test")

group[3][1]=new Option("frederik")
group[3][2]=new Option("Stig")
group[3][3]=new Option("test")
group[3][4]=new Option("test")
group[3][5]=new Option("test")

group[4][1]=new Option("frederik")
group[4][2]=new Option("Stig")
group[4][3]=new Option("test")
group[4][4]=new Option("test")
group[4][5]=new Option("test")



Bare for at vi er enige ser koden nu sådan her ud:


<%
    set mainmenu2Conn = Server.CreateObject("ADODB.Connection")
    mainmenu2Conn.Open Application("ConnectString")
    Set rsmainmenu2 = Server.CreateObject("ADODB.Recordset")

  taeller=0
  Set rsMainMenu2 = mainmenu2Conn.Execute("SELECT * FROM prodmainnav ORDER BY prodmainnav.id;")
    if not rsMainMenu2.EOF then
    do until rsMainMenu2.EOF
      taeller=taeller+1
     
      set subConn = Server.CreateObject("ADODB.Connection")
      subConn.Open Application("ConnectString")
      Set rssub = Server.CreateObject("ADODB.Recordset")
     
        taeller2=0
        Set rssub = subConn.Execute("SELECT * FROM prodsubcat ORDER BY prodsubcat.id;")
        if not rssub.EOF then
        do until rssub.EOF
          taeller2=taeller2+1
          %>group[<%Response.Write taeller%>][<%Response.Write taeller2%>]=new Option("<%=rssub("subcat")%>")<%
     
        rssub.movenext ' GÅR TIL NÆSTE EMNE I rssub
        loop
        end if
      rssub.close
      set rssub=nothing
     
    rsMainMenu2.movenext ' GÅR TIL NÆSTE EMNE I rsMainMenu
    loop
    end if
  rsMainMenu2.close
  set rsMainMenu2=nothing
 
  %>

Prøv at kontrollere om den henter fra det rigtige sted i databasen.:
new Option("<%=rssub("subcat")%>")
              ---------------

Det ser ud til at den ikke adskiller dem! DB ser sådan her ud

      ID  MAINCATID  SUBCAT

    1    1    frederik
    2    1    Stig
    4    4    test
    5    6    test
    6    7    test

Det er den rigtige DB, men det er som om løkken ikke bliver kørt for Submenuen!

vil du have at den kun udskriver det en gang, eller hver gang ?

Sådan som DB ser ud nu skal den se sådan her ud:


group[1][1]=new Option("frederik")
group[1][2]=new Option("Stig")

group[2][1]=new Option("test")

group[3][1]=new Option("test")

group[4][1]=new Option("test")


:-)

hvad siger du til dette :=)

<%
'ÅBNE DATABASEN
  Set MainMenu2Conn = Server.CreateObject("ADODB.Connection")
  MainMenu2Conn.Open Application("ConnectString")

'IKKE HENTE FRA TABELLEN: prodmainnav..???
'' taeller=0
'' Set rsMainMenu2 = mainmenu2Conn.Execute("SELECT * FROM prodmainnav ORDER BY prodmainnav.id;")
''  if not rsMainMenu2.EOF then
''  do until rsMainMenu2.EOF
''    taeller=taeller+1
''    rsMainMenu2.movenext ' GÅR TIL NÆSTE EMNE I rsMainMenu
''  loop
''  end if
'' rsMainMenu2.close
'' set rsMainMenu2=nothing

'MEN DERIMOD KUN HENTE FRA TABELLEN: prodsubcat..???
    taeller2=0
    Set rssub=subConn.Execute("SELECT * FROM prodsubcat ORDER BY prodsubcat.id;")
    if not rssub.EOF then
    do until rssub.EOF
      taeller2=taeller2+1
      %>group[<%=taeller2%>][<%=rssub("maincatid")%>]=new Option("<%=rssub("subcat")%>")<%
    rssub.movenext 'NÆSTE EMNE I rssub
    loop
    end if
    rssub.close
    set rssub=nothing
 
'LUKKE DATABASEN
  MainMenu2Conn.Close
  Set MainMenu2Conn=nothing
%>

Det vil sige at en sub menu kun skal skrives én gang :-)

ja altså kun åbne for de nødvendige tabeller ;)
virker den nu ?

Nope!! Nu smider den dette ud:

group[1][1]=new Option("frederik")
group[2][1]=new Option("Stig")
group[3][4]=new Option("test")
group[4][6]=new Option("test")
group[5][7]=new Option("test")

Den skulle have været

group[1][1]=new Option("frederik")
group[1][2]=new Option("Stig")

group[2][1]=new Option("test")

group[3][1]=new Option("test")

group[4][1]=new Option("test")

hmm.. jeg er ikke helt med på formålet. det er lidt svært uden det komplette script synes jeg :)

men skal den ikke hente noget fra "prodmainnav"

Oki, den kommer her

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
    <title>Untitled</title>
   
    <link rel="STYLESHEET" type="text/css" href="../../../frame/holmbergcss.css">
   
</head>

<body>


<p align="right">
<font size="5" face="Verdana"><b><i>Opret Produkt.. &nbsp;</i></b></font>
</p>

<center>

<table width="390" cellspacing="1" cellpadding="1" border="0">
<tr>
    <td align="left" valign="top"><font size="1" face="Verdana">Nedenfor har du mulighed for at oprette et produkt til shoppen!</font>
                                                                </td>
</tr>
</table>

<br>
<br>

<center>

<form name="doublecombo">

<table width="300" cellspacing="1" cellpadding="4" border="1" bordercolor="336699" bgcolor="#E9E9E9">
<tr>
    <td width="300">
           
        <table width="300" cellspacing="1" cellpadding="4">
        <tr>
            <td width="80"><font size="1">Kategori</font></td>
            <td width="220"><select name="example" size="1" onChange="redirect(this.options.selectedIndex)" class="inputbox" style="width: 95%">
                                <%   
                                    '####### Mainmenu ############
                                    '## Create db objects and SQL   
                                    set mainmenuConn = Server.CreateObject("ADODB.Connection")
                                    mainmenuConn.Open Application("ConnectString")
                                    Set rsmainmenu = Server.CreateObject("ADODB.Recordset")
                               
                                    mainmenuSql = "SELECT * FROM prodmainnav ORDER BY prodmainnav.id;"
                               
                                    Set rsmainmenu = mainmenuConn.Execute(mainmenuSql)
                               
                                    While (not rsmainmenu.EOF)
                                %>
                                <option><%=rsmainmenu("cat")%></option>
                                <% 
                                    rsmainmenu.movenext
                                    wend
                                %>
                            </select></td>
        </tr>
        <tr>
            <td width="80"><font size="1">Under kategori</font></td>
            <td width="220"><select name="stage2" size="1" class="inputbox" style="width: 95%">
                                <option value="">Vælg..</option>
                            </select></td>
        </tr>       
        </table>

    </td>
</tr>
</table>


</center>


<script>
<!--

var groups=document.doublecombo.example.options.length
var group=new Array(groups)
for (i=0; i<groups; i++)
group[i]=new Array()


<%
'ÅBNE DATABASEN
  Set MainMenu2Conn = Server.CreateObject("ADODB.Connection")
  MainMenu2Conn.Open Application("ConnectString")

'IKKE HENTE FRA TABELLEN: prodmainnav..???
'' taeller=0
'' Set rsMainMenu2 = mainmenu2Conn.Execute("SELECT * FROM prodmainnav ORDER BY prodmainnav.id;")
''  if not rsMainMenu2.EOF then
''  do until rsMainMenu2.EOF
''    taeller=taeller+1
''    rsMainMenu2.movenext ' GÅR TIL NÆSTE EMNE I rsMainMenu
''  loop
''  end if
'' rsMainMenu2.close
'' set rsMainMenu2=nothing

'MEN DERIMOD KUN HENTE FRA TABELLEN: prodsubcat..???
    taeller2=0
      Set subConn = Server.CreateObject("ADODB.Connection")
        subConn.Open Application("ConnectString")
    Set rssub=subConn.Execute("SELECT * FROM prodsubcat ORDER BY prodsubcat.id;")
    if not rssub.EOF then
    do until rssub.EOF
      taeller2=taeller2+1
      %>group[<%=taeller2%>][<%=rssub("maincatid")%>]=new Option("<%=rssub("subcat")%>")<%
    rssub.movenext 'NÆSTE EMNE I rssub
    loop
    end if
    rssub.close
    set rssub=nothing
 
'LUKKE DATABASEN
  MainMenu2Conn.Close
  Set MainMenu2Conn=nothing
%> 
 

var temp=document.doublecombo.stage2

function redirect(x){
for (m=temp.options.length-1;m>0;m--)
temp.options[m]=null
for (i=0;i<group[x].length;i++){
temp.options[i]=new Option(group[x][i].text,group[x][i].value)
}
temp.options[0].selected=true
}

function go(){
location=temp.options[temp.selectedIndex].value
}
//-->
</script>

</form>


</body>
</html>

Hej NetJay

Jeg bliver desværer nød til at komme i seng nu, jeg skal meget tidlig op imorgen, men jeg håber vi kan kigge videre på det imorgen måske, du skal ihvertfald have mange tak for din store indsats iaften, og du har bestemt fortjent dine point, jeg glæder mig til at vi finder en løsning (altså dig *S :-))

På gen skriv i morgen
/stig :-)

ok. prøv at pakke det hele ned incl. databaser og en nøjagtig beskrivelse af hvad den skal gøre, og så sende det til mig på mail: netjay@get2net.dk

natter :)
//mbsnet.dk

hej. jeg har mailet tilbage, men skriver også lige her igen...
Jeg har lavet et lille eksempel på en Drop-Down boks med indhold fra en database:
http://mbsnet.dk/?loc=articles&show=32

Hej NetJay

Jeg kan ikke se at den gør det som den skal! Jeg bruger 2 tabeller en med hoved kategori:

                    ID                    CAT

                      1                    Subcat2
                      4                    Sub test1
                      6                    Stig
                      7                    Frederik

Og en med under kategori:

                      ID            MAINCAT            SUBCAT

                      1                    1                    frederik
                      2                    1                    Stig
                      4                    4                    test
                      5                    6                    test
                      6                    7                    test

Det skal være sådan at hvis man vælger STIG fra hoved kategori drop down boksen vil den anden drop down box som indeholder underkategorien skifte om så man kan se ”test” som ligger som under kategori til kategorien STIG!
Håber ovenstående forklarer mit formål lidt bedre :-)

/Stig :-)

YESSS! Jeg har selv løst mit problem *SS Det kom til at se sådan her ud...

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
    <title>Untitled</title>

<style>
    #sub1, #sub2, #sub3
    { position: absolute;
      left: 480px;
      visibility: hidden;
      z-index: 3
    }
</style>

<SCRIPT LANGUAGE="JavaScript">

<!-- Begin
catnumber = 3
offset = 150
performOnchange = false
if (document.all) {
  docObj = "document.all."
  styleObj = ".style"
  } else {
  docObj = "document."
  styleObj = ""
}
function openselect(subcat) {
  popupselect = eval(docObj + subcat + styleObj)
  popupselect.visibility = "visible"
}
function closeselect(submenu,subcat){
  popupselect = eval(docObj + subcat + styleObj)
  if (submenu.selectedIndex != 0) {
    popupselect.visibility = "hidden"
    numchoice = submenu.selectedIndex
    choice = submenu[numchoice].value
    subcategory.value = choice
    submenu.selectedIndex = 0
  }
}
function lock() {
  performOnchange = false
}
function unlock() {
  performOnchange = true
}
function selectSub(cat) {
  for (i=1; i <= catnumber; i++) {
    subcat = "sub" + i
    popupselect = eval(docObj + subcat + styleObj)
    popupselect.visibility = "hidden"
  }
  if (performOnchange == true) {
    letsopen = "sub" + cat.selectedIndex
    if (letsopen == "sub0") {
      alert("No category selected")
      choice = "- subcategory -"
      subcategory.value = choice
      cat.focus()
      } else {
      openselect(letsopen)
      lock()
    }
  }
}
//  End -->
</script>



</head>

<body>

<div align="center">

<select name="categoria" onmouseover="unlock()" onchange="selectSub(this)">
    <option selected value="">Vælg..</option>
<%   
    '####### Mainmenu ############
    '## Create db objects and SQL   
    set mainmenuConn = Server.CreateObject("ADODB.Connection")
    mainmenuConn.Open Application("ConnectString")
    Set rsmainmenu = Server.CreateObject("ADODB.Recordset")

    mainmenuSql = "SELECT * FROM prodmainnav ORDER BY prodmainnav.id;"

    Set rsmainmenu = mainmenuConn.Execute(mainmenuSql)

    While (not rsmainmenu.EOF)
%>
    <option value="<%=rsmainmenu("id")%>"><%=rsmainmenu("cat")%></option>
<% 
    rsmainmenu.movenext
    wend
%>   
  </select><br>

 
 
<%   
    taeller=0
   
    '####### Mainmenu2 ############
    '## Create db objects and SQL   
    set mainmenu2Conn = Server.CreateObject("ADODB.Connection")
    mainmenu2Conn.Open Application("ConnectString")
    Set rsmainmenu2 = Server.CreateObject("ADODB.Recordset")

    mainmenu2Sql = "SELECT * FROM prodmainnav ORDER BY prodmainnav.id;"

    Set rsmainmenu2 = mainmenu2Conn.Execute(mainmenu2Sql)

    While (not rsmainmenu2.EOF)
   
    taeller=taeller+1
%>
<span id="sub<%=taeller%>">
  <select name="sub<%=rsmainmenu2("cat")%>" onchange="closeselect(this,'sub<%=taeller%>')">
    <option selected value="">Vælg..</option>
<%   
    '####### sub ############
    '## Create db objects and SQL   
    set subConn = Server.CreateObject("ADODB.Connection")
    subConn.Open Application("ConnectString")
    Set rssub = Server.CreateObject("ADODB.Recordset")

    subSql = "SELECT * FROM prodsubcat WHERE prodsubcat.maincatid = " & rsmainmenu2("id") & " ORDER BY prodsubcat.id;"

    Set rssub = subConn.Execute(subSql)

    While (not rssub.EOF)
%>
    <option value="<%=rssub("subcat")%>"><%=rssub("subcat")%></option>
<% 
    rssub.movenext
    wend
%>
  </select>
</span>
<% 
    rsmainmenu2.movenext
    wend
%>
<br>
<br>
<br>
<input type="text" name="subcategory" readonly="readonly" value="- subcategory -">
</div>


</body>
</html>

Men derfor skal du have dine point alligevel ;-) TUSIND tak for din store hjælp *S