<% Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open Application("connectionString") Dim objRs Set objRs = Server.CreateObject("ADODB.RecordSet") %> Dettaglio Last minute <% Dim sqlGetLastMinute sqlGetLastMinute = "SELECT * FROM last_minutes WHERE id_last_minute = " & Request("id") objRs.Open sqlGetLastMinute, objConn %>
<%= objRs("title_" & Request("lang"))%>
 
<%= objRs("description_" & Request("lang"))%>
 
<%= objRs("info_" & Request("lang"))%>
 
<%= objRs("other_" & Request("lang"))%>
<% objRs.Close Set objRs = Nothing objConn.Close Set objConn = Nothing %>