<% tipo = request.querystring("tipo") If IsEmpty(tipo) or tipo = "" then response.write ("") %>

 

Deixe aqui seu recadinho!

 

Nome:
Cidade:

Email:

O seu email não será divulgado, só a Paula Art conseguirá visualizar.

Assunto:
Mensagem:
  
<% 'Aqui finaliza a parte onde mostra ao internauta a pagina de assinatura end if 'Aqui comea a pagina onde vai inserir os dados if tipo = "insere" then 'AQUI BUSCA AS INFORMACOES DO FORMULARIO Session.LCID = 1046 nome = request.form("nome") email = request.form("email") email2 = request.form("email2") site = request.form("site") mensagem = request.form("mensagem") data = date() hora = Hour(time) + 3 & ":" & Minute(time) & ":" & Second(time) ip = request.servervariables("REMOTE_ADDR") mensagem = Replace(mensagem, chr(39), """) mensagem = Replace(mensagem, "<", "<") mensagem = Replace(mensagem, ">", ">") mensagem = Replace(mensagem, VbCrLf, "
") 'MODIFICA DADOS NAO OBRIGATORIOS 'If IsEmpty(nome) or nome = "" then 'nome = "Anônimo" 'else 'nome = nome 'end if 'If site = "http://" then 'site = "0" 'else 'site = site 'end if 'AQUI NOTIFICA A ALGUM CAMPO OBRIGATORIO VAZIO 'If email = "" or mensagem = "" then 'response.write "



" 'response.write "
Erro!
ALGUM CAMPO OBRIGATÓRIO NÃO FOI PREENCHIDO!
" 'response.write "
CLIQUE AQUI PARA VOLTAR E PREENCHE-LO






" 'else 'AQUI ESTA ABRINDO O BANCO E INSERINDO AS INFORMACOES NO MESMO! SET marcos = CreateObject("ADODB.Connection") meuLivro = "DRIVER={Microsoft Access Driver (*.mdb)};" meuLivro = meulivro &"DBQ="& Server.MapPath("database/livro.mdb") marcos.open meuLivro SQL = "INSERT INTO assinantes(nome, email, email2, site, mensagem, data, hora, ip)" SQL = SQL & "VALUES('"& nome &"','"& email &"','"& email2 &"','"& site &"','"& mensagem &"','"& data &"','"& hora &"','"& ip &"')" set GRAVAR = marcos.EXECUTE(SQL) 'AQUI REDIRECIONA A PAGINA DA MENSAGENS JA INSERIDA NO BANCO DE DADOS! response.redirect "mensagem.asp" 'AQUI TERMINA A NOTIFICACAO DE ALGUM CAMPO VAZIO 'end if 'AQUI TERMINA DE RODAR A PAGINA DE INSERSAO DE DADOS end if %> <%=response.write ("
")%>