|
|
Eventi
e Attività
--------------------------------------------------------------------------
<% if StartConnection () then
Set rs = Server.CreateObject("ADODB.Recordset")
Set cmd = Server.CreateObject("ADODB.Command")
cmd.CommandText="ShowEventi"
cmd.CommandType=adCmdStoredProc
Set cmd.ActiveConnection=MyConn
set rs=cmd.Execute
If rs.eof then
Response.Write (" Non esistono Eventi e Attività in archivio")
else
while not rs.EOF
%>
--------------------------------------------------------------------------
|
|
|
|
|