Hvoffor kan man ikke dette.

Hov

<%
Dim YourId
YourId = Request.Querystring(\"YourId\")
%>
<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
  Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\\home\\formordk\\db\\member.mdb\"
  Set RS = conn.Execute (\"SELECT GodkendtAfBruger From MedlemsInfo WHERE MedlemsIdNr =\'\" & YourId & \"\'\")
 
    If RS = (\"Ja\")  Then
    Response.Write \"Din konto er aktiveret\"
    Else
    Response.Write \"Din konto er ikke aktiveret\"
    End IF
    %>

du skal skrive

If RS(\"[kolonne]\") = \"Ja\" then

fordi RS er et recordsetobject, mens \"Ja\" er en streng. Du kan ikke sammenligne en streng og et object på den måten... :)

/nute

Fordi RecordSheetet \'RS\' er en collection. dvs at du ikke kan udtrække noget fra \'RS\' alene, der skal være defineret en parameter som er det felt du vil udtrække. fx: \'RS(\"GodkendtAfBruger\")\'

Det helt rigtige ville være:

<%
Dim YourId
YourId = Request.Querystring(\"YourId\")
%>
<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
  Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\\home\\formordk\\db\\member.mdb\"
  Set RS = conn.Execute (\"SELECT GodkendtAfBruger From MedlemsInfo WHERE MedlemsIdNr =\'\" & YourId & \"\'\")
 
    If RS(\"GodkendtAfBruger\") = (\"Ja\")  Then
    Response.Write \"Din konto er aktiveret\"
    Else
    Response.Write \"Din konto er ikke aktiveret\"



og så skal du også huske \'End If\'

--- > nute

Du fik ret :-))

troede det egentligt bare når man kan lave en direkte If Rs.Eof blabla i andre sammen sætninger