<% strTipo = request("tipo") strAcao = request("acao") numId = request("id") if strAcao = "inclui" then sql = "SELECT * FROM " & strTipo else sql = "SELECT * FROM " & strTipo & " WHERE id = " & numId end if Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, MeuDB, 3, 3 if strAcao = "inclui" then rs.AddNew end if Select Case strTipo Case "links" rs("titulo") = request("titulo") rs("endereco") = request("endereco") rs("idAutor") = request("idAutor") strNxtSite = "formlinks.asp" Case "categorias" rs("nome") = lcase(request("nome")) strNxtSite = "formcategorias.asp" Case "notas" rs("idAutor") = request("idAutor") rs("titulo") = request("titulo") rs("texto") = request("texto") rs("idCategorias") = request("categorias") rs("dt") = request("dia") & "/" & request("mes") & "/" & request("ano") rs("artRelac") = request("ArtRelac") strNxtSite = "formnotas.asp" strTipoMsg = "uma nota" strCabeca = "" & request("titulo") & "" strCorpo = trataStringHtm(request("texto")) MandaMail = 1 Case "autores" strNome = request("nome") rs("nome") = strNome rs("email") = request("email") if strAcao = "inclui" then strLogin = lcase(left(strNome,8)) rs("tipo") = 2 rs("login") = trim(strLogin) rs("senha") = "convite1" strNxtSite = "formcolaboradores.asp" else rs("perfil") = request("perfil") rs("senha") = request("senha") strNxtSite = "formautores.asp" end if Case "artigos" rs("fonte") = request("fonte") rs("titulo") = request("titulo") rs("texto") = request("texto") rs("linkrelac") = request("linkrelac") rs("idCategorias") = request("categorias") rs("dt") = request("dia") & "/" & request("mes") & "/" & request("ano") rs("idAutor") = request("idAutor") strNxtSite = "formartigos.asp" if strAcao = "inclui" then strTipoMsg = "um artigo" strCabeca = "" & request("titulo") & "
Fonte: " & request("fonte") strCorpo = trataStringHtm(request("texto")) MandaMail = 1 end if End Select rs.Update if MandaMail = 1 then sql = "SELECT * FROM autores WHERE id = " & request("idAutor") Set rsAut = Server.CreateObject("ADODB.Recordset") rsAut.Open sql, MeuDB, 3, 3 strNomeRem = rsAut("nome") strEmailRem = rsAut("email") strNomeDest1 = "Fabiano C." strEmailDest1 = "f@biano.com.br" strNomeDest2 = "Fabricio P." strEmailDest2 = "fabriciopsilva@uol.com.br" strNomeDest3 = "Bruno M." strEmailDest3 = "bfmuller@gmail.com" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = strNomeRem Mailer.FromAddress= strEmailRem Mailer.RemoteHost = "smtp2.locaweb.com.br" Mailer.AddRecipient strNomeDest1, strEmailDest1 Mailer.AddRecipient strNomeDest2, strEmailDest2 Mailer.AddRecipient strNomeDest3, strEmailDest3 Mailer.ContentType = "text/html" Mailer.Subject = strNomeRem & " publicou " & strTipoMsg & " no blog!" Mailer.BodyText = "" & strCabeca & "

" & strCorpo & "" Mailer.SendMail Set Mailer = nothing end if if strTipo = "autores" AND strAcao = "inclui" then strNomeRem = "Democracias.Blog" strEmailRem = "democracias@biano.com.br" strNomeDest1 = request("nome") strEmailDest1 = request("email") strNomeDest2 = "Fabiano C." strEmailDest2 = "f@biano.com.br" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = strNomeRem Mailer.FromAddress= strEmailRem Mailer.RemoteHost = "smtp2.locaweb.com.br" Mailer.AddRecipient strNomeDest1, strEmailDest1 Mailer.AddRecipient strNomeDest2, strEmailDest2 Mailer.ContentType = "text/html" Mailer.Subject = "Você foi convidado para publicar no Democracias" Mailer.BodyText = "Para publicar, acesse: http://www.biano.com.br/democracias/bloguim

Usuário/a: " & strLogin & "
Senha: convite1

>> Potencialzado pelo sistema Bloguim BETA ... Copyleft - 2005 <<" Mailer.SendMail Set Mailer = nothing end if %> <% response.redirect strNxtSite %>