Script para inserir os dados

Vemos o script ASP necessário para recolher os dados do formulário e inseri-los no banco de dados.

A página ingresso.asp é a encarregada de introduzir os dados que nos chegam através do formulário de inserção no banco de dados. Vemos seu código a seguir.

Página ingresso.asp

'definimos a linguagem a utilizar
<%@ Language="VBScript" %>
<html>
<head>
<title>Ingrseso de Dados</title>
</head>
'comeca o script
<%
'definimos a variável de conexao
Dim Conexao,Tabela
Set Conexao = Server.CreateObject("ADODB.Connection")
Set Tabela = Server.CreateObject("ADODB.Recordset")
'conectamos ao banco de dados mediante OLE ODBC dando o Driver
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
'definimos a variavel de carga de dados
Dim Temp
'buscamos os dados
Temp="Select * From Tabela1 Where UCase(Nome)='" & UCase(Request("Dado1")) & "' And UCase(Des)='" & UCase(Request("Dado2")) & "' And UCase(Url)='" & UCase(Request("Dado3")) & "' And UCase(Categoria)='" & UCase(Request("Dado4")) & "' And UCase(Pal)='" & UCase(Request("Dado5")) &"'"
Tabla.Open Temp,Conexao,2,3,1
'se nao se repetem agregamos os dados a nosso buscador
If Tabela.BOF And Tabela.EOF Then
 Tabela.AddNew
 Tabela("Nome") = Request("Dado1")
 Tabela("des") = Request("Dado2")
 Tabela("Url") = Request("Dado3")
 Tabela("Categoria") = Request("Dado4")
 Tabela("Pal") = Request("Dado5")
 Tabela.Update
'fim do Script
%>

Ingresso de dados completado
<%
'se o campo ja existe para nao fazer duplicados nos da esta mensagem
Else
 Response.Write "O registro ja existe"
End If
'fechamos a conexao
Tabla.Close
Conexao.Close
%>
Buscador Web 2002

<a href="cargar.htm" target="_top">Ingressar
Novo</a>
</body>
</html>

Observemos bem o script, e nos centremos no carregamento dos dados, faz um REQUEST dos dados que ingressamos no formulário, e comprova que não exista uma igualdade nos dados, uma vez feito isso agrega com a sentença ADDNEW uma nova fila ao nosso banco de dados.

Colocação do banco de dados: Neste exemplo se acessa ao banco de dados sem criar um DSN no sistema do servidor. Para que funcione devemos colocar o banco de dados no mesmo diretório que a página ASP.

Como salvar as URL

Temos que lembrar que no formulário no campo URL devemos ingressar a url da Web a qual queremos vincular, que pode estar dentro ou fora de nosso site.

Se estiver dentro de nossa web, à princípio não deveríamos incluir o "http://" ao início do link, porém nós recomendamos fazê-lo, para salvar todas as URL com um formato idêntico e não ter problemas logo na hora de criar os links.

Sendo assim, todas as URL que introduzamos deveriam ser absolutas, estejam ou não dentro de nosso site.