hjælp:

elseif request.QueryString("punkt") = "2" Then

Uden mellemrum mellem else og if

else if skal laves om til elseif

der er kamp om det her &:-)

samme fejl..

Kopier noget mere af koden herind

ok...
først sagde den der var for lidt end if... og jeg lagde nogen ind
if request.QueryString("punkt") = "1" Then
SQL = "Select * from kassen where Id = " & request.QueryString("id")
Set rs = Conn.Execute(SQL)
If rs.eof Then
response.write "fejl!"
Else if rs("regi") = True Then
response.write "ordren er allerede været igen dette.."
else
strNavn = rs("brugernavn")
SQL = "Select * from kassen where brugernavn ='"& strNavn & "'"
Set rs = Conn.Execute(SQL)
If rs.EOF Then
response.write "ingen varer!:("
else
strNavn = rs("brugernavn")
strVareid = rs("vare_id")
strAntal = rs("antal")
Do
SQL2 = "Select * from varer where ID = "& strVareid
Set rs2 = Conn.Execute(SQL2)
strPrisen = rs2("pris")
strPris = rs2("pris") * strAntal
strPrisSamlet = strPrisSamlet + strPris
response.write "<form ACTION=""vare.asp?rediger=ja&id=" & rs("id") & """ name=""form1"" method=""POST"">"
  Response.Write rs2("varenavn") & " antal: <input type=text name=antal value=" & rs("antal") & "> <input type=""submit"" name=""Submit"" value=""ændre""> pris : " & strPris &"<a href=""vogn_i.asp?slet=ja&id=" & rs("ID") & """>slet..</a><br></form>"
  rs.MoveNext
Loop While Not rs.EOF
response.write "<p>pris:" & strPrisSamlet & "."
response.write "<a href=""vare.asp?punkt=2&id=" & request.QueryString("id") & """>ok.. registrere.."
end if
end if
end if
end if
end if
elseif request.QueryString("punkt") = "2" Then

hjælp..
for en fejl hvis jeg fjerner de end if??

du har en mere af dem her:

response.write "fejl!"
Else if rs("regi") = True Then
response.write "ordren er allerede været igen dette.."

som skal rettes.

Du kan jo ikke bare sætte end if'er ind som det passer dig...
Nu ved jeg ikke om det passer med antallet men kan da se at du har en
Else if mere som stadig væk skal være elseif.

Du har endnu een hvor du har else if - skal ændres til elseif.

Jeg kan ikke få det sidste her til at stemme ind:
end if
end if
elseif request.QueryString("punkt") = "2" Then

Prøv at fjern disse 3 linier.
Eller det er måske ikke hele koden du har kopieret herind?

Else if rs("regi") = True Then
ændres til
Elseif rs("regi") = True Then

vil i havde hele koden??:
i denne har jeg slette nogen end if som giver denne fejl:
'End' var ventet
/ind/vare.asp, line 41
elseif request.QueryString("punkt") = "2" Then


koden:
<!--#include file="1.asp"-->
<%
if session("admin") <> "ja" Then
response.write "Dette er kun for admins!!!"
ELSE
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("butik.mdb")
Conn.Open DSN
if request.QueryString("punkt") = "1" Then
SQL = "Select * from kassen where Id = " & request.QueryString("id")
Set rs = Conn.Execute(SQL)
If rs.eof Then
response.write "fejl!"
Else if rs("regi") = True Then
response.write "ordren er allerede været igen dette.."
else
strNavn = rs("brugernavn")
SQL = "Select * from kassen where brugernavn ='"& strNavn & "'"
Set rs = Conn.Execute(SQL)
If rs.EOF Then
response.write "ingen varer!:("
else
strNavn = rs("brugernavn")
strVareid = rs("vare_id")
strAntal = rs("antal")
Do
SQL2 = "Select * from varer where ID = "& strVareid
Set rs2 = Conn.Execute(SQL2)
strPrisen = rs2("pris")
strPris = rs2("pris") * strAntal
strPrisSamlet = strPrisSamlet + strPris
response.write "<form ACTION=""vare.asp?rediger=ja&id=" & rs("id") & """ name=""form1"" method=""POST"">"
  Response.Write rs2("varenavn") & " antal: <input type=text name=antal value=" & rs("antal") & "> <input type=""submit"" name=""Submit"" value=""ændre""> pris : " & strPris &"<a href=""vogn_i.asp?slet=ja&id=" & rs("ID") & """>slet..</a><br></form>"
  rs.MoveNext
Loop While Not rs.EOF
response.write "<p>pris:" & strPrisSamlet & "."
response.write "<a href=""vare.asp?punkt=2&id=" & request.QueryString("id") & """>ok.. registrere.."
end if

