<%
'id2=request.querystring("id")
Set conn = Server.CreateObject("ADODB.Connection")
'Set comm = Server.CreateObject("ADODB.Command")
Set Rs = Server.CreateObject("ADODB.Recordset")
'conn.CommandTimeout = 40
'conn.CursorLocation = 1
'conn.ConnectionString = dbConnessione
conn.Open dbConnessione
' comm.ActiveConnection = conn
' comm.CommandType = 1
SQL = "select * from Produttori order by ID_Produttori desc"
Rs.Open SQL, conn, 3, 3
'dim id, strDate, strTitolo, strPres, strCat, strVis, strLink
intCol=0
c=0
do while not rs.Eof
idProd=rs("ID_Produttori")
'strNome=rs("Nome")
'strCognome=rs("Cognome")
strRegione=rs("Regione")
strComm=rs("Commento")
'strAvatar=rs("Avatar")
strNickname=rs("Nickname")
strImg=rs("Avatar")
'intQuote=rs("Quote")
'strTesto=rs("corpo")
'varData = strData
'Response.Write(formatDateTime(varData, vbShortDate))
'Restituisce 02/11/2001
'Response.Write(formatDateTime(varData, vbLongDate))
'Restituisce venerd́ 2 novembre 2001
c=c+1
intCol = intCol + 1
If intCol mod 2 = 1 Then response.write " "
response.write ""
response.write " "
response.write " "
response.write " | "&IDprod&". "
response.write " "&strNickname&" - "&strRegione&". | "
response.write " "
response.write " "
response.write " "
response.write " "
response.write " ![](Immagini/"&strImg&") | "
response.write " "
response.write " "
response.write " | "&strComm&" | "
response.write " "
response.write " | "
response.write " "
response.write " "
response.write "  | "
response.write " "
response.write " "
response.write " | | "
response.write " "
response.write " "
response.write " | "
If intCol mod 2 = 0 Then Response.Write " "
rs.movenext
loop
rs.close
conn.close
set rs = nothing
set comm = nothing
set conn = nothing
%> |
|
<%
Set conn = Server.CreateObject("ADODB.Connection")
'Set comm = Server.CreateObject("ADODB.Command")
Set Rs = Server.CreateObject("ADODB.Recordset")
'conn.CommandTimeout = 40
'conn.CursorLocation = 1
'conn.ConnectionString = dbConnessione
conn.Open dbConnessione
'comm.ActiveConnection = conn
'comm.CommandType = 1
'idStud=request.QueryString("ID")
sql = "SELECT COUNT(*) AS TOT FROM Produttori"
rs.Open sql, conn ,3,3
TOT=rs("TOT")
set rs = nothing
set comm = nothing
set conn = nothing
Set conn = Server.CreateObject("ADODB.Connection")
'Set comm = Server.CreateObject("ADODB.Command")
Set Rs = Server.CreateObject("ADODB.Recordset")
'conn.CommandTimeout = 40
'conn.CursorLocation = 1
'conn.ConnectionString = dbConnessione
conn.Open dbConnessione
sql = "SELECT SUM(Quote) AS SOM FROM Produttori"
rs.Open sql, conn ,3,3
intQuote=rs("SOM")
quote1=Cint(intQuote)
intQuote2=quote1*500
set rs = nothing
set comm = nothing
set conn = nothing
%>
| In data:
|
|
<% response.Write date%>
|
| hanno
aderito |
+<%=TOT%> produttori su 100 |
| raccolti |
| €
<%=intQuote2%>/32500* |
| |
| la
raccolta scade fra |
| |
|
*Cifra
aggiornata in seguito a nuovi finanziamenti ottenuti,
vedi Piano Finanziario
|
|
