[MrJL]

Ok, I can download scripts and sometimes I can get them to work. I've been batting about .500 lately, this is a swing & a miss, though. I got an error.

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]Error in row

/quotes/quote_submit.asp, line 37

And the code:

<% 
	quote = request.form("quotecrt")
	name = request.form("namecrt")
	
	quote = Replace(quote,"&##&","""")
	name = Replace(name,"&##&","""")
				
  	Set Conn=Server.CreateObject("ADODB.Connection")
	Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/fpdb/quotes.mdb")

	SQL = "Select top 1 * from quotes order by quoteid desc;"
	
	Set rs = Server.CreateObject("ADODB.Recordset")
      
	rs.open sql,conn,1,3
	  

	if not rs.eof then
		num = rs("quoteid") + 1
	else
		num = 1
	end if

	flag = false
	rs.addnew
	rs("quoteid") = num
	rs("quotetext") = quote
	rs("author") = name
	rs.update
	
	rs.close	
	conn.close
	set rs = nothing
	set conn = nothing
	Response.Redirect "index.asp"
%>

Line 37 is the re.update line (I omitted the html tags & such.

Any help appreciated. Thanks!

Jer!