Here is the message I get when I clink on the link. I did write the
code so I'm not sure what got deleted. Please Help!
ERROR:
Click on the sermon title to view it, or click the edit link to edit
the content, or the delete link to delete the sermon.
Microsoft JET Database Engine error '80040e14'
Syntax error (missing operator) in query expression 'SermonDate
DESCENDING'.
/sermonlist.asp, line 37
CODE:
<%
Option Explicit
Response.Buffer = True
If Session("User") = "" then
Session("FromPage") = "sermonlist.asp"
Response.Redirect("Login.asp")
End If
dim cn, cmd, rs, DataPath, strSQL, TxtClr
Response.Write("<html><head><title>Sermons</title></head><body><br><br>")
Response.Write("<center>Click on the sermon title to view it, or click
the edit link to edit the content, or the delete link to delete the
sermon.</center><br><br>")
DataPath = Server.MapPath("Calvary.mdb")
DataPath = Replace(DataPath, "wwwroot", "Database")
DataPath = Replace(DataPath, "\", "/")
set cn = CreateObject("ADODB.Connection")
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionTimeout = 40
cn.Open DataPath
set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = cn
set rs = CreateObject("ADODB.RecordSet")
strSQL = "Select * From Sermons Order By SermonDate DESCENDING"
cmd.CommandText = strSQL
set rs = cmd.execute
Response.Write("<table cellspacing='2' cellpadding = '3' align =
'center'>")
Response.Write("<tr><th>Sermon Title</th><th>Sermon Date</th><th>Pastor
Name</th><th>Edit</th><th>Delete</th></tr>")
TxtClr = "#FFFFFF"
Do While (Not rs.eof)
If TxtClr = "#FFFFFF" Then
TxtClr = "#CCCCCC"
Else
TxtClr = "#FFFFFF"
End If
Response.Write("<tr bgcolor = " & TxtClr & "><td><a
href='view.asp?Name=" & Server.urlencode(rs("SermonTitle")) & "'>" &
rs("SermonTitle") & "</a></td")
Response.Write("<td>" & rs("SermonDate") & "</td>")
Response.Write("<td>" & rs("PastorName") & "</td>")
Response.Write("<td><a href='edit_sermon.asp?Name=" &
server.urlencode(rs("SermonTitle")) & "'>Edit</a></td>")
Response.Write("<td><a href='delete.asp?Name=" & server.urlencode(
rs("SermonTitle")) & "'>Delete</a></td></tr>")
rs.MoveNext
Loop
Response.Write("</table></body></html>")
rs.close
set rs = nothing
set cmd = nothing
cn.close
set cn = nothing
%>