Foro sobre los Ciclos Formativos de Grado Medio ( SMR ) y Superior ( ASIR, DAI, DAM y DAW ).
Buscador Asp
13 mensajes • Página 2 de 2 • 1, 2
Re: Buscador Asp
por aclivis el 24 May 2011, 21:11
Pero necesitariamos toda la carpeta de asp's que tengas, para comprobar donde esta el error. No se si dreamweaver tiene soporte para compilar asps.
-
aclivis - Iniciado
- Mensajes: 237
- Registrado: 31 Dic 2010, 03:09
- Ubicación: Crevillent (Baix Vinalopó)
- Ciclo Formativo: No estudio FP
- Curso: Ninguno
- Provincia: Alicante
Re: Buscador Asp
por aclivis el 24 May 2011, 21:24
Prueba asi, a mi no me funciona porque no tengo el archivo "base.mdb"
- Código: Seleccionar todo
<!-- definimos el lenguaje a utilizar -->
<%@ Language="VBScript" Debug="true" AspCompat="true" %>
<html>
<head>
<title>Ingreso de Datos</title>
</head>
<!-- comienza el script -->
<%
'definimos la variable de conexion
Dim Conexion,Tabla
Conexion = Server.CreateObject("ADODB.Connection")
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="ingreso.htm" target="_top">Ingresar
Nuevo</a></i></b></font></p>
</body>
</html>
-
aclivis - Iniciado
- Mensajes: 237
- Registrado: 31 Dic 2010, 03:09
- Ubicación: Crevillent (Baix Vinalopó)
- Ciclo Formativo: No estudio FP
- Curso: Ninguno
- Provincia: Alicante
Re: Buscador Asp
por tuka85 el 29 May 2011, 00:05
probé en el portatil el cual tiene windows 7 32 bits (el otro tenia 64)
y ahora me sale este error:
An error occurred on the server when processing the URL. Please Contact tha system administrator.
If you are the system administrador plase click here yo find out more about this error
y ahora me sale este error:
An error occurred on the server when processing the URL. Please Contact tha system administrator.
If you are the system administrador plase click here yo find out more about this error
-
tuka85 - Visitante
- Mensajes: 14
- Registrado: 21 Mar 2011, 11:21
- Ciclo Formativo: DAW
- Curso: 1º
- Acceso por: Prueba de Acceso
- Provincia: Huelva
- Instituto: IES La Marisma
13 mensajes • Página 2 de 2 • 1, 2
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados