Listbox loop
Hej,har ett litet problem med en Listbox som jag vill skall visa rätt värde!!Jag har gjort en relations databas med två tabeller.
Den ena heter \"Contacts\" och den andra heter \"Avd\"
Jag vill att när man har angett en post ifrån Tabellen
\"Contacts\" så skall rätt värde visas i Listboxen(selected),som hämtar sina värden ifrån tabellen \"Avd\"
jag har redan fixat en loop i listboxen som hämtar värderna ur tabellen \"Avd\" och ger dem värdet av respektive posts primärnyckel(Räknare).
Samma värde ligger också länkat i tabellen \"Contacts\"
för att på så sätt länka de två tabellerna.
jag bifogar koden nedan
-------------------------code-------------------------
<!--#include file=\"../EIncludes/connect.asp\"-->
<%
strID = request.Querystring(\"id\")
if strID = \"\" then
strID = \"\"
strNamn=\"\"
strPhone=\"\"
strMail=\"\"
else
set rstemp = server.CreateObject(\"ADODB.recordset\")
mySQL=\"select * from contacts Where ID=\" & strID
set rstemp=conntemp.execute(mySQL)
strID=rstemp(\"ID\")
strNamn=rstemp(\"Namn\")
strPhone=rstemp(\"Telefon\")
strMail=rstemp(\"Email\")
strCAvdID=rstemp(\"CAvdID\")
end if
%>
<%if strID = \"\" then
strHeader = \"Add\"
strFormAction=\"add\"
elseif NOT strID = \"\" then
strHeader=\"Edit\"
strFormAction=\"edit\"
end if %>
<table width=\"350\" border=\"1\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"#CCCCCC\" bordercolorlight=\"#000000\" bordercolordark=\"#FFFFFF\">
<tr>
<td>
<div align=\"center\" class=\"Rubrik\">:::<%=strHeader & \" \"%>Contacts:::</div>
</td>
<td width=\"40\">
<div align=\"center\" class=\"Text\">v 2.02</div>
</td>
</tr>
</table>
<table width=\"306\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td>
<table width=\"78%\" border=\"0\" class=\"Header\" cellspacing=\"0\" cellpadding=\"0\" align=\"right\">
<form method=\"post\" action=\"../EDistributors/sql.asp?action=<%=strFormAction%>\">
<tr valign=\"bottom\">
<td colspan=\"2\"> </td>
</tr>
<tr valign=\"bottom\">
<td colspan=\"2\">avd:
<%
mySQL2=\"\"
mySQL=\"SELECT * FROM Avd ORDER BY Avdelning\"
set rstemp=conntemp.execute(mySQL)
strName = rstemp(\"Avdelning\")
strID = rstemp(\"AvdID\")%>
<select name=\"Avd\" class=\"input\">
<%do until rstemp.eof%>
<option value=\"<%=strID%>\"><%=strName%></option>
<%rstemp.movenext
loop
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing
%>
</select></td>
</tr>
<tr>
<td colspan=\"2\"> </td>
</tr>
<tr bgcolor=\"#CCCCCC\">
<td width=\"130\" height=\"20\">
<div align=\"right\">Namn:</div>
</td>
<td height=\"20\">
<input type=\"text\" name=\"name\" size=\"20\" value=\"<%=strNamn%>\" class=\"INPUT\">
</td>
</tr>
<tr bgcolor=\"#CCCCCC\">
<td width=\"130\" height=\"10\">
<div align=\"right\">Telefon:</div>
</td>
<td height=\"10\">
<input type=\"text\" name=\"telefon\" size=\"20\" value=\"<%=strPhone%>\" class=\"INPUT\">
</td>
</tr>
<tr bgcolor=\"#CCCCCC\">
<td width=\"130\" height=\"10\">
<div align=\"right\">Email:</div>
</td>
<td height=\"10\">
<input type=\"text\" name=\"mail\" size=\"20\" value=\"<%=strMail%>\" class=\"INPUT\">
</td>
</tr>
<tr valign=\"bottom\">
<td colspan=\"2\" height=\"50\">
<div align=\"center\">
<input type=\"submit\" name=\"Submit\" value=\"Spara\" class=\"INPUT\">
<input type=\"reset\" name=\"Submit2\" value=\"Sudda\" class=\"INPUT\">
<input type=\"hidden\" name=\"id\" size=\"2\" value=\"<%=strID%>\">
</div>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</body>
</html>
