<%
Call AbreBanco
Dim VarProduto
VarProduto = Request.QueryString("Produto")
Session("Endereco") = Request.ServerVariables("SCRIPT_NAME") & "?" & Request.ServerVariables("QUERY_STRING")
Dim Produto
Set Produto = Banco.Execute("SELECT * FROM Produtos WHERE Cod LIKE '"& VarProduto &"' AND Status = on AND Estoque > 0")
Dim Categoria
Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& Produto("CodCategoria") &"'")
Dim SubCategoria
Set SubCategoria = Banco.Execute("SELECT * FROM SubCategorias WHERE Cod LIKE '"& Produto("CodSubCategoria") &"'")
'Indique o produto
Dim VarAct
Dim VarSeuNome
Dim VarSeuEmail
Dim VarNomePara
Dim VarEmailPara
Dim VarCodProduto
Dim VarMsg
Dim VarComentario
Dim ConsProduto
Dim Corpo
Dim Contato
VarAct = Request.QueryString("Act")
VarCodProduto = Request.QueryString("Produto")
If VarAct = "Indique" Then
VarSeuNome = Trim(Replace(Request.Form("SeuNome"), "'", ""))
VarSeuEmail = Trim(Replace(Request.Form("SeuEmail"), "'", ""))
VarNomePara = Trim(Replace(Request.Form("NomePara"), "'", ""))
VarEmailPara = Trim(Replace(Request.Form("EmailPara"), "'", ""))
VarComentario = Trim(Replace(Replace(Request.Form("Comentario"), "'", ""),vb script:;">
| |
|
| |
| De: |
<%=FormatCurrency(Produto("PrecoDe"))%> |
| Por: |
<%=FormatCurrency(Produto("PrecoPor"))%> |
"> |
|
 " width="140" height="100"> |
|
| |
 |
| Descrição |
|
| <%=Produto("Descricao")%> |
|
| Prazo de entrega |
|
| <%=PrazoEntrega%> |
|
Indique este produto |
|
|
|
| |
|
|
|
<%
Call FechaBanco
%>