Foros del Web » Programando para Internet » ASP Clásico »

Error (0x800A01A8)

Estas en el tema de Error (0x800A01A8) en el foro de ASP Clásico en Foros del Web. Hola amigos fijense que estoy tratando de ejecutar mi pagina pero me mnad este error: Tipo de error: Error de Microsoft VBScript en tiempo de ...
  #1 (permalink)  
Antiguo 06/04/2006, 20:05
 
Fecha de Ingreso: septiembre-2003
Mensajes: 182
Antigüedad: 20 años, 9 meses
Puntos: 1
Error (0x800A01A8)

Hola amigos fijense que estoy tratando de ejecutar mi pagina pero me mnad este error:

Tipo de error: Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: 'Server'
/title.asp, line 19

Y la verdad ya he revisado el codigo y no le encuentro ojala me puedan ayudar aqui les dejo mi codigo

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Pagina nueva 1</title>
<!-- #include file="adovbs.inc"-->
<%
catrn = Request("qcatnr")
If catnr = "" Then catnr = 100
If Not IsNumeric(catnr) Then catnr = 100
%>
</head>

<body>
<%
Set cnHol = Server.CreateObject("ADODB.Connection")
cnStHol = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath(holiday.mdb)
cnHol.Open cnStHol,"",""

Set rsCat = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM categories WHERE (catnr=" & catnr & ")"
rsCat.Open sql, cnHol, adOpenStatic, adLockReadOnly

If rsCat.EOF Then
CatTitle = "Holiday"
Else
CatTitle = rsCat("catdesc")

If IsNull (rsCat("icon")) ="" Then
catIcon=""
Else
catIcon="<img src=" & Chr(34) &_
"C:\Inetpub\wwwroot\images\thumb" & rsCat("icon") & _
Chr(34) & "border=0>" & vbCrLf
End If
End If



rsCat.Close
Set rsCat = Nothing
cnHol.Close
Set cnHol = Nothing
%>
</body>

</html>
  #2 (permalink)  
Antiguo 06/04/2006, 23:49
Avatar de ElAprendiz  
Fecha de Ingreso: enero-2002
Ubicación: Maipu, Chile
Mensajes: 3.706
Antigüedad: 22 años, 4 meses
Puntos: 2
"dbq=" & Server.MapPath("holiday.mdb")

de todas maneras trata de usar oledb
<%
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:\mydatabase.mdb"
%>
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:47.