Lav en løkke der løber alle dine forhandlere igennem og spørger hver enkel forhandler om denne har en kunde, hvis svaret er nej, skal den have en kunde. Hvis alle svarer ja, begynder du med forhandler 1's forhandlere/kunder og stiller denne det samme spørgsmål, denne rekursion fortsætter så indtil der er en der svarer nej.
(¯`·._.·[Brian Hvarregaard]·._.·´¯)
Problemet er at jeg ikke lige ved hvordan jeg skal gribe det an.... jeg har forsøgt forskellige modeller !
Mine koder ser således ud !
<%
if request.servervariables("CONTENT_LENGTH") <> 0 then 'spørger om der bliver data tilsendt
id = Request.Form("id")
'laver recordsættet til db
set opdatering = server.createobject("ADODB.recordset")
query ="select * from enroll"
opdatering.open query, connect, adopenstatic, adlockoptimistic
'opretter ny linie i db og indskriver tilsendt data
opdatering.addnew
opdatering("dato") = time
opdatering("navn") = trim(request.form("navn"))
opdatering("nick") = trim(request.form("nick"))
opdatering("email") = trim(request.form("email"))
opdatering("land") = trim(request.form("land"))
opdatering("order") = trim(request.form("order"))
opdatering("forhandler") = trim(request.form("forhandler"))
opdatering.update
opdatering.close
%>
<%
else 'hvis der ikke bliver tilsendt data
id = Request.QueryString("id")
%>
<table width="300" cellpadding="2" cellspacing="0" border="0" align="center">
<form action="default.asp?id1=4" method="post">
<%
Set QueryNavn = (Connect.Execute("Select "& varsql &" from formular"))
%>
<tr>
<td width="100">Standard <input name="order" type="checkbox" value="standard"></td>
<td width="100">Advantage <input name="order" type="checkbox" value="advantage"></td>
<td width="100">Prestige <input name="order" type="checkbox" value="prestige"></td>
</tr>
<tr>
<td><%=QueryNavn("navn"& sprog2 &"")%> :</td>
<td align="right" colspan="2"><input name="navn" type="text" size="40" class="mem"></td>
</tr>
<tr>
<td><%=QueryNavn("nick"& sprog2 &"")%> :</td>
<td align="right" colspan="2"><input name="nick" type="text" size="40" class="mem"></td>
</tr>
<tr>
<td><%=QueryNavn("email"& sprog2 &"")%> :</td>
<td align="right" colspan="2"><input name="email" type="text" size="40" class="mem"></td>
</tr>
<tr>
<td><%=QueryNavn("land"& sprog2 &"")%> :</td>
<td align="right" colspan="2"><input name="land" type="text" size="40" class="mem"></td>
</tr>
<%
Set QueryForhandler = (Connect.Execute("Select Top 1 * from forhandler"))
%>
<tr>
<td>Id <%=QueryForhandler("forId")%></td>
<td align="right" colspan="2"><input name="forhandler" type="hidden" value="<%=QueryForhandler("id")%>"></td>
</tr>
<tr>
<td> </td>
<td align="right" colspan="2"><input type="reset" value="Reset" class="knap"> <input type="submit" value="Send" class="knap"></td>
</tr>
</form>
</table>
<% end if%>