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