Object required: ''

Får detta felmeddelande:

Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/ac.asp, line 16

Så här ser koden ut:

id=Request("id")

SQL="SELECT * FROM friends WHERE relid=" & id
16-->Conn.Execute(SQL)

Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open SQL, Conn, 3,3

rs("ac")="Ja"
Rs.Update

response.redirect("friends.asp?se=" & username)
%>

Hur skapar du conn? Felmemddelandet betyder att conn inte är ett giltigt connectionobjekt.

Lite optimering av din kod.

SQL="Update friends set ac = 'Ja' WHERE relid=" & Request("id")
Conn.Execute SQL,,128

response.redirect "friends.asp?se=" & username
%>

ööööö vet inte riktigt! Så här ser min hela koden ut!

<%
Option Explicit
Dim sql, se, username, ja, rs, conn, id

username = Request.Cookies("username")

if username = "" then
  Response.Redirect("nologin.asp?page=friends.asp")
end if

<!--#include file="conn.asp"-->
id=Request("id")

SQL="SELECT * FROM friends WHERE relid=" & id
16-->Conn.Execute(SQL)

Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open SQL, Conn, 3,3

rs("ac")="Ja"
Rs.Update

response.redirect("friends.asp?se=" & username)
%>

Hur ser filen conn.asp ut?

Det är kopplingen till databasen! Den fungerar på alla andra sidor! Så här ser den ut:

<%
Dim ConnectString, conn

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/siteinabox.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
%>

Tror inte felet ligger där.....

Har du

on error resume next

någonstans i någon include-fil?

Du borde få fel i din include fil eftersom du har

dim conn

på två ställen. Du kan ju ta bort conn i den och testa igen

Dim sql, se, username, ja, rs, id

den säger att den vill ha conn med i dim raden! Och jag har ingen on error eftersom jag inte vill ha nå fel =P Det e till en kompis lista!

Du har <% %> i includefilen, vad händer om avslutar asp innan du gör include?

<%
Option Explicit
Dim sql, se, username, ja, rs,  id

username = Request.Cookies("username")

if username = "" then
  Response.Redirect("nologin.asp?page=friends.asp")
end if
[b]%>[/b]
<!--#include file="conn.asp"-->
[b]<%[/b]
id=Request("id")

SQL="SELECT * FROM friends WHERE relid=" & id
Conn.Execute(SQL)

Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open SQL, Conn, 3,3

rs("ac")="Ja"
Rs.Update

response.redirect("friends.asp?se=" & username)
%>

Fan att man inte såg det..... Det fungerar nu! tack för hjälpen :D