<% Set rsORP1205= Server.CreateObject("ADODB.RecordSet")
rsORP1205.Open "SELECT COUNT (*) AS t_count FROM tblPlayer, tblPlanet, tblAlliance WHERE tblAlliance.Name = '" & srcName & "' AND tblPlayer.AllianceID=tblAlliance.ID;", Conn, 1, 1
t_count = rsORP1205("t_count")
rsORP1205.Close
if t_count = 0 then
Response.Write("
Non è presente alcun dato per questo alleanza. Assicurati di aver scritto il nome correttamente.</p>")
else
rsORP1205.Open "SELECT COUNT (*) AS t_count FROM tblPlayer, tblPlanet, tblAlliance WHERE tblAlliance.Name = '" & srcName & "' AND tblAlliance.ID=tblPlayer.AllianceID;", Conn, 1, 1
%>
<table>
<tr style="font-weight:bold;">
<td>ID Pianeta</td><td>ID Galassia</td><td>SolarSYS ID<td>Luna</td><td>Nome Pianeta</td>
<td>Ultima scansione</td></tr>
<%
For iORP = 1 To t_count step 1
if not rsORP1205.EOF then
%>
<tr>
<td><%=rsORP1205("GalaxyID")%></td>
<td><%=rsORP1205("SolarSystemID")%>
<td><%if rsORP1205("isMoon") = 0 then Response.Write("NO") else Response.Write("SI")%></td>
<td><%=rsORP1205("PlanetName")%></td>
<td><%=rsORP1205("LastScanned")%></td>
</tr>
<%
rsORP1205.MoveNext
Else
Exit For
Response.Write("</table>")
End If
Next
End If
Set rsORP1205 = Nothing
%>