<%@LANGUAGE="VBSCRIPT"%> <% Dim produto__MMColParam produto__MMColParam = "1" If (Request.QueryString("id") <> "") Then produto__MMColParam = Request.QueryString("id") End If %> <% Dim produto Dim produto_numRows Set produto = Server.CreateObject("ADODB.Recordset") produto.ActiveConnection = MM_supri_STRING produto.Source = "SELECT ID_Produto FROM CMD_PRODUTOS WHERE ID_Produto = " + Replace(produto__MMColParam, "'", "''") + "" produto.CursorType = 0 produto.CursorLocation = 2 produto.LockType = 1 produto.Open() produto_numRows = 0 %> Suprimas

DIGITE AQUI SEU CNPJ: *

 

Dados Gerais
Nome:  *     Horário de preferência para receber a ligação :
  Manhã (08:00h as 12:00h)
  Tarde (13:00 as 18:00)
  Qualquer hora
Email: *
Telefone: *

Assunto:
 

-
 
 
©Copyright 2007. Suprimas Indústria e Comércio de Tubos Flexíveis Ltda.Todos os direitos reservados.
<% produto.Close() Set produto = Nothing %>