(Resolvido) Ajuda com ASP

[evertonviana]

Amigos,

Preciso confeccionar o seguinte código em asp:

Objetivo: Fazer com que de acordo com a informação selecionada em uma caixa de texto suspensa em um formulário, os demais dados do formulário sejam salvos em uma determinada tabela dentro do MDB.

Ex.: No formulário selecionei que a noticia publicada deve ser adicionada na opção "Superior esquerda", de forma que as demais informações do formulário sejam salvas na tabela "Noticia1".

Caso o usuário selecione "Superior direita", os demais dados do formulário devem ser salvos na tabela "noticia2".

Atualmente tenho esse código que esta incompleto:

<%

'Abre a conexão com o banco de dados

Set Conex = Server.CreateObject ("ADODB.Connection")

Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("database/dados.mdb")

'Pega os dados digitados no forluário

data_pub = request("data_pub")

autor_not = request("autor_not")

setor_autor = request("setor_autor")

titulo_not = request("titulo_not")

noticia = request("noticia")

onde_pub = request("onde_pub")

'Condições para saber onde publicar

sql1 = "select * from noticia1"

Set salva1 = Server.CreateObject("ADODB.Recordset")

salva1.open sql1, conex, 3,3

sup_esq = onde_pub

if not salva1.eof then

salva1.addnew

salva1("data")= data_pub

salva1("autor") = autor_not

salva1("setor") = setor_autor

salva1("titulo") = titulo_not

salva1("noticia") = noticia

salva1.update

end if

'Finaliza Conexão com a tabela

salva1.close

set salva1 = nothing

'-------------------------------------------------

Set salva2 = Server.CreateObject("ADODB.Recordset")

sql2 = "select * from noticia2"

salva2.open sql2, conex, 3,3

sup_dir = onde_pub

if not salva2.eof then

salva2.addnew

salva2("data")= data_pub

salva2("autor") = autor_not

salva2("setor") = setor_autor

salva2("titulo") = titulo_not

salva2("noticia") = noticia

salva2.update

end if

'Finaliza Conexão com a tabela

salva2.close

set salva2 = nothing

Resolvido!

'Condições para saber onde publicar

if onde_pub = "sup_esq" then

sql1 = "select * from noticia1"

Set salva1 = Server.CreateObject("ADODB.Recordset")

salva1.open sql1, conex, 3,3