%@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 %>
" class="linklista"><%=(produtos.Fields.Item("produto").Value)%>
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 produtos.MoveNext() Wend %>
Você está em: Home
" alt="<%=(chamadas.Fields.Item("titulo").Value)%>" width="180" height="117" class="spaco10" />
<%=(chamadas.Fields.Item("titulo").Value)%>
<%=(chamadas.Fields.Item("descricao").Value)%>
<%=(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)%> |
|