|
[Home]
e-mail
|
European
Division
of
 |
c
k
| |
<%
Dim language
Dim cod
language = Request ("lang")
codice = Request ("cod")
%>
<%
Dim Conn
Set Conn = Server.CreateObject ("ADODB.Connection")%>
<% Dim sql
sql="SELECT*FROM settori INNER JOIN (produttori INNER JOIN lookup ON produttori.cod_prod = lookup.cod_prod) ON settori.cod_sett = lookup.cod_sett WHERE (((lookup.cod_sett)='"&codice&"'));"
Dim rs
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql, Conn
%>
<%
IF language= 1 then
descrizione1="Visualizza Scheda"
descrizione2="Scarica Scheda"
link="ita_web"
print="ita_print"
title="Produttori"
end if
IF language=2 then
descrizione1="Display Sheet"
descrizione2="Download"
link="eng_web"
print="eng_print"
Title="Manufacturers"
end if
IF language=3 then
descrizione1="Display Sheet"
descrizione2="Download"
link="eng_web"
print="eng_print"
title="Producteurs"
end if
IF language=4 then
descrizione1="Display Sheet"
descrizione2="Download"
link="eng_web"
print="eng_print"
title="Produkte"
end if
IF language=5 then
descrizione1="Display Sheet"
descrizione2="Download"
link="eng_web"
print="eng_print"
title="Productos"
end if
%>
<%=rs(title)%>
|
