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