| Main Sponsors |
|
|
| Official Sponsors |
<%
Set rsOfficial = Server.CreateObject("ADODB.RecordSet")
rsOfficial.ActiveConnection = "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=root; pwd=inf75k15; database=memorial07; option=3; port=3306;"
rsOfficial.Source = "Select * from t_sponsor WHERE type = 'official' order by ID"
rsOfficial.Open()
i = 0
while not rsOfficial.EOF
%>
<%
if rsOfficial("link") <> "" then
%>
" target="_blank">
<%
end if
%>
 " alt="<% = rsOfficial("nome") %>" /> |
<%
i = i + 1
if i = 5 then
response.write(" ")
i = 0
end if
rsOfficial.movenext()
wend
rsOfficial.Close()
set rsOfficial = nothing
%>
|
| Partners |
<%
Set rsPartners = Server.CreateObject("ADODB.RecordSet")
rsPartners.ActiveConnection = "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=root; pwd=inf75k15; database=memorial07; option=3; port=3306;"
rsPartners.Source = "Select * from t_sponsor where type = 'partner' order by ID"
rsPartners.Open()
i = 0
while not rsPartners.EOF
%>
<%
if rsPartners("link") <> "" then
%>
" target="_blank">
<%
end if
%>
 " alt="<% = rsPartners("nome") %>" /> |
<%
i = i + 1
if i = 5 then
response.write(" ")
i = 0
end if
rsPartners.movenext()
wend
rsPartners.Close()
set rsPartners = nothing
%>
|
| Fornitori Ufficiali |
<%
Set rsFornitori = Server.CreateObject("ADODB.RecordSet")
rsFornitori.ActiveConnection = "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=root; pwd=inf75k15; database=memorial07; option=3; port=3306;"
rsFornitori.Source = "Select * from t_sponsor where type = 'fornitore' order by ID"
rsFornitori.Open()
i = 0
while not rsFornitori.EOF
%>
<%
if rsFornitori("link") <> "" then
%>
" target="_blank">
<%
end if
%>
 " alt="<% = rsFornitori("nome") %>" /> |
<%
i = i + 1
if i = 5 then
response.write(" ")
i = 0
end if
rsFornitori.movenext()
wend
rsFornitori.Close()
set rsFornitori = nothing
%>
|
| Con il patrocinio di |
<%
Set rsPatroc = Server.CreateObject("ADODB.RecordSet")
rsPatroc.ActiveConnection = "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=root; pwd=inf75k15; database=memorial07; option=3; port=3306;"
rsPatroc.Source = "Select * from t_sponsor where type = 'patrocinio' order by ID"
rsPatroc.Open()
i = 0
while not rsPatroc.EOF
%>
<%
if rsPatroc("link") <> "" then
%>
" target="_blank">
<%
end if
%>
 " alt="<% = rsPatroc("nome") %>" /> |
<%
i = i + 1
if i = 5 then
response.write(" ")
i = 0
end if
rsPatroc.movenext()
wend
rsPatroc.Close()
set rsPatroc = nothing
%>
|
|
|
