If , Then, Else problem....

Hej folkens,

jeg er igang med at lave en member side til en Counter-Strike klan og da klanen består af 3 hold, skal disse deles op under member siden og det ville jeg gøre med en If Then Else, men den virker sq ikke helt og så er det jo i kommer ind i billedet :)

Min ide ser sådan ud :

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("members.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * From members Order by ID"

' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

%>
<table width="450" border="0" cellpadding="2" cellspacing="0" align="center">
  <tr>
    <td width="113">
      <div align="center"><font face="Tahoma" size="2" color="#0099CC"><b>Nickname</b></font></div>
    </td>
    <td width="113">
      <div align="center"><font face="Tahoma" size="2" color="#0099CC"><b>Function</b></font></div>
    </td>
    <td width="50">
      <div align="center"><font face="Tahoma" size="2" color="#0099CC"><b>Active</b></font></div>
    </td>
    <td width="50">
      <div align="center"><font face="Tahoma" size="2" color="#0099CC"><b>Details</b></font></div>
    </td>
  </tr>
<%

' Gennemløb Recordset (rs) med en løkke
Do

%>
  <tr>
    <td width="113"> <font face="Tahoma" size="2">
<%
    If strSQL = "Select * From members = 1" Then
        Response.Write rs("nick")
    Else
        rs.MoveNext
    End If
%>
      </font></td>
    <td width="113">
      <div align="center"><font face="Tahoma" size="2">
        <%Response.Write rs("funktion")%>
        </font></div>
    </td>
    <td width="50">
      <div align="center"><font face="Tahoma" size="2" color="#006600">
        <%Response.Write rs("aktiv")%>
        </font></div>
    </td>
    <td width="50">
      <div align="center"><font face="Tahoma" size="2"><a href="memberpage.asp?id=<%= rs("id")%>"><img src="../images/details.jpg" width="17" height="17" border="0"></a></font></div>
    </td>

<%
    rs.MoveNext

    Loop While Not rs.EOF
%>
  </tr>
</table>

Men det virker som sagt ikke og det er der 110% sikkert en god grund til :D Så ik dril jeg er stadig ny idenfor faget ;)

På forhånd tak !