<% Dim ComandoSQL, objRS_especificacoes If Request.Form <> "" Then Dim item, especificacoes especificacoes = "" For Each item In Request.Form If Trim(item) <> "submit" And Trim(item) <> "estoque" AND Lcase(Trim(item)) <> "x" AND lcase(Trim(item)) <> "y" Then If Trim(Request.Form(item)) <> "" Then especificacoes = "ok" End If End If Next Set item = Nothing If especificacoes = "" Then Response.Write "
ATENÇÃO
" Response.Write "É preciso que você escolha pelo menos uma das especificações para o produto" Response.Write "

Clique aqui para voltar" Else ComandoSQL = " SELECT * FROM produtos_especificacoes WHERE 1<>1" Set objRS_especificacoes = Server.CreateObject("ADODB.Recordset") objRS_especificacoes.CursorLocation = 3 objRS_especificacoes.CursorType = 1 objRS_especificacoes.LockType = 2 objRS_especificacoes.Open ComandoSQL, conexao,,, &H0001 objRS_especificacoes.AddNew objRS_especificacoes("id_produto") = Request("id") objRS_especificacoes("estoque") = Trim(Request.Form("estoque")) ' objRS_especificacoes("estoque_minimo") = Trim(Request.Form("estoque_minimo")) ' objRS_especificacoes("valor_acrescimo") = FormataValorAmericano(Request.Form("valor_acrescimo")) ' objRS_especificacoes("imagem") = Trim(Request.Form("imagem")) objRS_especificacoes.Update dim id id = objRS_especificacoes("id") objRS_especificacoes.Close Set objRS_especificacoes = Nothing ComandoSQL = " SELECT * FROM produtos_especificacoes_detalhes WHERE 1<>1" Set objRS_detalhes = Server.CreateObject("ADODB.Recordset") objRS_detalhes.CursorLocation = 3 objRS_detalhes.CursorType = 0 objRS_detalhes.LockType = 3 objRS_detalhes.Open ComandoSQL, conexao,,, &H0001 For Each item In Request.Form If Trim(item) <> "submit" And Trim(item) <> "estoque" AND Lcase(Trim(item)) <> "x" AND lcase(Trim(item)) <> "y" Then If Trim(Request.Form(item)) <> "" Then ' If Trim(item) <> "imagem" Then objRS_detalhes.AddNew objRS_detalhes("id_especificacao") = id objRS_detalhes("titulo") = Trim(item) objRS_detalhes("valor") = Trim(Request.Form(item)) objRS_detalhes.Update ' End If End If End If Next objRS_detalhes.Close Set objRS_detalhes = Nothing If Trim(Request.Form("estoque")) <> "" And Trim(Request.Form("estoque_minimo")) <> "" Then If Int(Trim(Request.Form("estoque"))) > Int(Trim(Request.Form("estoque_minimo"))) Then Response.Write "" End If End If Response.Write "" Response.Write "" End If Set especificacoes = Nothing Set ComandoSQL = Nothing Set id = Nothing Else ComandoSQL = " SELECT * FROM especificacoes_detalhes ORDER BY especificacao ASC, titulo ASC" Set objRS_especificacoes = Server.CreateObject("ADODB.Recordset") objRS_especificacoes.CursorLocation = 2 objRS_especificacoes.CursorType = 1 objRS_especificacoes.LockType = 1 objRS_especificacoes.Open ComandoSQL, conexao,,, &H0001 If Not objRS_especificacoes.EOF Then Response.Write "Opcões disponíveis
Informe apenas as opcões referentes ao produto." Response.Write "
" Response.Write "
" especificacao = "" While Not objRS_especificacoes.EOF If especificacao <> objRS_especificacoes("especificacao") Then If especificacao <> "" Then Response.Write "
" especificacao = objRS_especificacoes("especificacao") Response.Write " " & especificacao & "
 " Response.Write "
" Response.Write "

Informacões
Qtde. em Estoque         " ' Response.Write "Estoque mínimo" Response.Write "
" ' Response.Write "   " ' Response.Write "
Acréscimo (" & Application("te_moeda_sigla") & ")
" ' Response.Write "
Imagem ilustrativa
" ' Response.Write "" ' Response.Write "
" ' Response.Write "" ' Response.Write "" Response.Write "

" Response.Write "
" Else Response.Write "Nenhuma especificação disponível" End If objRS_especificacoes.Close End If Set ComandoSQL = Nothing Set objRS_especificacoes = Nothing %>