Salve
avevo inserito un file errato
quello giusto....e'
<% @Language=VBScript EnableSessionState=False %>
<% Option explicit %>
<% Response.Buffer = True %>
<html>
<head>
<title></title>
<!-- #include file="Alboingdb.asp" -->
<style type="text/css">
.auto-style4 {
border-color: #0099FF;
border-width: 3px;
width: 47px;
font-weight: bold;
background-color: #FFCC00;
}
.auto-style8 {
border-color: #0099FF;
border-width: 3px;
width: 82px;
font-weight: bold;
background-color: #21E400;
}
.auto-style11 {
border-color: #0099FF;
border-width: 3px;
width: 89px;
font-weight: bold;
background-color: #FFFF00;
}
.auto-style14 {
text-align: center;
}
.auto-style16 {
border-color: #0099FF;
border-width: 3px;
font-weight: bold;
}
.auto-style17 {
border-color: #0099FF;
border-width: 3px;
width: 192px;
font-weight: bold;
background-color: #FFCC00;
}
</style>
</head>
<body style="border-width:0px;" topmargin="0" leftmargin="0">
<%
Dim col
col = 0
Function bgcol()
col = col + 1
if col = 1 then
bgcol = "#fffaf0"
else
bgcol = "#D0D0f0"
col = 0
end if
End Function
%>
<table align="center" border="1" cellpadding="1" >
<tr>
<td align="center"class="auto-style16" colspan="8" >
</tr>
<tr>
<td align="center" class="auto-style8">ANNO</td>
<td align="center" class="auto-style8">FOTO</td>
<td align="center" class="auto-style4">GIOCATORE</td>
<td align="center" class="auto-style11">PROV</td>
</tr>
<%
rs.MoveFirst
While Not rs.EOF
Response.Write VbTab & "<tr>" & VbCrLf
Response.Write VbTab & VbTab & "<td>" & "<class=auto-style4>" & rs.Fields("ANNO") & "</td>" & VbCrLf
RResponse.Write "<td> <img src=""/FotoGiocatori/" & rs.Fields ("FOTO") & """ width=""40px"" height=""40px"" style=""border: 1px #000000 solid"" /></a></td>"
Response.Write VbTab & VbTab & "<td>" & rs.Fields("GIOCATORE") & "</td>" & VbCrLf
Response.Write VbTab & VbTab & "<td>" & rs.Fields ("PROV") & "</td>" & VbCrLf
Response.Write VbTab & "</tr>" & VbCrLf
rs.moveNext
Wend
closeConnection()
%>
</table>
</td>
</tr>
</table>
</body>
</html>
