0x800A0411 og Name redefined

Bruger I includes ??

//akj

jeg gætter på det er fordi hentetSprog findes i en fil som du inkludere på et tidspunkt..

Vi inkludere ovenstående, der står på en side for sig selv i disse to sider:


<---------------------db_funktioner.asp--------------------->

<!--#include file="../varSide.asp"-->

<%
Dim arr_apparat_List
Dim arr_stik_List
Dim arr_kabel_List
Dim arr_sideData_List

Sub getGetLanguage()

    getLanguage("apparat")
    getLanguage("stik")
    getLanguage("kabel")
    getLanguage("sideData")

End Sub

Sub getLanguage(assignTo)

    Dim rs, Conn, DSN
    Dim tempAssignTo
    tempAssignTo = assignTo
   
' line 24 ---------- opretter forbindelse til databasen ----------------
    Set rs = Server.CreateObject("ADODB.Recordset")
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath ("databaser/stikDB.mdb")
    Conn.Open DSN
   
    Dim sqlSetning
   
'---------- ud fra session finder vi hvilket sprog brugeren har valgt og laver vores sql setning efter det ----------
    If (session("language") = "Da") then
        sqlSetning = "select danish from Language where tilhoere='apparat'"
    Elseif (session("language") = "Swe") then
        sqlSetning = "select swedish from Language where tilhoere='apparat'"
    Elseif (session("language") = "No") then
        sqlSetning = "select norwegian from Language where tilhoere='apparat'"
    Elseif (session("language") = "Fin") then
        sqlSetning = "select finnish from Language where tilhoere='apparat'"
    Else sqlSetning = "select english from Language where tilhoere='apparat'"
    End if

' Line 45 ----------- udføre sql setningen ---------------
    Set rs = Conn.Execute(sqlSetning)
   
'-------- apparat_List skal bruges til at lave et array med teksterne fra databasen LanguageDB hvor tilhoer=apparat ud fra det valgte sprog -----------
   
    Dim apparat_List
    apparat_List = ""
    Dim stik_List
    stik_List = ""
    Dim kabel_List
    kabel_List = ""
    Dim sideData_List
    sideData_List = ""
   
    Dim f
    f = ""
    Dim seperator   
    seperator = "¤%&"
   
    if (tempAssignTo = "apparat") then
    do       
        f = "" & rs(0)

        apparat_List = apparat_List & f & seperator
        rs.MoveNext
    loop While Not rs.EOF
   
    Elseif (tempAssignTo = "stik") then
    do       
        f = "" & rs(0)

        stik_List = stik_List & f & seperator
        rs.MoveNext
    loop While Not rs.EOF

    Elseif (tempAssignTo = "kabel") then
    do       
        f = "" & rs(0)

        kabel_List = kabel_List & f & seperator
        rs.MoveNext
    loop While Not rs.EOF

    Elseif (tempAssignTo = "sideData") then
    do       
        f = "" & rs(0)

        sideData_List = sideData_List & f & seperator
        rs.MoveNext
    loop While Not rs.EOF
   
    End if

'----------- lukker forbindelsen til databasen -----------
    Conn.Close
    Set Conn = Nothing
   
'--------- her laves arrayet ud fra apparat_List -----------
    if (tempAssignTo = "apparat") then
        arr_apparat_List = Split(apparat_List, seperator)
    elseif (tempAssignTo = "stik") then
        arr_stik_List = Split(stik_List, seperator)
    elseif (tempAssignTo = "kabel") then
        arr_kabel_List = Split(kabel_List, seperator)
    elseif (tempAssignTo = "sidaData") then
        arr_sideData_List = Split(sideData_List, seperator)
    End if

    'setHentetSprog("yes")
       
End Sub


Function getApparat(s)
    getApparat = arr_apparat_List(s)
End Function

Function getStik(s)
    getStik = arr_stik_List(s)
End Function

Function getKabel(s)
    getKabel = arr_kabel_List(s)
End Function

Function getSideData(s)
    getSideData = arr_sideData_List(s)
End Function

Function getadmin(tempUsername, tempPassword)

'---------- opretter forbindelse til databasen ----------------
    Set rs = Server.CreateObject("ADODB.Recordset")
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath ("databaser/userDB.mdb")
    Conn.Open DSN
   
    Dim sqlSetning
    sqlSetning = "select admin FROM User WHERE username='" & tempUsername & "' AND password='" & tempPassword & "'"
    Set rs = Conn.Execute(sqlSetning)

    Dim svar
    svar = ""

    If (not rs.EOF) And (not rs.bof) then
        If (isnull(rs(0))) then
            Response.write "1"
            svar = "no"
        Elseif (rs(0) = "yes") then
            Response.write "2"
            svar = "yes"
        Else
            Response.write "3"
            svar = "no"
        End If
    Else
        Response.write "Ingen resultater"
        svar = "no"
    End If   

    getAdmin = svar

'----------- lukker forbindelsen til databasen -----------
    Conn.Close
    Set Conn = Nothing

End Function

%>


<------------------------siden.asp--------------------------->


<!--#include file="side_functioner.asp"-->
<!--#include file="db_functioner.asp"-->
<!--#include file="../varSide.asp"-->


<%       

Sub language()
    Dim tempLanguage
    tempLanguage = session("language")
    If (tempLanguage = Null OR tempLanguage = "") then
        session("language") = "Da"     ' Eng = english. Da = Danish, Swe = Swedish, Fin = Finnsih, No = Norwegian
        session.Timeout = 60        ' sessionen vil dø efter 60 min
    Elseif (tempLanguage = "Da") then
        session("language") = "Da"    
        session.Timeout = 60
    Elseif (tempLanguage = "Swe") then
        session("language") = "Swe"    
        session.Timeout = 60
    Elseif (tempLanguage = "No") then
        session("language") = "No"    
        session.Timeout = 60
    Elseif (tempLanguage = "Fin") then
        session("language") = "Fin"    
        session.Timeout = 60
    Elseif (tempLanguage = "Eng") then
        session("language") = "Eng"    
        session.Timeout = 60   
    End If
