<select name="lang">
          <%
While (NOT languages.EOF)
%>
          <option value="<%=(languages.Fields.Item("ID").Value)%>" <%If (Not isNull(view.Fields.Item("softlang").Value)) Then If (CStr(languages.Fields.Item("ID").Value) = CStr(view.Fields.Item("softlang").Value)) Then Response.Write("selected='selected'") : Response.Write("")%> ><%=(languages.Fields.Item("lang").Value)%></option>
          <%
  languages.MoveNext()
Wend
If (languages.CursorType > 0) Then
  languages.MoveFirst
Else
  languages.Requery
End If
%>
        </select>

$query = "SELECT `id`, `waarde` FROM `table1`";
$result = mysql_query($query);

echo '<select name="dropdown">'
while($row = mysql_fetch_assoc($result))
{
    if($row['waarde'] == $_POST['veld1'])
    {
        echo '<option value="'. $row['id'] .'" selected="selected">'. $row['waarde'] .'</option>';
    }
    else
    {
        echo '<option value="'. $row['id'] .'">'. $row['waarde'] .'</option>';
    }
}
echo '</select>';

<%
        If rs_subj.EOF then
            Response.Write "There are no subjects found in the database"
        else
            Response.Write "<select name='subject'>"
            'Response.Write "<option value=' '><Select a subject</option>"
        Do While NOT rs_subj.EOF
                
                subj = rs_issue.fields ("subj_name")
                
                Response.Write "<option  value='"& rs_subj.fields ("subj_name") &"'"
                if rs_subj.fields ("subj_name") = subj then 
                   Response.Write "selected" 
                end if  
                Response.Write ">"& rs_subj.fields ("subj_name") &"</option>"
        
        rs_subj.movenext
        loop
            Response.Write "</select>"
        end if
%>