|
|
| Avvisi
di Gara
--------------------------------------------------------------------------
<% if StartConnection () then
Set rs = Server.CreateObject("ADODB.Recordset")
Set cmd = Server.CreateObject("ADODB.Command")
cmd.CommandText="ShowBandi"
cmd.CommandType=adCmdStoredProc
Set cmd.ActiveConnection=MyConn
set rs=cmd.Execute
If rs.eof then
Response.Write ("
Non esistono Avvisi di Gara 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
%>
|
|
|
|
|
