<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% If (CStr(Request("MM_insert")) = "newsletter") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_conexao_STRING MM_editCmd.CommandText = "INSERT INTO newsletter (nome, email) VALUES (?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 100, Request.Form("nome")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 100, Request.Form("email")) ' adVarWChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "default.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> <% Dim empresa Dim empresa_cmd Dim empresa_numRows Set empresa_cmd = Server.CreateObject ("ADODB.Command") empresa_cmd.ActiveConnection = MM_conexao_STRING empresa_cmd.CommandText = "SELECT cep, cidade, email, endereco, estado, fone, site, subtitulo, titulo FROM institucional" empresa_cmd.Prepared = true Set empresa = empresa_cmd.Execute empresa_numRows = 0 %> <% Dim chamadas Dim chamadas_cmd Dim chamadas_numRows Set chamadas_cmd = Server.CreateObject ("ADODB.Command") chamadas_cmd.ActiveConnection = MM_conexao_STRING chamadas_cmd.CommandText = "SELECT * FROM chamada ORDER BY RND(INT(NOW*id)-NOW*id)" chamadas_cmd.Prepared = true Set chamadas = chamadas_cmd.Execute chamadas_numRows = 0 %> <% Dim blog Dim blog_cmd Dim blog_numRows Set blog_cmd = Server.CreateObject ("ADODB.Command") blog_cmd.ActiveConnection = MM_conexao_STRING blog_cmd.CommandText = "SELECT * FROM blog ORDER BY id DESC" blog_cmd.Prepared = true Set blog = blog_cmd.Execute blog_numRows = 0 %> <% Dim produtos__MMColParam produtos__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then produtos__MMColParam = Request("MM_EmptyValue") End If %> <% Dim produtos Dim produtos_cmd Dim produtos_numRows Set produtos_cmd = Server.CreateObject ("ADODB.Command") produtos_cmd.ActiveConnection = MM_conexao_STRING produtos_cmd.CommandText = "SELECT * FROM produto WHERE categoria = ? ORDER BY produto ASC" produtos_cmd.Prepared = true produtos_cmd.Parameters.Append produtos_cmd.CreateParameter("param1", 200, 1, 100, produtos__MMColParam) ' adVarChar Set produtos = produtos_cmd.Execute produtos_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 2 Repeat1__index = 0 chamadas_numRows = chamadas_numRows + Repeat1__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 3 Repeat3__index = 0 blog_numRows = blog_numRows + Repeat3__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 produtos_numRows = produtos_numRows + Repeat2__numRows %>

Soluções

<% While ((Repeat2__numRows <> 0) AND (NOT produtos.EOF)) %>

" class="linklista"><%=(produtos.Fields.Item("produto").Value)%>

<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 produtos.MoveNext() Wend %>

 

Atendimento Online

Newsletter

 

mapa

Você está em: Home

Vantagens

<% While ((Repeat1__numRows <> 0) AND (NOT chamadas.EOF)) %>

" alt="<%=(chamadas.Fields.Item("titulo").Value)%>" width="180" height="117" class="spaco10" />

<%=(chamadas.Fields.Item("titulo").Value)%>

<%=(chamadas.Fields.Item("descricao").Value)%>

">+ Saiba mais

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 chamadas.MoveNext() Wend %>

Twitter

Novidades

<% While ((Repeat3__numRows <> 0) AND (NOT blog.EOF)) %>

<%=(blog.Fields.Item("data").Value)%>

<%=(blog.Fields.Item("titulo").Value)%>

">Leia mais

 

<% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 blog.MoveNext() Wend %>

Home  |  Quem somos  |  O que fazemos  |  Produtos  |  Clientes  |  Atendimento

 

<%=(empresa.Fields.Item("titulo").Value)%> | <%=(empresa.Fields.Item("subtitulo").Value)%>

<%=(empresa.Fields.Item("endereco").Value)%> | <%=(empresa.Fields.Item("cidade").Value)%>, <%=(empresa.Fields.Item("estado").Value)%>

Fone: <%=(empresa.Fields.Item("fone").Value)%>

 

<% empresa.Close() Set empresa = Nothing %> <% chamadas.Close() Set chamadas = Nothing %> <% blog.Close() Set blog = Nothing %> <% produtos.Close() Set produtos = Nothing %>