21/05/2011, 20:26
| ||||
| ||||
| Error con base de Datos Hola. acabo de instalar el iis 7.5 para windows 7 64 bits. Estoy probando un buscador que he visto por Internet (en teoria esta bien) y me salta este error: Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][Controlador ODBC Microsoft Access] El sistema operativo no admite la secuencia de ordenación seleccionada. /buscador/ingreso.asp, línea 19 Espero que me puedan ayudar. Un saludo
__________________ http://www.martatorreajo.es |
|
23/05/2011, 08:17
| ||||
| ||||
| Respuesta: Error con base de Datos Qué cadena de conexión usais para conectarte a la base de datos?
__________________ Administrador de Servidores Windows www.hyperwin.net WebSitePanel - Helm Control - HostingController - DotNetPanel Instalación - Configuración - Hardening - Solución de problemas |
|
23/05/2011, 09:11
| ||||
| ||||
| Respuesta: Error con base de Datos Ahi tienes el codigo de la asp
Código:
<!-- 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="ingreso.htm" target="_top">Ingresar
Nuevo</a></i></b></font></p>
</body>
</html>
__________________ http://www.martatorreajo.es |
| Etiquetas: Ninguno |
