<%
'=====================================================================
'=========== DESENVOLIMENTO DE UM SIMPLES LIVRO DE VISITAS ===========
'=====================================================================
'***** Estrutura da base de dados (GUESTBOOK.MDB)
'***** Nome da tabela principal (tbl_livro)
'------------------------------------------------
'| CAMPO - TIPO DE DADO |
'------------------------------------------------
'| cod_livro - Autonumeração |
'| data_livro - Data/Hora |
'| nome_vis - Texto |
'| email_vis - Texto |
'| mensagem_vis - Memorando |
'-----------------------------------------------
'=====================================================================
'================= ESTRUTURA DO ARQUIVO GUESTBOOK.ASP ================
'=====================================================================
'***** Este vai ser o único arquivo que implementará um livro de visitas
'em seu site
'=====================================================================
%>
<%
' Variáveis de execução do banco de dados
Dim Conn
Dim RS
Dim RS2
Dim SQLStmt
' Variáveis relacionadas aos dados do visitante
Dim txt_nome_vis
Dim txt_email_vis
Dim txt_mensagem_vis
Dim OK
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("guestbook.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
OK = 1 ' OK é para controle de validação vai-se então validar o e-mail
If Len(Request.form("txt_email_vis")) > 0 and Len(Request.form("txt_email_vis")) < 5 Then
OK = 0
Else
If InStr(1, Request.form("txt_email_vis"), "@", 1) < 2 Then
OK = 0
Else
If InStr(1,Request.form("txt_email_vis"), ".", 1) < 4 Then
OK = 0
End If
End If
End If
'depois de validado o e-mail vamos validar o resto das entradas
if len(Request.form("txt_nome_vis")) < 1 then
OK = 0
end if
if len(Request.form("txt_mensagem_vis"))<= 8 then
OK = 0
end if
'se tudo estiver validado vamos então introduzir os dados na base dados
' vamos então buscar as mensagens em Base de Dados ordenadas por data
SQLStmt = "SELECT * FROM tbl_livro ORDER BY cod_livro DESC"
RS.Open SQLstmt,Conn,1,2
%>
Livro de Visitas
Assine nosso newsletter!