---

<%Set objRS = Conn.Execute("SELECT hl.lan, sl.id, sl.lanId, sl.Stad FROM fynd_lan hl, fynd_stad sl WHERE hl.id = sl.LanId ORDER BY hl.lan ASC, sl.stad ASC")
  If Not objRS.EOF Then
      '## -- get all links --
      arrLinks = objRS.GetRows()
  End If
objRS.Close:Set objRS = Nothing%>
<SCRIPT language="JavaScript">

function boxData(sText, vValue){
        this.text = sText;
        this.value = vValue;
}
<%
'## -- make arrlinks array to create javascript arrays to populate the second listbox --
If IsArray(arrLinks) Then
        i = 0
        For N = 0 TO UBound(arrLinks,2)
                strLan    = arrLinks(0,N)
                intStadId = arrLinks(1,N)
                intLanId  = arrLinks(2,N)
                strStad  = arrLinks(3,N)
               
                '## -- print out javascript code to create a new javascript array --
                If intLanId <> intLastLinkID Then
                        Response.Write vbcrlf & "var lan" & intLanId & " = new Array();" & vbcrlf
                        i = 0
                End If
               
                '## -- print out javascript code to add new values to the javascript array --
                '## -- boxData(listboxtext, listboxvalue.
                '## -- change the asp-variables to suit your needs in text and values --
                Response.Write "lan" & intLanId & "[" & i & "] = new boxData(""" & strStad & """," & intStadId & ");" & vbcrlf
               
                intLastLinkID = intLanId
                i = i + 1
        Next
End If
%>
function City(obj, icase, arr){
        // alert(icase);
        var vgr = eval (arr);
        if (vgr.length > 0){
                obj.length = (vgr.length + 1);
                obj.options[0].value = '';
                obj.options[0].text = '----- Välj stad -----';
                for(n=0;n<vgr.length;n++){
                        obj.options[n+1].value = vgr[n].value;
                        obj.options[n+1].text = vgr[n].text;
                }
        }else{
                obj.length = 1;
                for(n=0;n<obj.length;n++){
                        obj.options[n].value = 0;
                        obj.options[n].text = '----- Välj stad -----';
                }
        }
}

</SCRIPT>

      <%If IsArray(arrLinks) Then
        intLastLinkID = ""%>
        <SELECT name="county" onChange="City(document.reg.city,this.options.length,value);" style="width:250px">
          <OPTION value="0">---- Välj Län ----</OPTION>
          <%For N = 0 TO UBound(arrLinks,2)
            strLan  = arrLinks(0,N)
            intLanId = arrLinks(2,N)
            If intLanId <> intLastLinkID Then%>
              <OPTION value="lan<%=intLanId%>"><%=strLan%></OPTION>
            <%End If
            intLastLinkID = intLanId
          Next%>
        </SELECT>
      <%End If%>
<br />
      <b> Stad/Ort:</b><br>
      <%If IsArray(arrLinks) Then%>
        <select name="city" style="width:250px">
          <option value="">----- Välj stad -----</option>
        </select>
      <%End If%>

---

---

<div id="<? echo "".$info['id'] . ""; ?>rad" class="rad" style="background-color:<? echo $bgcolor; ?>;">

        <input type="hidden" name="program_id" value="<? echo $program_id; ?>">
        <input type="hidden" name="del" value="<? echo "".$info['del'] . ""; ?>">
        <input type="hidden" name="id" value="<? echo "".$info['id'] . ""; ?>">

        <div id="rad_nr">
                <input type="text" maxlength="2" id="<? echo "".$info['id'] . ""; ?>" class="rad_nr_input" name="nr" onkeyup="save_auto(this, this.id, this.name, this.value)" value="<? echo "".$info['nr'] . ""; ?>">
        </div>
        <div id="rad_type">
                <p id="rad_type_input"><? echo "".$info['type'] . "";?></p>
        </div>
        <div id="rad_name">
                <textarea rows="2" id="<? echo "".$info['id'] . ""; ?>" class="rad_name_input" onkeyup="save_auto(this, this.id, this.name, this.value)" name="titel"><? echo "".$info['titel'] . ""; ?></textarea>
        </div>
        <div id="rad_intro">
                <input type="text" maxlength="2" id="<? echo "".$info['id'] . ""; ?>" class="rad_intro_input" name="intro" onkeyup="save_auto(this, this.id, this.name, this.value)" value="<? echo "".$info['intro'] . ""; ?>">
        </div>
        <div id="rad_time">
                <input type="text" maxlength="5" id="<? echo "".$info['id'] . ""; ?>" class="rad_time_input" name="time" onkeyup="save_auto(this, this.id, this.name, this.value)" value="<? echo "".$info['time'] . ""; ?>">
        </div>
        <div id="rad_total">
                <div id="rad_total_input"><? echo $time; ?></div>
        </div>
        <div id="rad_note">
                <img class="rad_note_pic" id="<? echo "".$info['id'] . ""; ?>" src="<? echo $eye; ?>" onclick="open_note(this.id)">
        </div>

</div>

---

Bifogade miniatyrer

 

---

<html>
<head>
<title>Bilar</title>
</head>
<body bgcolor="#99ccff" text="#000000">

<form action="mailto:min_mail@mail.se?subject=här vill jag få in select-valet" method="post" enctype="text/plain">

<tr>
<td>Vilken bil:</td><br>
<td><select name="Bil"><br>
<option>Välj Bil
<option>BMW
<option>SAAB
<option>VOLVO
<option>SKODA
<option>ANNAN
<option>Vet ej
</select></td>

</tr>

<tr>
<td><br><p align="center"><input type="submit" value="Skicka"><input type="reset" value="Radera"></p></td>
</tr>
</table>

</form>
</body>
</html>

---

Bifogade miniatyrer

 

---

onclick="this.style.disply='none';"

---

---

<div class="dimmer" id="om_kakor" onclick="this.style.display='none';">
        <div class="dimmer_inner">
                Här kommer texten...
        </div>
</div>

---

---

Array
(
    [Kund1] => Array
        (
            [Löpande arbete] => 1.5
            [Resa, bil] => 0.5
            [Fakturering] => 1.5
        )

    [Kund2] => Array
        (
            [Ledig] => 1.25
            [Fakturering] => 0.75
        )

    [Kund3] => Array
        (
            [Resa, bil] => 0.90
            [Möte] => 4.00
            [Telefon] => 0.58
        )
)

---