Como Gravar No Bd E Enviar Email De Confirmação Ao Mesmo Tempo?

[gra]

Tenho uma dúvida, um cliente gostaria que toda vez que fosse inserido um novo site, ele (não o internauta que cadastrou o site) recebesse um email informando, como faço isso? é no código de envia.asp ou posso colocar 2 actions no form?

abaixo o código de envia:

<%

Option Explicit

Dim acao, rs, caminho, sql, conn

Dim vTitulo, vUrl, vNome, vEmail, vDescricao, vCategoria

acao = Request("acao")

If acao = "insere" Then

vTitulo = Request("titulo")

vUrl = Request("url")

vNome = Request("nome")

vEmail = Request("email")

vDescricao = Request("descricao")

vCategoria = Request("categoria")

sql = "INSERT INTO sites (titulo, url, nome, email, descricao, categoria) VALUES ('" & vTitulo & "','" & vUrl & "','" & vNome & "','" & vEmail & "','" & vCategoria & "','" & vDescricao & "');"

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

caminho = "DBQ=" & Server.MapPath("database\database.mdb")

conn.Open "Driver={Microsoft Access Driver (*.mdb)};" & caminho

Set rs=conn.Execute(sql)

conn.Close

Response.Redirect "ok.asp"

End If

%>

obrigada

:rolleyes:

[.Andreia.]

Voce vai precisar usar um componente de envio de e-mail, verifique com o teu servidor web quais componentes eles tem instalado (ex. Cdonts, Aspmail, Jmail,...). Com essa informação, pegue um codigo para o respectivo (procure no forum que tem varios codigos prontos) e coloque no mesmo momento que insere, que é no arquivo que voce postou o codigo