Proposta de aquisição

    Após consultar o nosso catálogo em linha, se verificar que o documento que pretende não se encontra no nosso fundo bibliográfico, poderá propor a sua aquisição preenchendo o seguinte formulário:

<% 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 proposta (nome, n_leitor, email, autor, titulo, editora, 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("obs")&"', " SQLStmt = SQLStmt & "now())" rs.Open SQLstmt,Conn,1,2 Response.Write "
" Response.Write "
Obrigado pela sua proposta.
" Response.Write "
A aquisição da obra ficará ao critério da Biblioteca Municipal
" Response.Write "
Introduzir nova proposta

" Response.Write "
" 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">
 Obs.: " size="50">
* - Campos obrigatórios
<%End Sub%> <% if request.querystring("fazer") = "introduzir" then validar_dados else formulario_introducao end if %>

    Em caso de dificuldade em obter o título ou o autor do livro que pretende propor, sugerimos-lhe que consulte os seguintes sites:

 Se nos indicar o seu e-mail, poderemos informá-lo da aquisição da obra proposta.

 










 © Copyright - Câmara Municipal de Alpiarça
Última actualização: 10-01-2006