Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ADO
 Ayuda con datos ( AHORA SI ! )
 Foro Bloqueado  Tema Bloqueado


Autor Temas
jsjunior
Starting Member

Brazil
20 Posts
Mensajes - 17 Feb 2002 :  05:26:01  Ver Perfil  Enviar Email  Visit jsjunior's Homepage  Enviar jsjunior un Mensaje ICQ
Hola, soy de Brasil y no hablo español muy bien pero, no hay sitios de la web completos como tuio en Brsil.

No estoy logrando exito en cargar mis datos del provedor y recibo la seguinte mansaje:

Microsoft JET Database Engine error '80004005'

Not a valid bookmark.

/loja2/includes/config.asp, line 62

El codigo ASP es lo seguinte:

'-----------------------------------------------
'DATABASE CONNECTION SETTINGS
'-----------------------------------------------
'Database type - access or sql
DBtype = "access"

'MS Access OLEDB Connection String

strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("/loja2/DATABASE/shop4.mdb")&";Jet OLEDB:Database Password=88888888"

'Cursor type for executing queries - change to 1 for SQL Server if the site misbehaves after upsizing
cursortype = 3

'-----------------------------------------------
'DATABASE CONNECTION SETTINGS
'-----------------------------------------------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strconn
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set rs_main = Server.CreateObject("ADODB.Recordset")
Set rs_main2 = Server.CreateObject("ADODB.Recordset")

'-----------------------------------------------
'CHECK FOR AND CREATE APPLICATION VARIABLES
'This resetting can be forced by passing 'reset'
'as a querystring called 'appvar'. The config
'list file in the back end does this to allow
'you to force changes to the config settings to
'take effect.
'-----------------------------------------------
If Application(LICENSENUMBER & "emailmethod") = "" OR request.querystring("appvar")="reset" then
theQuery = "SELECT CFG_Name, CFG_Value, CFG_DataType FROM tblCactuShopConfig"
Call ExecuteSQL(theQuery,cursortype,rs_main)
Do while NOT rs_main.EOF
If rs_main("CFG_DataType") = "n" then
CFG_Value = rs_main("CFG_Value")*1
Else
CFG_Value = rs_main("CFG_Value")
End if
Application(LICENSENUMBER & rs_main("CFG_Name")) = CFG_Value
rs_main.MoveNext
loop
rs_main.Close
End if

'-----------------------------------------------
'ENCRYPTION KEY
'If you are using our encryption add-on your key
'goes here
'-----------------------------------------------
encryptionkey="1212121212121212xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
%>


Editado por - jsjunior on 25 Feb 2002 09:09:46

aalaiz
Junior Member

España
374 Posts
Posted - 20 Feb 2002 :  14:40:02  Ver perfil  Enviar e-mail
Hola:

¿Es ese todo el código?. Ahí sólo hay 49 líneas. Deberías poner el contenido del fichero .asp completo (o al menos hasta la línea 62, que es la que da el error)

Saludos.

Inicio Pagina

jsjunior
Starting Member

Brazil
20 Posts
Posted - 25 Feb 2002 :  09:11:29  Ver perfil  Enviar e-mail  Visit jsjunior's Homepage  Enviar jsjunior un Mensaje ICQ

Desculpe el error, abajo el codigo completo !!!

<%
'===============================================
' CactuShop ASP Shopping Cart
' ©1999-2001 Cactusoft Ltd. www.cactusoft.com
'===============================================
' All rights reserved.
' Use of this code is covered by the terms and
' conditions in the license agreement. No
' unauthorized duplication or distribution is
' permitted. Cactusoft's copyright notices must
' remain in the ASP sections of the code.
'===============================================

'-----------------------------------------------
'CACTUSHOP LICENSE NUMBER
'The license number given to you when you
'received your copy of CactuShop must be entered
'below, within the double quotes:

LICENSENUMBER = "Cactusoft Demo"

'This is a license requirement - to run
'CactuShop without the valid license number, or
'to run more than one copy of CactuShop with the
'same license number is a copyright violation
'and a breach of the software license.
'-----------------------------------------------

'-----------------------------------------------
'CACTUSHOP v4 CONFIG FILE
'Those of you familiar with earlier versions of
'CactuShop will notice this config file is very
'different to previous versions. Nearly all of
'the variables that were previously set here are
'now stored in the tblConfig table of the
'database and can be set directly from the back
'end. The database connection must be properly
'configured below, but most other stuff can then
'be set conveniently online. No more FTPing to
'change config values. Hoorah!
'-----------------------------------------------

