What am I doing wrong in this?
Code:
<%OPTION EXPLICIT%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>show an individual verse</title>
</head>
<body bgcolor="white">
<%
Dim DSNName
Dim Conn
Dim RS
Dim SQL1
dim Book_Title
dim Chapter
Book_Title = request.Querystring("Book_Title")
Chapter = request.Querystring("Chapter")
DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="
DSNName = DSNName & Server.MapPath("kjv.mdb")
DSNName = DSNName & ";PWD=" & "mypass"
'Opening Database connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSNName
set RS = Server.CreateObject("ADODB.recordset")
SQL1 = "Select Book_Title, Chapter FROM Bible WHERE Book_Title = " & Book_Title & " AND Chapter = " & Chapter
rs.Open sql1,conn, 1
Dim listen
listen = "http://www.audio-bible.com/cgi-ab/hurl?f=/ab/audio/kjv/" & rs("book_title") & "_" & rs("chapter") & ".ra"
%>
<embed src="<%response.write listen%>" name="url" width="376" height="32"></embed>
<%
rs.close
conn.close
%>
</body>
</html>
Quote:
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
The request properties can not be supported by this ODBC Driver.
/wheelofgod/listenspokesresp.asp, line 32
|
Quote:
|
Line 32: rs.Open sql1,conn, 1
|