Hola amigos fijense que estoy tratando de hacer una pequeña consulta de mi base de datos pero me manda el siguiente error:
Error de compilación de Microsoft VBScript (0x800A0408)
Carácter no válido
/default.asp, line 40, column 8
Chr(34) % ">" & _
-------^
Les dejo mi codigo esperando me puedan ayudar y decirme por que estuve mal se los agradeceria muchisimo.
<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"-->
</head>
<body>
<table>
<tr>
<th>Fecha</th>
<th>Lugar</th>
<th>Pais</th>
<th>Descrpcion</th>
</tr>
</table>
<%
Set conHol = Server.CreateObject("ADODB.Connection")
conStHol = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("holiday.mdb")
conHol.Open conStHol,"",""
Set rsCat = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM categories ORDER BY catnr ;"
rsCat.Open sql, conHol, adOpenStatic, adLockReadOnly
%>
Do While Not rsCat.EOF
<table>
<tr>
<td valign="top"><%=rsCat("catdate")%> </td>
<td valign="top"><%
Response.write "<a href=" & _
Chr(34) & _
"catalog.asp?" & _
"qcatnr=" & rsCat("catnr") & _
Chr(34) % ">" & _
rsCat("catdesc") & "</a>"
%></td>
<td valign="top"><%=rsCat("country")%> </td>
<td valign="top"><%=rsCat("comments")%> </td>
</tr>
<%
rsCat.MoveNext
Loop
rsCat.Close
Set rsCat = Nothing
conHol.Close
Set conHol = Nothing
%>
</body>
