% 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" %>
> | height="2">" target="mainFrame"><%=LCASE(RS("tipo"))%> |