| Delibere
di Consiglio
--------------------------------------------------------------------------
<% if StartConnection () then
id = 4
Set rs3 = Server.CreateObject("ADODB.Recordset")
Set cmd = Server.CreateObject("ADODB.Command")
cmd.CommandText="ShowAtti"
cmd.CommandType=adCmdStoredProc
Set pId=Server.CreateObject("ADODB.Parameter")
Set pId=cmd.CreateParameter ("Id",adInteger,adParamInput)
cmd.Parameters.Append pId
pId.Value=Id
Set cmd.ActiveConnection=MyConn
set rs3=cmd.Execute
If rs3.eof then
if id=1 then Response.Write ("
Non esistono Ordinanze in archivio.")
if id=2 then Response.Write ("
Non esistono Decreti in archivio.")
if id=3 then Response.Write ("
Non esistono Delibere di Giunta in archivio.")
if id=4 then Response.Write ("
Non esistono Delibere del Consiglio in archivio.")
else
while not rs3.EOF %>
--------------------------------------------------------------------------
<% rs3.movenext
wend
end if
rs3.close
set rs3=nothing
set cmd=nothing
Function TipoAtti (x)
Select case x
Case "1"
TipoAtti="Ordinanze"
Case "2"
TipoAtti="Decreti"
Case "3"
TipoAtti="Delibere di Giunta"
Case "4"
TipoAtti="Delibere del Consiglio"
Case Else
TipoAtti="Sconosciuto"
end Select
end function
StopConnection
Else
Response.Write("
")
end if
%>
|
