Câmara Municipal de Alpiarça - Biblioteca Municipal

<% Sub introducao_dados() conn = "DRIVER={Microsoft Access Driver (*.mdb)};" conn = conn & "DBQ=" & Server.Mappath("./bases/bases.mdb") & ";" Set rs = Server.CreateObject("ADODB.Recordset") SQLStmt = "INSERT INTO sugestoes (nome, n_leitor, email, autor, titulo, editora, texto, obs, data) " SQLStmt = SQLStmt & "VALUES('" &Request.Form("nome")&"'," SQLStmt = SQLStmt & "'"&Request.Form("n_leitor")&"', " SQLStmt = SQLStmt & "'"&Request.Form("email")&"', " SQLStmt = SQLStmt & "'"&Request.Form("autor")&"', " SQLStmt = SQLStmt & "'"&Request.Form("titulo")&"', " SQLStmt = SQLStmt & "'"&Request.Form("editora")&"', " SQLStmt = SQLStmt & "'"&Request.Form("texto")&"', " SQLStmt = SQLStmt & "'"&Request.Form("obs")&"', " SQLStmt = SQLStmt & "now())" rs.Open SQLstmt,Conn,1,2 Response.Write "
Obrigado pela sua sugestão.
" Response.Write "
Depois de avaliada será publicada.
" Response.Write "
Introduzir nova sugestão.
" End Sub Sub validar_dados() if len(Request.Form("nome"))>35 or len(Request.Form("nome"))<3 then Response.Write "O NOME não pode exceder os 35 caracteres, ou ter menos de 3." formulario_introducao exit sub else if len(Request.Form("email"))>32 then Response.Write "O EMAIL excedeu o número de caracteres." formulario_introducao exit sub else if len(Request.Form("autor"))>35 then Response.Write "O nome do AUTOR não pode exceder os 35 caracteres." formulario_introducao exit sub else if len(Request.Form("titulo"))>50 or len(Request.Form("titulo"))<3 then Response.Write "O TITULO não pode exceder os 50 caracteres, ou ter menos de 3." formulario_introducao exit sub else if len(Request.Form("editora"))>35 then Response.Write "A nome EDITORA não pode exceder os 35 caracteres." formulario_introducao exit sub else if len(Request.Form("obs"))>50 then Response.Write "As OBSERVAÇÕES não podem exceder os 50 caracteres." formulario_introducao exit sub else end if end if end if end if end if end if introducao_dados End Sub Sub formulario_introducao%>

Identificação:
Nome:	" size="50"> *
Nº leitor:	" size="5"> caso seja leitor da Biblioteca
E-mail:	" size="35">

Dados bibliográficos:
Autor:	" size="35">
Título:	" size="50"> *
Editora:	" size="35">

Texto da sugestão:

Obs.:	" size="50">

* - Campos obrigatórios

<%End Sub%> <% if request.querystring("fazer") = "introduzir" then validar_dados else formulario_introducao end if %>