Hvordan inkluderer jeg et ASP-dokument?

<%
                If mode = "own_profile" then
                %>
<!--#include virtual="/includes/own_profile.asp"-->
                <%
                End if  <- Linie 71
                %>

mangler du en End if i include-filen ?
Prøv at indsætte en End if mere på linie 72

Nej, så får jeg en "Expected statement" (mangler en if)

har du noget asp i den inkluderede fil, der kan forårsage fejlen?

own_profile.asp:

                <%
                    'Kontrollerer om brugeren er logget ind
                    If session("bruger") = "" then
                        Response.Redirect("/default.asp?mode=login")
                    End if

                    'Henter brugerens profil
                    Set RS = Server.CreateObject("ADODB.Recordset")
                    SQL = "SELECT * FROM profiler WHERE bruger = '" & Session("bruger") & "'"
                    RS.open SQL, conn, 1, 3

                        If Request.ServerVariables("REQUEST_METHOD") = "POST" then
                                'Opdaterer felterne
                                RS.update
                                RS("brugerkode") = Server.HTMLEncode(Request("adgangskode"))
                                RS("brugeremail") = Server.HTMLEncode(Request("email"))
                                RS("brugerHjemmeside") = Server.HTMLEncode(Request("hjemmeside"))
                                RS("brugerTekst") = Server.HTMLEncode(Request("fri_tekst"))
                                RS.update
                        End if
                %>

FORMULARER ER SAT IND HER

                <%
                RS.close
                Set RS = nothing
                End if
                %>

Der er 3 End If'er i scritpet men kun 2 If'er

Det virker fint, når jeg sætter indholdet fra own_profile.asp over i default.asp:

                <%
                If mode = "own_profile" then

                    'Kontrollerer om brugeren er logget ind
                    If session("bruger") = "" then
                        Response.Redirect("/default.asp?mode=login")
                    End if

                    'Henter brugerens profil
                    Set RS = Server.CreateObject("ADODB.Recordset")
                    SQL = "SELECT * FROM profiler WHERE bruger = '" & Session("bruger") & "'"
                    RS.open SQL, conn, 1, 3

                        If Request.ServerVariables("REQUEST_METHOD") = "POST" then
                                'Opdaterer felterne
                                RS.update
                                RS("brugerkode") = Server.HTMLEncode(Request("adgangskode"))
                                RS("brugeremail") = Server.HTMLEncode(Request("email"))
                                RS("brugerHjemmeside") = Server.HTMLEncode(Request("hjemmeside"))
                                RS("brugerTekst") = Server.HTMLEncode(Request("fri_tekst"))
                                RS.update
                        End if
                %>

FORMULARER ER SAT IND HER

                <%
                RS.close
                Set RS = nothing
                End if
                %>

du har vist bare fået enten en end if for meget i own_profile.asp eller i siden, der kalder den. prøv at fjerne en af de sidste 2 end if'er

Der skulle gerne være 3 If'er og 3 End if'er. Eller ...?

så har du også en END IF mindre!
Fjern END IF efter set Rs=nothing

så skulle din include virke

Så kommer den i karambolage med den næste <% if mode=".....

NU virker det :o) Øjeblik...

default.asp:

                <%
                If mode = "own_profile" then
                %>
<!--#include virtual="/includes/own_profile.asp"-->
                <%
                RS.close
                Set RS = nothing
                End if
                %>

own_profile.asp:

                <%
                    'Kontrollerer om brugeren er logget ind
                    If session("bruger") = "" then
                        Response.Redirect("/default.asp?mode=login")
                    End if

                    'Henter brugerens profil
                    Set RS = Server.CreateObject("ADODB.Recordset")
                    SQL = "SELECT * FROM profiler WHERE bruger = '" & Session("bruger") & "'"
                    RS.open SQL, conn, 1, 3

                        If Request.ServerVariables("REQUEST_METHOD") = "POST" then
                                'Opdaterer felterne
                                RS.update
                                RS("brugerkode") = Server.HTMLEncode(Request("adgangskode"))
                                RS("brugeremail") = Server.HTMLEncode(Request("email"))
                                RS("brugerHjemmeside") = Server.HTMLEncode(Request("hjemmeside"))
                                RS("brugerTekst") = Server.HTMLEncode(Request("fri_tekst"))
                                RS.update
                        End if
                %>

FORMULARER ER SAT IND HER

Tak for hjælpen :o)

jeg ville nok sætte

RS.close
Set RS = nothing

i includen, så det følges ad

tak for point

Det har du ret i. Det er hermed gjort :o)