End Sub


Sub siden(side_indhold)
   
    language()
    'Dim hentet
    'hentet = "" & getHentetSprog()
    'if (hentet = "no") then
        getGetLanguage()
    'End if
   
    Dim indhold
    indhold1 = side_indhold

    Response.Write "<table cellpadding='0' cellspacing='0'>"
        ' <!-- start header -->
        Response.Write "<tr height='78' width='100%' bgcolor='#562972'>"
            Response.Write "<td colspan='2'>"
                header()
            Response.Write "</td>"
        Response.Write "</tr>"   
        ' <!-- stop header -->

        ' <!-- start header Line -->
        Response.Write "<tr bgcolor='#ECCE05'>"
            Response.Write "<td height='1' width='100%' colspan='2'>"
               
            Response.Write "</td>"
        Response.Write "</tr>"   
        ' <!-- stop header Line -->
       
        ' <!-- start header Kontakt -->
        Response.Write "<tr bgcolor='#000000'>"   


<-----------------------------------Kode slut--------------------->


Og vi har ikke andre sider hvor henteSprog er...

hvad med side_funktioner.asp

<-------------side_funktioner.asp----------->
<!--#include file="../startSiden_indhold.asp"-->
<!--#include file="../vaelg_apparat_indhold.asp"-->
<!--#include file="../vaelg_stik_indhold.asp"-->
<!--#include file="../admin_indhold.asp"-->
<!--#include file="../login_indhold.asp"-->

<%
    Sub header()
        Response.Write "<h1>Velkommen til kabelguiden.dk</h1>"
    End Sub
   
    Sub header_Line()
        Response.Write "<hr/>"
    End Sub
   
    Sub header_Kontakt()
        Response.Write "<a href='login.asp'>Admin</a>"
    End Sub
   
    Sub menu()
        Response.Write "<a href='startSiden.asp'>startSiden</a>"
        Response.Write "<br/>"
        Response.Write "<a href='vaelg_apparat.asp'>vælg apparat</a>"
        Response.Write "<br/>"
        Response.Write "<a href='vaelg_stik.asp'>vælg stik</a>"
        Response.Write "<br/>"
        Response.Write "<br/>"
       
'-----------husk der mangler et slut a </a> i de 5 linjer her under ----------------
        Response.Write "<a href='setLanguage.asp?langid=Da'><img src='picture/DK_sm.gif'></a>"
        Response.Write "<a href='setLanguage.asp?langid=Swe'><img src='picture/SE_sm.gif'></a>"
        Response.Write "<a href='setLanguage.asp?langid=No'><img src='picture/NO_sm.gif'></a>"
        Response.Write "<a href='setLanguage.asp?langid=Fin'><img src='picture/FIN_sm.gif'></a>"
        Response.Write "<a href='setLanguage.asp?langid=Eng'><img src='picture/UK_sm.gif'></a>"
       

    End Sub

    Sub indholder(side_indhold)
        Dim indhold
        indhold = side_indhold
        hent_indhold(indhold)
    End Sub

    Sub footer_Line()
        Response.Write "<hr/>"
    End Sub

    Sub footer_Motto()
        Response.Write "<p>Kabelguiden makes it easyer</p>"
    End Sub
   
    Sub hent_indhold(side_indhold)
        Dim indhold
        indhold = side_indhold
       
        if (indhold = "startSide") then
            get_startsiden_indhold()
        End if
       
        if (indhold = "fundet") then
           
            Response.Write "<p>dav igen " & indhold & "</p>"
        End if
       
        if (indhold = "vaelg_apparat") then
           
            get_vaelg_apparat_indhold()
        End if
       
        if (indhold = "vaelg_stik") then
           
            get_vaelg_stik_indhold()
        End if

        if (indhold = "login") then
           
            get_login_indhold()
        End if
       
        if (indhold = "admin") then
           
            get_admin_indhold()
        End if
    End Sub
%>

Vi har også et problem her---->

If (session("language") = "Da") then
        sqlSetning = "select danish from Language where tilhoere='apparat'"
    Elseif (session("language") = "Swe") then
        sqlSetning = "select swedish from Language where tilhoere='apparat'"
    Elseif (session("language") = "No") then
        sqlSetning = "select norwegian from Language where tilhoere='apparat'"
    Elseif (session("language") = "Fin") then
        sqlSetning = "select finnish from Language where tilhoere='apparat'"
    Else sqlSetning = "select english from Language where tilhoere='apparat'"
    End if

' Line 45 ----------- udføre sql setningen ---------------
    Set rs = Conn.Execute(sqlSetning)
Den siger at hvis vi udskifter apparat med vores variabel tempAssignTo så er der for få parametre????

benytter du option explicit, for hvis ikke så prøv at remme linien ud der laver den første fejl, altså

<html>

<head>
    <title>Kabelguiden</title>
</head>

<body>
    <%   
        'Dim hentetSprog
        hentetSprog = "no"       
       
        setHentetSprog("no")
        Response.Redirect "startsiden.asp"

        Sub setHentetSprog(yn)
            Dim tempHentetSprog
            tempHentetSprog = "" & yn
            hentetSprog = "" & tempHentetSprog
        End Sub

        Function getHentetSprog()
            getHentetSprog = "" & hentetSprog
        End Function
    %>
</body>

</html>

Det virkede!!
Tak ellebaek!

Vi har fået løst det andet problem vi havde!

så smider jeg da et svar ;-)