Alterar informações
<%
Dim ComandoSQL, objRS_especificacoes
If Request.Form <> "" Then
ComandoSQL = " SELECT * FROM produtos_especificacoes WHERE id = " & Request("id")
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("estoque") = Trim(Request.Form("estoque"))
'objRS_especificacoes("estoque_minimo") = Trim(Request.Form("estoque_minimo"))
'objRS_especificacoes("valor_acrescimo") = FormataValorAmericano(Request.Form("valor_acrescimo"))
id = objRS_especificacoes("id_produto")
objRS_especificacoes.Update
objRS_especificacoes.Close
Set especificacoes = Nothing
Set ComandoSQL = 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
Set id = Nothing
Response.Write ""
Response.Write ""
Else
ComandoSQL = " SELECT * FROM produtos_especificacoes WHERE id = " & Request("id")
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 "Informe corretamente os dados abaixo que deseja atualizar."
Response.Write ""
Else
Response.Write "Nenhuma especificação disponível"
End If
objRS_especificacoes.Close
End If
Set ComandoSQL = Nothing
Set objRS_especificacoes = Nothing
%>