<% SQL = "SELECT id, teamleader, name, website, members, description, seekmembers, logo FROM teams WHERE id = " & RS("team")
set RSteam = conn.execute(SQL)
desc = RSteam("description")
if RS("id") = RSteam("teamleader") then
teamleader = RSteam("teamleader")
teamname = RSteam("name")
website = RSteam("website")
dim members
members = RSteam("members")
if desc <> "" then
desc = replace(desc,"''","'")
desc = replace(desc,"<br>",vbcrlf)
end if
SQL = "SELECT id, nick FROM members WHERE team = " & RSteam("id")
set RSmembers = conn.execute(SQL)
If Not RSMembers.EOF Then
%>
<tr>
<td colspan="3" height='15'></td>
</tr>
<tr>
<td colspan="3"><strong>Hold-oplysninger</strong></td>
</tr>
<tr>
<td colspan="3" height='1' background='gfx/gif/dot.gif'></td>
</tr>
<tr>
<td colspan="3" height='10'></td>
</tr>
<tr>
<td colspan="2">Team Leader: *</td>
<td><input type='hidden' value='update' name='updateteam'> <select name="teamleader" class='textfield' id="teamleader">
<% do while not RSmembers.EOF %>
<option value='<%= RSmembers("id") %>' <% if RSmembers("id") = teamleader then response.write("selected") %>><%= RSmembers("nick") %></option>
<% RSmembers.movenext
loop %>
</select></td>
</tr>
<tr>
<td colspan="2">Antal medlemmer: *</td>
<td><input name="members" type="text" class='textfield' id="members" value='<% response.write(members) %>' size='5'></td>
</tr>
<tr>
<td colspan="2">Søger medlemmer: *</td>
<td><select name="seekmembers" class='textfield' id="seekmembers">
<option value='true' <% if RSteam("seekmembers") = true then response.write("selected")%>>Ja</option>
<option value='false' <% if RSteam("seekmembers") = false then response.write("selected")%>>Nej</option>
</select></td>
</tr>
<tr>
<td>Website:</td>
<td>
http://</td> <td><input name="website" type="text" class='textfield' id="website" value='<%= website %>' size='30'></td>
</tr>
<tr>
<td colspan="2" valign="top">Beskrivelse: *</td>
<td><textarea name="description" cols="58" rows="10" class="textfield" id="description"><%= desc %></textarea></td>
</tr>
<tr>
<td colspan="2">Logo: *</td>
<td><select name="logo" id="logo">
<option value='true' <% if RSteam("logo") = true then response.write(" selected")%>>Ja</option>
<option value='false' <% if RSteam("logo") = false then response.write(" selected") %>>Nej</option>
</select> <a href="?page=2&mode=copyright">Se hvordan</a></td>
</tr>
<tr>
<td colspan="2"> </td>
<td align="right"><br> <br> <input type="submit" name="Submit2" value="Gem oplysninger" class='formbutton'>
</td>
</tr>
<% end if %>
</table>
</form>
<%
End If
end if
end sub
%>
//>Rune