session.LCID = 1033 'local identifier - CactuShop is designed to run on US defaults, leave this setting intact

'-----------------------------------------------
'DATABASE CONNECTION SETTINGS
'-----------------------------------------------
'Database type - access or sql
DBtype = "access"

'MS Access OLEDB Connection String
pathtodatabase="../DATABASE/cactushop4.mdb"
datasourcename="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(pathtodatabase)&";Jet OLEDB:Database Password=xxxxxxxx"

'MS SQLServer Connection String (for connecting on port 1433 - the standard port for SQL Server)
'datasourcename="Provider=sqloledb;Data Source=yourhost.com,1433;Network Library=DBMSSOCN;Initial Catalog=yourdatabase;User ID=yourID;Password=Yourpassword;"

'Cursor type for executing queries - change to 1 for SQL Server if the site misbehaves after upsizing
cursortype = 3

'-----------------------------------------------
'DATABASE CONNECTION SETTINGS
'-----------------------------------------------
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open datasourcename *** linea 65, donde regresa el error***
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set rs_main = Server.CreateObject("ADODB.Recordset")
Set rs_main2 = Server.CreateObject("ADODB.Recordset")

'-----------------------------------------------
'CHECK FOR AND CREATE APPLICATION VARIABLES
'This resetting can be forced by passing 'reset'
'as a querystring called 'appvar'. The config
'list file in the back end does this to allow
'you to force changes to the config settings to
'take effect.
'-----------------------------------------------
If Application(LICENSENUMBER & "emailmethod") = "" OR request.querystring("appvar")="reset" then
theQuery = "SELECT CFG_Name, CFG_Value, CFG_DataType FROM tblCactuShopConfig"
Call ExecuteSQL(theQuery,cursortype,rs_main)
Do while NOT rs_main.EOF
If rs_main("CFG_DataType") = "n" then
CFG_Value = rs_main("CFG_Value")*1
Else
CFG_Value = rs_main("CFG_Value")
End if
Application(LICENSENUMBER & rs_main("CFG_Name")) = CFG_Value
rs_main.MoveNext
loop
rs_main.Close
End if

'-----------------------------------------------
'ENCRYPTION KEY
'If you are using our encryption add-on your key
'goes here
'-----------------------------------------------
encryptionkey="1212121212121212xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
%>


quote:

Hola, soy de Brasil y no hablo español muy bien pero, no hay sitios de la web completos como tuio en Brsil.

No estoy logrando exito en cargar mis datos del provedor y recibo la seguinte mansaje:

Microsoft JET Database Engine error '80004005'

Not a valid bookmark.

/loja2/includes/config.asp, line 62

El codigo ASP es lo seguinte:

'-----------------------------------------------
'DATABASE CONNECTION SETTINGS
'-----------------------------------------------
'Database type - access or sql
DBtype = "access"

'MS Access OLEDB Connection String

strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("/loja2/DATABASE/shop4.mdb")&";Jet OLEDB:Database Password=88888888"

'Cursor type for executing queries - change to 1 for SQL Server if the site misbehaves after upsizing
cursortype = 3

'-----------------------------------------------
'DATABASE CONNECTION SETTINGS
'-----------------------------------------------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strconn
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set rs_main = Server.CreateObject("ADODB.Recordset")
Set rs_main2 = Server.CreateObject("ADODB.Recordset")

'-----------------------------------------------
'CHECK FOR AND CREATE APPLICATION VARIABLES
'This resetting can be forced by passing 'reset'
'as a querystring called 'appvar'. The config
'list file in the back end does this to allow
'you to force changes to the config settings to
'take effect.
'-----------------------------------------------
If Application(LICENSENUMBER & "emailmethod") = "" OR request.querystring("appvar")="reset" then
theQuery = "SELECT CFG_Name, CFG_Value, CFG_DataType FROM tblCactuShopConfig"
Call ExecuteSQL(theQuery,cursortype,rs_main)
Do while NOT rs_main.EOF
If rs_main("CFG_DataType") = "n" then
CFG_Value = rs_main("CFG_Value")*1
Else
CFG_Value = rs_main("CFG_Value")
End if
Application(LICENSENUMBER & rs_main("CFG_Name")) = CFG_Value
rs_main.MoveNext
loop
rs_main.Close
End if

'-----------------------------------------------
'ENCRYPTION KEY
'If you are using our encryption add-on your key
'goes here
'-----------------------------------------------
encryptionkey="1212121212121212xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
%>


Editado por - jsjunior on 25 Feb 2002 09:09:46


Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar