CAMBIEMOS AL CONEXION Y VEAMOS QUE PASA Y PERSONALICEMOS EL ERROR
Código:
Set Conn = Server.CreateObject("ADODB.Connection")
set RS=Server.CreateObject("ADODB.Recordset")
' Conexión por OLEDB
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source="&Server.MapPath("VBQUIZ.mdb")&";"
sql="SELECT * FROM quiz WHERE QuizID=" & request.querystring("Quiz") &";"
On Error Resume Next
set RS = Conn.Execute(sql)
If Err.number<>0 then
response.write err.description
response.end
end if
if not RS.eof and not RS.bof then
%>
<font face="Arial">
<b><% =rs("QuizName") %></b>
<hr>
<font size=2>
<% =rs("quizheader") %>
<p>
<%end if%>