Returnering af anden tekst ved specielt startnummer

Jeg sidder med et lille asp problem, jeg har en fil som returnerer nogle data fra en tabel med nogle spillere tilmeldt til en given start. Nu har jeg så det problem at der er en af starterne der er blevet "cancelled" og jeg vil derfor gerne have min kode til at skrive dette når man vælger data for den start

Koden er nedenfor, det omhandler Start nr.7

Det skulle gerne stå der hvor der står "No entries in this squad yet" der må kunne laves en differenciering af startnumrene, alle de andre starter (1-14 pånær nr 7) skal bare skrive det der står.

På forhånd tak for hjælpen

------- (ved godt koden kunne være pænere) -------


<%
' Start fejl i tilfælde af forkert URL i browser, ved manglende argument: ?squadnumber=1 f.eks
if Request.Querystring = "" then
  Response.Write ("Missing argument: ?squadnumber=1 example")
else
' slut fejl

dim squadnumber
squadnumber = request.querystring("squadnumber")

strSQL = "Select * from websquads where squadnumber = '"&squadnumber&"'"
Set rs = Conn.Execute(strSQL)

if rs.eof = 0 then

  Response.Write "<h2>" & rs("h2") & "<br>"
  Response.Write "<div>" & rs("h3") & "<br>"

  Response.Write("<br><center><table border=1 cellpadding=3 cellspacing=0 style=border-collapse: collapse bordercolor=#111111")
  Response.Write("<tr><td><b><left>&nbspPr</b></td>")
  Response.Write("<td><b><left>&nbspName</b></td>")
  Response.Write("<td><b>&nbspClub</b></td><td><b>&nbspCountry</b></td>")
  Response.Write("<td><b><left>&nbspSex</b></td><td><b><left>&nbspOrder</b></td>")

Do

  Response.Write "<tr><td width=30><center>" &rs("Priority") & "</td>"
  Response.Write "<td width=225><left>&nbsp" &rs("Fullname") & "</td>"
  Response.Write "<td width=175>&nbsp" &rs("Club") & "&nbsp</td>"
  Response.Write "<td width=115>&nbsp" & rs("Country") & "</td>"
  Response.Write "<td width=60><left>&nbsp" &rs("sextxt") & "</td>"
  Response.Write "<td width=60><left>&nbsp" &rs("entrytxt")  & "</td>"

  rs.MoveNext
Loop While Not rs.EOF

  Response.Write "</table>"

else

  Response.Write ("<br><b><font size=5><p align=center>No entries in this squad yet</br></div>")

end if
end if

Conn.Close
Set Conn = Nothing

%>