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>
