<%
dim RS
dim OBJdbConnection
dim i
MySQL_STRING="Driver={MySQL ODBC 5.1 Driver};Server=robb0501.publiccloud.com.br;Port=3306;Database=OKEY_produtos;User=OKEY_usuario; Password=#okbd2017#;Option=3;"
set OBJdbConnection = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
OBJdbConnection.Open MySQL_STRING
rs.ActiveConnection = OBJdbConnection
SQL = "SELECT distinct TIPO FROM tabela_preco ORDER BY TIPO"
Set RS=OBJdbConnection.Execute(SQL)
vcontador = 1
vcolor = "#F4F4FF"
%>
<% do while not RS.eof %>
<% rs.movenext %>
<% if vcontador MOD 2 = 0 then %>
<% vcolor = "#F4F4FF" %>
<% else %>
<% vcolor = "#FFFFFF" %>
<% end if %>
<% vcontador = vcontador + 1 %>
<% loop %>
<% OBJdbConnection.close %>
