Câmara Municipal de Alpiarça - Biblioteca Municipal

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:

http://www.wook.pt

http://www.fnac.pt

http:/www.bn.pt

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