| Gare
Aggiudicate
--------------------------------------------------------------------------
<% if StartConnection () then
Set rs = Server.CreateObject("ADODB.Recordset")
Set cmd = Server.CreateObject("ADODB.Command")
cmd.CommandText="ShowAppalti"
cmd.CommandType=adCmdStoredProc
Set cmd.ActiveConnection=MyConn
set rs=cmd.Execute
If rs.eof then
Response.Write ("
Non esistono Gare Aggiudicate in archivio.")
else
while not rs.EOF
%>
--------------------------------------------------------------------------
<% rs.movenext
wend
end if
rs.close
set rs=nothing
set cmd=nothing
StopConnection
Else
Response.Write("
")
end if
%>
|