elseif request.QueryString("punkt") = "2" Then
SQL = "Select * from kassen where Id = " & request.QueryString("id")
Set rs2 = Conn.Execute(SQL)
If rs.eof Then
response.write "fejl!"
Elseif rs("regi") = True Then
response.write "ordren er allerede været igen dette.."
else

sql = "Update kategorier Set regi = True Where ID = "& request.QueryString("id")
set rs = Conn.Execute
Response.write "det gik.... følende ting skal i pakken: <p>"
Do
response.write rs2("varenavn") & " antal = " & rs2("antal") & ".<br>"
  rs.MoveNext
Loop While Not rs2.EOF
end if
else if request.QueryString("slet") = "ja" Then
strSQL = "Delete from kassen where Id = " & request.QueryString("id") & ""
Conn.Execute(strSQL)
end if
response.write "slettet"
else if request.QueryString("rediger") = "ja" Then
strSQL = "Update kassen set "
strSQL = strSQL & "antal= '" & request.form("antal") & "' "
strSQL = strSQL & " Where Id = " & request.QueryString("id") &" "
Conn.Execute(strSQL)
response.redirect("vare.asp?punkt=1&id=" & request.QueryString("id") & "")
else
response.write "dette er så bestillt listen..<br>"
SQL = "Select * from kassen where regi = false"
Set rs = Conn.Execute(SQL)
If rs.EOF Then
response.write "ingen bestillinger :("
Else
Do
response.write "brugernavn : " & rs("brugernavn") & "<a href=""vare.asp?punkt=1&id=" & rs("id") & """>Gør noget ved det...</a><br>"
  rs.MoveNext
Loop While Not rs.EOF
End if
end if
end if
end if
end if
end if
%>
<!--#include file="2.asp"-->

Prøv at slette 2 end if'er som skovtrold siger...
Og indsæt derefter nederst:

end if

er gjort..

Prøv lige det her:

<!--#include file="1.asp"-->
<%
if session("admin") <> "ja" Then
    response.write "Dette er kun for admins!!!"
ELSE
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("butik.mdb")
    Conn.Open DSN

    if request.QueryString("punkt") = "1" Then
        SQL = "Select * from kassen where Id = " & request.QueryString("id")
        Set rs = Conn.Execute(SQL)

        If rs.eof Then
            response.write "fejl!"
        Elseif rs("regi") = True Then
            response.write "ordren er allerede været igen dette.."
        else
            strNavn = rs("brugernavn")
            SQL = "Select * from kassen where brugernavn ='"& strNavn & "'"
            Set rs = Conn.Execute(SQL)

            If rs.EOF Then
                response.write "ingen varer!:("
            else
                strNavn = rs("brugernavn")
                strVareid = rs("vare_id")
                strAntal = rs("antal")
                Do
                SQL2 = "Select * from varer where ID = "& strVareid
                Set rs2 = Conn.Execute(SQL2)
                strPrisen = rs2("pris")
                strPris = rs2("pris") * strAntal
                strPrisSamlet = strPrisSamlet + strPris
                response.write "<form ACTION=""vare.asp?rediger=ja&id=" & rs("id") & """ name=""form1"" method=""POST"">"
                Response.Write rs2("varenavn") & " antal: <input type=text name=antal value=" & rs("antal") & "> <input type=""submit"" name=""Submit"" value=""ændre""> pris : " & strPris &"<a href=""vogn_i.asp?slet=ja&id=" & rs("ID") & """>slet..</a><br></form>"
                rs.MoveNext
                Loop While Not rs.EOF
                response.write "<p>pris:" & strPrisSamlet & "."
                response.write "<a href=""vare.asp?punkt=2&id=" & request.QueryString("id") & """>ok.. registrere.."
            end if

        elseif request.QueryString("punkt") = "2" Then
            SQL = "Select * from kassen where Id = " & request.QueryString("id")
            Set rs2 = Conn.Execute(SQL)

            If rs.eof Then
                response.write "fejl!"

                Elseif rs("regi") = True Then
                    response.write "ordren er allerede været igen dette.."
                else
                    sql = "Update kategorier Set regi = True Where ID = "& request.QueryString("id")
                    set rs = Conn.Execute
                    Response.write "det gik.... følende ting skal i pakken: <p>"
                    Do
                    response.write rs2("varenavn") & " antal = " & rs2("antal") & ".<br>"
                    rs.MoveNext
                    Loop While Not rs2.EOF
                end if

            elseif request.QueryString("slet") = "ja" Then
                strSQL = "Delete from kassen where Id = " & request.QueryString("id") & ""
                Conn.Execute(strSQL)
            end if

            response.write "slettet"

        elseif request.QueryString("rediger") = "ja" Then
            strSQL = "Update kassen set "
            strSQL = strSQL & "antal= '" & request.form("antal") & "' "
            strSQL = strSQL & " Where Id = " & request.QueryString("id") &" "
            Conn.Execute(strSQL)
            response.redirect("vare.asp?punkt=1&id=" & request.QueryString("id") & "")
        else
            response.write "dette er så bestillt listen..<br>"
            SQL = "Select * from kassen where regi = false"
            Set rs = Conn.Execute(SQL)

            If rs.EOF Then
                response.write "ingen bestillinger :("
            Else
                Do
                response.write "brugernavn : " & rs("brugernavn") & "<a href=""vare.asp?punkt=1&id=" & rs("id") & """>Gør noget ved det...</a><br>"
                rs.MoveNext
                Loop While Not rs.EOF
            End if
        end if
    end if
end if
%>
<!--#include file="2.asp"-->

virker det?

Og hvilken fejl får du nu?

nej:
opstod en Microsoft VBScript-kompileringsfejl (0x800A03F6)
'End' var ventet
/ind/vare.asp, line 45
elseif request.QueryString("punkt") = "2" Then

Du skal i 2.asp skrive:
end if
efter
elseif request.QueryString("punkt") = "2" Then

virker heller ikke

Hvad med det her:

<!--#include file="1.asp"-->
<%
if session("admin") <> "ja" Then
    response.write "Dette er kun for admins!!!"
ELSE
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("butik.mdb")
    Conn.Open DSN

    if request.QueryString("punkt") = "1" Then
        SQL = "Select * from kassen where Id = " & request.QueryString("id")
        Set rs = Conn.Execute(SQL)

        If rs.eof Then
            response.write "fejl!"
        Elseif rs("regi") = True Then
            response.write "ordren er allerede været igen dette.."
        else
            strNavn = rs("brugernavn")
            SQL = "Select * from kassen where brugernavn ='"& strNavn & "'"
            Set rs = Conn.Execute(SQL)

            If rs.EOF Then
                response.write "ingen varer!:("
            else
                strNavn = rs("brugernavn")
                strVareid = rs("vare_id")
                strAntal = rs("antal")
                Do
                SQL2 = "Select * from varer where ID = "& strVareid
                Set rs2 = Conn.Execute(SQL2)
                strPrisen = rs2("pris")
                strPris = rs2("pris") * strAntal
                strPrisSamlet = strPrisSamlet + strPris
                response.write "<form ACTION=""vare.asp?rediger=ja&id=" & rs("id") & """ name=""form1"" method=""POST"">"
                Response.Write rs2("varenavn") & " antal: <input type=text name=antal value=" & rs("antal") & "> <input type=""submit"" name=""Submit"" value=""ændre""> pris : " & strPris &"<a href=""vogn_i.asp?slet=ja&id=" & rs("ID") & """>slet..</a><br></form>"
                rs.MoveNext
                Loop While Not rs.EOF
                response.write "<p>pris:" & strPrisSamlet & "."
                response.write "<a href=""vare.asp?punkt=2&id=" & request.QueryString("id") & """>ok.. registrere.."
            end if
        End if

    elseif request.QueryString("punkt") = "2" Then
        SQL = "Select * from kassen where Id = " & request.QueryString("id")
        Set rs2 = Conn.Execute(SQL)

        If rs.eof Then
            response.write "fejl!"

            Elseif rs("regi") = True Then
                response.write "ordren er allerede været igen dette.."
            else
                sql = "Update kategorier Set regi = True Where ID = "& request.QueryString("id")
                set rs = Conn.Execute
                Response.write "det gik.... følende ting skal i pakken: <p>"
                Do
                response.write rs2("varenavn") & " antal = " & rs2("antal") & ".<br>"
                rs.MoveNext
                Loop While Not rs2.EOF
            end if

        elseif request.QueryString("slet") = "ja" Then
            strSQL = "Delete from kassen where Id = " & request.QueryString("id") & ""
            Conn.Execute(strSQL)
        end if

        response.write "slettet"

    elseif request.QueryString("rediger") = "ja" Then
        strSQL = "Update kassen set "
        strSQL = strSQL & "antal= '" & request.form("antal") & "' "
        strSQL = strSQL & " Where Id = " & request.QueryString("id") &" "
        Conn.Execute(strSQL)
        response.redirect("vare.asp?punkt=1&id=" & request.QueryString("id") & "")
    else
        response.write "dette er så bestillt listen..<br>"
        SQL = "Select * from kassen where regi = false"
        Set rs = Conn.Execute(SQL)

        If rs.EOF Then
            response.write "ingen bestillinger :("
        Else
            Do
            response.write "brugernavn : " & rs("brugernavn") & "<a href=""vare.asp?punkt=1&id=" & rs("id") & """>Gør noget ved det...</a><br>"
            rs.MoveNext
            Loop While Not rs.EOF
        End if
    end if
end if
%>
<!--#include file="2.asp"-->

VI KOM VIDERE fejl er nu:
0x800A03F6)
'End' var ventet
/ind/vare.asp, line 71
elseif request.QueryString("rediger") = "ja" Then

Er det ud fra koden jeg sidst kopierede ind?

ja..

komme om lidt... 10 minutter...

Hvad har du i include 1.asp og 2.asp?

Jeg lavede vist en fejl - prøv lige denne en gang:

<!--#include file="1.asp"-->
<%
if session("admin") <> "ja" Then
    response.write "Dette er kun for admins!!!"
ELSE
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("butik.mdb")
    Conn.Open DSN

    if request.QueryString("punkt") = "1" Then
        SQL = "Select * from kassen where Id = " & request.QueryString("id")
        Set rs = Conn.Execute(SQL)

        If rs.eof Then
            response.write "fejl!"
        Elseif rs("regi") = True Then
            response.write "ordren er allerede været igen dette.."
        else
            strNavn = rs("brugernavn")
            SQL = "Select * from kassen where brugernavn ='"& strNavn & "'"
            Set rs = Conn.Execute(SQL)

            If rs.EOF Then
                response.write "ingen varer!:("
            else
                strNavn = rs("brugernavn")
                strVareid = rs("vare_id")
                strAntal = rs("antal")
                Do
                SQL2 = "Select * from varer where ID = "& strVareid
                Set rs2 = Conn.Execute(SQL2)
                strPrisen = rs2("pris")
                strPris = rs2("pris") * strAntal
                strPrisSamlet = strPrisSamlet + strPris
                response.write "<form ACTION=""vare.asp?rediger=ja&id=" & rs("id") & """ name=""form1"" method=""POST"">"
                Response.Write rs2("varenavn") & " antal: <input type=text name=antal value=" & rs("antal") & "> <input type=""submit"" name=""Submit"" value=""ændre""> pris : " & strPris &"<a href=""vogn_i.asp?slet=ja&id=" & rs("ID") & """>slet..</a><br></form>"
                rs.MoveNext
                Loop While Not rs.EOF
                response.write "<p>pris:" & strPrisSamlet & "."
                response.write "<a href=""vare.asp?punkt=2&id=" & request.QueryString("id") & """>ok.. registrere.."
            end if
        End if

    elseif request.QueryString("punkt") = "2" Then
        SQL = "Select * from kassen where Id = " & request.QueryString("id")
        Set rs2 = Conn.Execute(SQL)

        If rs.eof Then
            response.write "fejl!"
        Elseif rs("regi") = True Then
            response.write "ordren er allerede været igen dette.."
        else
            sql = "Update kategorier Set regi = True Where ID = "& request.QueryString("id")
            set rs = Conn.Execute
            Response.write "det gik.... følende ting skal i pakken: <p>"
            Do
            response.write rs2("varenavn") & " antal = " & rs2("antal") & ".<br>"
            rs.MoveNext
            Loop While Not rs2.EOF
        end if

    elseif request.QueryString("slet") = "ja" Then
        strSQL = "Delete from kassen where Id = " & request.QueryString("id") & ""
        Conn.Execute(strSQL)

    response.write "slettet"

    elseif request.QueryString("rediger") = "ja" Then
        strSQL = "Update kassen set "
        strSQL = strSQL & "antal= '" & request.form("antal") & "' "
        strSQL = strSQL & " Where Id = " & request.QueryString("id") &" "
        Conn.Execute(strSQL)
        response.redirect("vare.asp?punkt=1&id=" & request.QueryString("id") & "")
    else
        response.write "dette er så bestillt listen..<br>"
        SQL = "Select * from kassen where regi = false"
        Set rs = Conn.Execute(SQL)

        If rs.EOF Then
            response.write "ingen bestillinger :("
        Else
            Do
            response.write "brugernavn : " & rs("brugernavn") & "<a href=""vare.asp?punkt=1&id=" & rs("id") & """>Gør noget ved det...</a><br>"
            rs.MoveNext
            Loop While Not rs.EOF
        End if
    end if
end if
%>
<!--#include file="2.asp"-->

takker.... meget.... du er gud... :)

Nej, der er vist noget du har misforstået :-))
Men selv tak :-)