<%@ Language=VBScript %> <% Response.Charset = "utf-8" Session.Codepage = 1252 if not IsNull(Request("idl")) and Request("idl") <> "" then Session("idl") = Request("idl") end if if IsNull(Session("idl")) or Session("idl") = "" or CInt(Session("idl")) < 1 then Session("idl") = "1" end if cliente = "il cliente" criticita = "le criticità" requisiti = "i requisiti" benefici = "i benefici" download = "Scarica il PDF" if Session("idl") = "2" then cliente = "the client" criticita = "critical conditions" requisiti = "the requirements" benefici = "the benefits" download = "download PDF" end if %> ebilling
<% Set cmdCase = Server.CreateObject("ADODB.Command") cmdCase.CommandType = 1 Set cmdCase.ActiveConnection = Session("CONNECTION") cmdCase.CommandText = "SELECT * FROM casehistory WHERE id_casehistory = " & Request("idc") Set rsCase = Server.CreateObject("ADODB.Recordset") rsCase.Open cmdCase, , 1, 3 if not(rsCase.BOF and rsCase.EOF) then %> <% if not IsNull(rsCase("esigenze")) and rsCase("esigenze") <> "" then %> <% end if %> <% if not IsNull(rsCase("requisiti")) and rsCase("requisiti") <> "" then %> <% end if %> <% if not IsNull(rsCase("benefici")) and rsCase("benefici") <> "" then %> <% end if %>

<%= cliente%>
<%=rsCase("cliente")%>

<%= criticita%>

<% if Session("idl") = "1" then%> <% end if%> <% if Session("idl") = "2" then%> <% end if%>
<%=rsCase("esigenze")%>

<%= requisiti%>
<%=rsCase("requisiti")%>

<%= benefici%>
<%=rsCase("benefici")%>
<% end if rsCase.Close %>