if sætning i en if sætning

fejl eller hvad...jeg er ik helt med ?

Prøv med sådan noget her (jeg regner med at du selv kan finde ud af at tilpasse det :-))

<%
If (Session(\"accesslevel\") = 1 Or Session(\"accesslevel\") = 2) Then
    Session(\"diviblad_Slet\") = \"ok\"
ElseIf (Session(\"accesslevel\") = 3 Or Session(\"accesslevel\") = 4) Then
    Set Conn    = CreateObject(\"ADODB.Connection\")
    Conn.Open    \"din dsn...\"

    Set tjek    = Conn.Execute(\"SELECT refid FROM dintabel WHERE refid=\'\"& Session(\"refid\") &\"\'\")

    If (tjek.BOF Or tjek.EOF) Then
        Response.Redirect(\"godkendt.asp?side=diviblad\")
    Else
        Session(\"diviblad_slet\")    = \"ok\"
    End if

    Set Conn    = Nothing
    Set tjek    = Nothing
End if
%>

>>zeth

Jeg kan ikke helt få det til at stemme, men her er hele koden hvis du gider... :-)

et Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../inc/db/spejder.mdb\")
id = Request.QueryString(\"id\")
set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open \"SELECT * FROM diviblad WHERE ID=\" & id, Conn, 1, 3

dim diviblad_level
diviblad_level = 2
if cint(session(\"AccessLevel\")) < diviblad_level then
session(\"diviblad_slet\") = \"ok\"
end if
dim diviblad
diviblad = 2
if cint(session(\"AccessLevel\")) > diviblad then
if rs(\"refid\") <> session(\"refid\") then
response.redirect(\"godkendt.asp?side=diviblad\")
else
session(\"diviblad_slet\") = \"ok\"
end if
end if

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../inc/db/spejder.mdb\")
id = Request.QueryString(\"id\")
set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open \"SELECT * FROM diviblad WHERE ID=\" & id, Conn, 1, 3

If (Session(\"accesslevel\") = 1 Or Session(\"accesslevel\") = 2) Then
    Session(\"diviblad_Slet\") = \"ok\"
ElseIf (Session(\"accesslevel\") = 3 Or Session(\"accesslevel\") = 4) Then
    Set Conn    = CreateObject(\"ADODB.Connection\")
    Conn.Open    \"din dsn...\"

    Set tjek    = Conn.Execute(\"SELECT refid FROM dintabel WHERE refid=\'\"& Session(\"refid\") &\"\'\")

    If (tjek.BOF Or tjek.EOF) Then
        Response.Redirect(\"godkendt.asp?side=diviblad\")
    Else
        Session(\"diviblad_slet\")    = \"ok\"
    End if

    Set Conn    = Nothing
    Set tjek    = Nothing
End if
%>

Hvad skal jeg skrive i coon.open \"din dsn...\"?

\"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../inc/db/spejder.mdb\")

Får nu følgende fejl:
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.
/troldhoej2/interne/diviblad/oversigt.asp, line 59

line 59:
Set tjek    = Conn.Execute(\"SELECT refid FROM diviblad WHERE refid=\'\"& Session(\"refid\") &\"\'\")

<%
If (Session(\"accesslevel\") = 1 Or Session(\"accesslevel\") = 2) Then
    Session(\"diviblad_Slet\") = \"ok\"
ElseIf (Session(\"accesslevel\") = 3 Or Session(\"accesslevel\") = 4) Then

Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"../inc/db/spejder.mdb\")
Conn.Open DSN
Set tjek    = Conn.Execute(\"SELECT refid FROM dintabel WHERE refid=\'\"& Session(\"refid\") &\"\'\")

    If (tjek.BOF Or tjek.EOF) Then
        Response.Redirect(\"godkendt.asp?side=diviblad\")
    Else
        Session(\"diviblad_slet\")    = \"ok\"
    End if

    Set Conn    = Nothing
    Set tjek    = Nothing
End if
%>


Prøv denne her!

Nej, desværre ikke...
Er det nemmere, hvis jeg sender dig filen og databasen?

Prøv det! willi@gizom.com
Jeg se på det i morgen, OK

Det var da ærgeligt, men så lukker vi!!!

Skulle være et svar!

Jeg har da sendt dig en mail om at jeg ikke kunne løse det, på anden måde end denne her. jeg skrev også hvorfor. Hvis dette her ikke virker så må du have fat i nogen der ved mere end mig!
<%
If (Session(\"accesslevel\") = 1 Or Session(\"accesslevel\") = 2) Then
    Session(\"diviblad_Slet\") = \"ok\"
ElseIf (Session(\"accesslevel\") = 3 Or Session(\"accesslevel\") = 4) Then

Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"../inc/db/spejder.mdb\")
Conn.Open DSN
strSQL = \"SELECT refid FROM dintabel WHERE refid=\'\"& Session(\"refid\") &\"\'\"
Set tjek = Conn.Execute(strSQL)

    If (tjek.BOF Or tjek.EOF) Then
        Response.Redirect(\"godkendt.asp?side=diviblad\")
    Else
        Session(\"diviblad_slet\")    = \"ok\"
    End if

    Set Conn    = Nothing
    Set tjek    = Nothing
End if
%>


:> Gizom