sig i rullepanel
jeg vil gerne søge i et rullepanel, i mit system kan folk gemme deres numre, men det kan nok blive uoverskueligt, så nu vil jeg gerne at de kan taste et navn og at navnet i panelet bliver markeret.Jeg mener at dette er koden hvor rullepanelet er :
<center>
<table border=\"0\" width=\"90%\" bordercolor=\"#000000\">
<tr>
<td width=\"80%\" align=\"left\" valign=\"top\">
<font face=\"Arial\" size=\"2\">
Fra <%=RigtigNavn%>
</font>
<p>
<font face=\"Arial\" size=\"2\">
<%
Response.Write(\"<form method=\"\"POST\"\" action=\"\"send.asp\"\" id=form1 name=sms>\")
Response.Write(\"<p>\") & vbCrLf
Response.Write(\"Besked:<br>\") & vbCrLf
Response.Write(\"<textarea name=\'besked\' maxlenght=\'150\' cols=\'30\' wrap=\'virtual\' onkeyup=\"\"check_emne()\"\" onchange=\"\"check_emne()\"\" rows=\'6\'></textarea><br>\") & vbCrLf
Response.Write \"Tegn tilbage :<br><input name=\"\"tilbage\"\" size=\"\"3\"\" value=\"\"150\"\">\" & vbCrLf
Response.Write(\"<p>\") & vbCrLf
Response.Write(\"<input type=\'submit\' value=\'Send besked\' id=\'submit\'1 name=\'submit\'1>\") & vbCrLf
%>
</font>
</p>
<p><font face=\"Arial\" size=\"2\"><%=medd %>
</font>
</td>
<td width=\"20%\" height=\"40\">
</td>
<td width=\"20%\" height=\"40\">
<p align=\"center\">
<font face=\"Arial\" size=\"2\">
<%
Response.Write(\"<select size=\"\"5\"\" name=\"\"id\"\">\")
SQL = \"SELECT * FROM Book WHERE UserID=\" & session(\"UserID\") & \" ORDER BY Navn\"
set book = RS.Execute(SQL)
Response.Write(\"Send SMS besked:\") & vbCrLf
Response.Write(\"<p>\") & vbCrLf
Do while not book.EOF
Response.Write(\" <option value=\"\"\" & book(\"ID\") & \"\"\">\" & book(\"Navn\") & \"</option>\")
book.MoveNext
Loop
book.Close
set book = nothing
Response.Write(\"</select><br><br>\")
Response.Write(\"<input type=\'submit\' value=\'Slet nummer\' name=\'mode\'>\") & vbCrLf
Response.Write(\"</form>\") & vbCrLf
Response.Write(\"<form action=\'add.asp\' method=\'post\' id=form1 name=form1>\") & vbCrLf
%><br>
Tilføj Navn<br>
<%
Response.Write(\"<input type=\'text\' name=\'navn\' size=\'10\'>\") & vbCrLf
%>
<br>
Tilføj Nummer<br>
<%
Response.Write(\"<input type=\'text\' name=\'nr\' size=\'10\'><br><br>\")
Response.Write(\"<input type=\'submit\' value=\'Opret nummer\' id=\'submit\'1 name=\'submit\'1>\") & vbCrLf
Response.Write(\"</form>\") & vbCrLf
%>
</font>
</p>
</td>
</tr>
</table>
</center>
