<%@LANGUAGE="VBSCRIPT"%> <% Dim social Dim social_cmd Dim social_numRows Set social_cmd = Server.CreateObject ("ADODB.Command") social_cmd.ActiveConnection = MM_cosmesul_STRING social_cmd.CommandText = "SELECT * FROM social" social_cmd.Prepared = true Set social = social_cmd.Execute social_numRows = 0 %> <% Dim NOMEIMP Dim NOMEIMP_cmd Dim NOMEIMP_numRows Set NOMEIMP_cmd = Server.CreateObject ("ADODB.Command") NOMEIMP_cmd.ActiveConnection = MM_cosmesul_STRING NOMEIMP_cmd.CommandText = "SELECT * FROM empresa" NOMEIMP_cmd.Prepared = true Set NOMEIMP = NOMEIMP_cmd.Execute NOMEIMP_numRows = 0 %> <% Dim botoes Dim botoes_cmd Dim botoes_numRows Set botoes_cmd = Server.CreateObject ("ADODB.Command") botoes_cmd.ActiveConnection = MM_cosmesul_STRING botoes_cmd.CommandText = "SELECT * FROM menu" botoes_cmd.Prepared = true Set botoes = botoes_cmd.Execute botoes_numRows = 0 %> <% Dim NOME Dim CLASSS Dim DESC Dim KW NOME = (NOMEIMP.Fields.Item("nomeloja").Value) CLASSS = (NOMEIMP.Fields.Item("classification").Value) DESC = (NOMEIMP.Fields.Item("description").Value) KW = (NOMEIMP.Fields.Item("keywords").Value) %> <% Dim banners__MMColParam banners__MMColParam = "banner1.jpg" If (Request("MM_EmptyValue") <> "") Then banners__MMColParam = Request("MM_EmptyValue") End If %> <% Dim banners Dim banners_cmd Dim banners_numRows Set banners_cmd = Server.CreateObject ("ADODB.Command") banners_cmd.ActiveConnection = MM_cosmesul_STRING banners_cmd.CommandText = "SELECT * FROM banners WHERE banner = ?" banners_cmd.Prepared = true banners_cmd.Parameters.Append banners_cmd.CreateParameter("param1", 200, 1, 255, banners__MMColParam) ' adVarChar Set banners = banners_cmd.Execute banners_numRows = 0 %> <% Dim banners2__MMColParam banners2__MMColParam = "banner2.jpg" If (Request("MM_EmptyValue") <> "") Then banners2__MMColParam = Request("MM_EmptyValue") End If %> <% Dim banners2 Dim banners2_cmd Dim banners2_numRows Set banners2_cmd = Server.CreateObject ("ADODB.Command") banners2_cmd.ActiveConnection = MM_cosmesul_STRING banners2_cmd.CommandText = "SELECT * FROM banners WHERE banner = ?" banners2_cmd.Prepared = true banners2_cmd.Parameters.Append banners2_cmd.CreateParameter("param1", 200, 1, 255, banners2__MMColParam) ' adVarChar Set banners2 = banners2_cmd.Execute banners2_numRows = 0 %> <% Dim banners3__MMColParam banners3__MMColParam = "banner3.jpg" If (Request("MM_EmptyValue") <> "") Then banners3__MMColParam = Request("MM_EmptyValue") End If %> <% Dim banners3 Dim banners3_cmd Dim banners3_numRows Set banners3_cmd = Server.CreateObject ("ADODB.Command") banners3_cmd.ActiveConnection = MM_cosmesul_STRING banners3_cmd.CommandText = "SELECT * FROM banners WHERE banner = ?" banners3_cmd.Prepared = true banners3_cmd.Parameters.Append banners3_cmd.CreateParameter("param1", 200, 1, 255, banners3__MMColParam) ' adVarChar Set banners3 = banners3_cmd.Execute banners3_numRows = 0 %> <% Dim txt__MMColParam txt__MMColParam = "representantes" If (Request("MM_EmptyValue") <> "") Then txt__MMColParam = Request("MM_EmptyValue") End If %> <% Dim representantes Dim representantes_cmd Dim representantes_numRows Set representantes_cmd = Server.CreateObject ("ADODB.Command") representantes_cmd.ActiveConnection = MM_cosmesul_STRING representantes_cmd.CommandText = "SELECT * FROM representantes ORDER BY Codigo ASC" representantes_cmd.Prepared = true Set representantes = representantes_cmd.Execute representantes_numRows = 0 %> <% Dim promo__MM_Ativo promo__MM_Ativo = "a" If (a <> "") Then promo__MM_Ativo = a End If %> <% Dim promo Dim promo_cmd Dim promo_numRows Set promo_cmd = Server.CreateObject ("ADODB.Command") promo_cmd.ActiveConnection = MM_cosmesul_STRING promo_cmd.CommandText = "SELECT * FROM servicos WHERE ativo = ? ORDER BY servico ASC" promo_cmd.Prepared = true promo_cmd.Parameters.Append promo_cmd.CreateParameter("param1", 200, 1, 255, promo__MM_Ativo) ' adVarChar Set promo = promo_cmd.Execute promo_numRows = 0 %> <% Dim agenda Dim agenda_cmd Dim agenda_numRows Set agenda_cmd = Server.CreateObject ("ADODB.Command") agenda_cmd.ActiveConnection = MM_cosmesul_STRING agenda_cmd.CommandText = "SELECT * FROM agenda ORDER BY Codigo DESC" agenda_cmd.Prepared = true Set agenda = agenda_cmd.Execute agenda_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 3 Repeat1__index = 0 promo_numRows = promo_numRows + Repeat1__numRows %> <% Dim Repeat12__numRows Dim Repeat12__index Repeat12__numRows = -1 Repeat12__index = 0 representantes_numRows = representantes_numRows + Repeat12__numRows %> <%=(botoes.Fields.Item("nomehome").Value)%> - <% Response.Write(NOME) %> <%=(NOMEIMP.Fields.Item("TagGoogleAdwords").Value)%>

<%=(banners.Fields.Item("texto").Value)%>

/
<% social.Close() Set social = Nothing %> <% NOMEIMP.Close() Set NOMEIMP = Nothing %> <% botoes.Close() Set botoes = Nothing %> <% banners.Close() Set banners = Nothing %> <% banners2.Close() Set banners2 = Nothing %> <% banners3.Close() Set banners3 = Nothing %> <% representantes.Close() Set representantes = Nothing %> <% promo.Close() Set promo = Nothing %> <% agenda.Close() Set agenda = Nothing %>