<%@ LANGUAGE="VBSCRIPT" %> 
<!--#include file="../iProtect/loggedin.asp" -->

<%

Set Conn = Server.CreateObject("ADODB.Connection") 
Set RS = Server.CreateObject("ADODB.RecordSet")
BdConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=	E:\Domains\antonioautopecas.com.br\db\conteudo.mdb;" 
conn.Open BdConn


    sql = "UPDATE pedras SET idioma = '"
    sql = sql & Session("idioma") & "', " 
    sql = sql & "nome = " & "'" &  Session("nome") & "', " 
    sql = sql & "categoria = " & "'" &  Session("categoria") & "', " 
    sql = sql & "imgcapa1 = " & "'" &  Session("imgcapa1") & "', " 	
    sql = sql & "imgcapa2 = " & "'" &  Session("imgcapa2") & "', " 	
    sql = sql & "imgcapa3 = " & "'" &  Session("imgcapa3") & "', " 	
    sql = sql & "jazidapropria = " & "'" &  Session("jazidapropria") & "', " 	
    sql = sql & "aprovado = " & "'" & Session("aprovado") & "' "  
    sql = sql & " WHERE Codigo = "
    sql = sql & Session("Codigo")
	Set RS = Conn.Execute(sql)
	
	Response.Redirect "ped_listagem.asp"
%>