Vemos el script ASP necesario para recoger los datos del formulario e insertarlos en la base de datos.
La página ingreso.asp es la encargada de introducir los datos que nos llegan desde el formulario de inserción en la base de datos. Vemos su código a continuación.
Página ingreso.asp
'definimos el lenguaje a utilizar
<%@ Language="VBScript" %>
<html>
<head>
<title>Ingreso de Datos</title>
</head>
'comienza el script
<%
'definimos la variable de conexion
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
'conectamos a la base de datos mediante OLE ODBC dando el Driver
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
'definimos la variable de carga de datos
Dim Temp
'buscamos los datos
Temp="Select * From Tabla1 Where UCase(Nombre)='" & UCase(Request("Dato1")) & "' And UCase(Des)='" & UCase(Request("Dato2")) & "' And UCase(Url)='" & UCase(Request("Dato3")) & "' And UCase(Categoria)='" & UCase(Request("Dato4")) & "' And UCase(Pal)='" & UCase(Request("Dato5")) &"'"
Tabla.Open Temp,Conexion,2,3,1
'si no se repiten agregamos los datos a nuestro buscador
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("Nombre") = Request("Dato1")
Tabla("des") = Request("Dato2")
Tabla("Url") = Request("Dato3")
Tabla("Categoria") = Request("Dato4")
Tabla("Pal") = Request("Dato5")
Tabla.Update
'fin del Script
%>
<font face="Tahoma" size="2"><b><i>Ingreso de datos completado</i></b></font></p>
<%
'si el campo ya existe para no hacer dobles nos da este mensaje
Else
Response.Write "El registro ya existe"
End If
'cerramos la conexion
Tabla.Close
Conexion.Close
%>
<p align="center"><font face="Tahoma" size="2"><b><i>Buscador Web 2002</i></b></font></p>
<p align="center"><font face="Tahoma" size="2"><b><i><a href="cargar.htm" target="_top">Ingresar
Nuevo</a></i></b></font></p>
</body>
</html>
Observemos bien el script, y centrémonos en la carga de datos, hace un REQUEST de los datos que ingresamos en el formulario, y comprueba que no exista una igualdad en los datos, una vez hecho esto agrega con la sentencia ADDNEW una nueva fila a nuestra base de datos.
Cómo guardar las URL
Tenemos que recordar que en el formulario en el campo URL debemos ingresar la url de la Web a la cual queremos vincular, que puede estar dentro o fuera de nuestro sitio.
Si esta dentro de nuestra web, en principio no deberíamos incluir el "http://" al principio del enlace, pero nosotros recomendamos hacerlo, para guardar todas las URL con un formato idéntico y no tener problemas luego a la hora de crear los enlaces.
Así pues, todas las URL que introducamos deberían ser absolutas, estén o no dentro de nuestro sitio.
Página ingreso.asp
'definimos el lenguaje a utilizar
<%@ Language="VBScript" %>
<html>
<head>
<title>Ingreso de Datos</title>
</head>
'comienza el script
<%
'definimos la variable de conexion
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
'conectamos a la base de datos mediante OLE ODBC dando el Driver
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
'definimos la variable de carga de datos
Dim Temp
'buscamos los datos
Temp="Select * From Tabla1 Where UCase(Nombre)='" & UCase(Request("Dato1")) & "' And UCase(Des)='" & UCase(Request("Dato2")) & "' And UCase(Url)='" & UCase(Request("Dato3")) & "' And UCase(Categoria)='" & UCase(Request("Dato4")) & "' And UCase(Pal)='" & UCase(Request("Dato5")) &"'"
Tabla.Open Temp,Conexion,2,3,1
'si no se repiten agregamos los datos a nuestro buscador
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("Nombre") = Request("Dato1")
Tabla("des") = Request("Dato2")
Tabla("Url") = Request("Dato3")
Tabla("Categoria") = Request("Dato4")
Tabla("Pal") = Request("Dato5")
Tabla.Update
'fin del Script
%>
<font face="Tahoma" size="2"><b><i>Ingreso de datos completado</i></b></font></p>
<%
'si el campo ya existe para no hacer dobles nos da este mensaje
Else
Response.Write "El registro ya existe"
End If
'cerramos la conexion
Tabla.Close
Conexion.Close
%>
<p align="center"><font face="Tahoma" size="2"><b><i>Buscador Web 2002</i></b></font></p>
<p align="center"><font face="Tahoma" size="2"><b><i><a href="cargar.htm" target="_top">Ingresar
Nuevo</a></i></b></font></p>
</body>
</html>
Observemos bien el script, y centrémonos en la carga de datos, hace un REQUEST de los datos que ingresamos en el formulario, y comprueba que no exista una igualdad en los datos, una vez hecho esto agrega con la sentencia ADDNEW una nueva fila a nuestra base de datos.
| Colocación de la base de datos: En este ejemplo se accede a la base de datos sin crear un DSN en el sistema del servidor. Para que funcione debemos colocar la base de datos en el mismo directorio que la página ASP. |
Cómo guardar las URL
Tenemos que recordar que en el formulario en el campo URL debemos ingresar la url de la Web a la cual queremos vincular, que puede estar dentro o fuera de nuestro sitio.
Si esta dentro de nuestra web, en principio no deberíamos incluir el "http://" al principio del enlace, pero nosotros recomendamos hacerlo, para guardar todas las URL con un formato idéntico y no tener problemas luego a la hora de crear los enlaces.
Así pues, todas las URL que introducamos deberían ser absolutas, estén o no dentro de nuestro sitio.
Mario Matías Sebely