|
[Home]
e-mail
|
European
Division
of
 |
c
k
| |
<%
Dim language
language = Request ("lang")
%>
<%
IF language= 1 then
descrizione="ita_nome"
end if
IF language=2 then
descrizione="eng_nome"
end if
IF language=3 then
descrizione="fra_nome"
end if
IF language=4 then
descrizione="ger_nome"
end if
IF language=5 then
descrizione="spa_nome"
end if
%>
<%
Dim Conn
Set Conn = Server.CreateObject ("ADODB.Connection")%>
<% Dim sql
sql="SELECT * FROM settori "
Dim rs
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql, Conn
%>
|
