Type mitmath

sikkert fordi Request.Form("vælgapparata") er tom.....

<%

Sub get_vaelg_apparat_indhold()

Response.Write "<form action='Vaelg_stik.asp' method='post'>"

Response.Write "<select name='vælgapparata'>"

For t = getApparatStoerrelseL() to getApparatStoerrelseU() 
    Response.Write "<option value='&t&'>"&getApparat(t)&"</option>"
Next   
Response.Write "</select>"

Response.Write "<select name='vælgapparatb'>"

    For t = getApparatStoerrelseL() to getApparatStoerrelseU() 
    Response.Write "<option value='&t&'>"&getApparat(t)&"</option>"
Next   
Response.Write "</select>"


Response.Write "<input type='submit' value='Ok'>"

Response.Write "</form>"



End Sub


 
 






%>


Hvad?

Response.Write "<option value='"&t&"'>"&getApparat(t)&"</option>"

så skulle det virke. Request.Form("vælgapparata") har indeholdt &t& og ikke værdien af t.

Nu får vi denne fejl:



Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/sandberg/functioner/db_functioner.asp, line 210
----------Fra db_Functioner.asp--------------

Sub get_Valgt_Stik(v)

Dim rs, Conn, DSN
Dim arr_Valgt_Stik
Dim Valgt_Stik_List
Dim f
Dim seperator
seperator="¤%&"
f=""



    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 strSQL

    strSQL = "select * from App_stik_ref Where apparat_ID=v"

    Set rs = Conn.Execute(strSQL)

   
   
       
    If (not rs.EOF) And (not rs.bof) then
        If (isnull(rs(0))) then
            Response.write "1"
            vaelgStikSvar("no")
           
        Else
            Response.write "2"
            do       
                f = "" & rs(0)
                Valgt_Stik_List = Valgt_Stik_List & f & seperator
                rs.MoveNext
            loop While Not rs.EOF
            arr_vaelgt_Stik = Split(Valgt_Stik_List, seperator)
            vaelgStikSvar("yes")
        End If
    Else
        Response.write "Ingen resultater"
        vaelgStikSvar("no")
    End If   

    Conn.Close
    Set Conn = Nothing
   

End Sub

Sub get_Valgt_Stik(v)

Dim rs, Conn, DSN
Dim arr_Valgt_Stik
Dim Valgt_Stik_List
Dim f
Dim seperator
seperator="¤%&"
f=""



    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 strSQL

    strSQL = "select * from App_stik_ref Where apparat_ID='" & v &"'"

    Set rs = Conn.Execute(strSQL)

   
   
       
    If (not rs.EOF) And (not rs.bof) then
        If (isnull(rs(0))) then
            Response.write "1"
            vaelgStikSvar("no")
           
        Else
            Response.write "2"
            do       
                f = "" & rs(0)
                Valgt_Stik_List = Valgt_Stik_List & f & seperator
                rs.MoveNext
            loop While Not rs.EOF
            arr_vaelgt_Stik = Split(Valgt_Stik_List, seperator)
            vaelgStikSvar("yes")
        End If
    Else
        Response.write "Ingen resultater"
        vaelgStikSvar("no")
    End If   

    Conn.Close
    Set Conn = Nothing
   

End Sub

Vi får denne fejl, når vi ændre i db_funktioner.asp:


Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.

/sandberg/functioner/db_functioner.asp, line 210

apparat_ID er sat til tal i Databasen.

Okay vi fik rettet ovenstående fejl men vi får denne i stedet for:

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'setApparatA'
/sandberg/Vaelg_stik.asp, line 17


--------------Koden----------------------------------------------------


<% @LANGUAGE = "VBScript" %>

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

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

<html>

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

<body>
    <%   
        StrA = Request.Form("vaelgapparata")
        StrB = Request.Form("vaelgapparatb")
        SetApparatA() = INT(StrA)
        SetApparatB() = StrB

        session("site") = "Vaelg_stik"
        session.Timeout = 60
        siden("vaelg_stik")
    %>
</body>

</html>

er villig til at give flere point hvis det skulle lokke nogen!?!

SetApparatA = INT(StrA)
SetApparatB = StrB

Error Type:
Microsoft VBScript runtime (0x800A01F5)
Illegal assignment: 'setApparatA'
/sandberg/Vaelg_stik.asp, line 17

er SetApparatA og SetApparatB funktioner????

Ja det er funktioner fra siden varSide:

<%   
    'Dim hentetSprog
    hentetSprog = "no"
    app_a = null
    app_b = null    
    'Dim VaelgStikSvar
    VaelgStikSvar = ""
   
   
    Sub setHentetSprog(yn)
        Dim tempHentetSprog
        tempHentetSprog = "" & yn
        hentetSprog = "" & tempHentetSprog
    End Sub

    Function getHentetSprog()
        getHentetSprog = "" & hentetSprog
    End Function

    Sub setApparatA(a)
        Dim tempa
        tempa = a
        app_a = tempa
    End Sub

    Function getApparatA()
        getApparatA = app_a
    End Function

           
    Sub setApparatB(b)
        Dim tempb
        tempb = b
        app_b = tempb
    End Sub

    Function getApparatB()
        getApparatB = app_b
    End Function

    Function getVaelgStikSvar()
        getVaelgStikSvar = "" & VaelgStikSvar
    End Function

    Sub SetVaelgStikSvar(sv)
        Dim tempsvar
        tempsvar = "" & sv
        VaelgStikSvar = "" & tempsvar
    End Sub

%>

SetApparatA(INT(StrA))
SetApparatB(StrB)

tak det virkede!!!!!

Jaaaa
Jubiiiii
smid et svar

kommer her :o)

Hov var lige lidt hurtig med at sige ,at det virkede.
den siger en ny fejl :
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'LBound'
/sandberg/functioner/db_functioner.asp, line 314

---------------Koden db_functioner.asp--------------


Function getVaelgtStikA(s)
    getVaelgtStikA = arr_Vaelgt_StikA(s)
End Function

Function getValgtStikStoerrelseUA()
    getValgtStikStoerrelseUA = UBound(arr_Vaelgt_StikA)-1
End Function

Function getValgtStikStoerrelseLA()
    getValgtStikStoerrelseLA = LBound(arr_Vaelgt_StikA)
End Function




Function getVaelgtStikB(s)
    getVaelgtStikB = arr_Vaelgt_StikB(s)
End Function


Function getValgtStikStoerrelseUB()
    getValgtStikStoerrelseUB = UBound(arr_Vaelgt_StikB)-1
End Function

Function getValgtStikStoerrelseLB()
    getValgtStikStoerrelseLB = LBound(arr_Vaelgt_StikB)
End Function


------------------end Kode--------------------

-------------------vaelg_Stik_indhold.asp-----------------------



<%

Sub get_vaelg_stik_indhold()

Response.Write "<form action='.asp' method='post'>"
       
    Dim a
    a = getApparatA()
    get_Valgt_StikA(a)
    Dim gvssA
    gvssA = getVaelgStikSvarA()

    Dim b
    b = getApparatB()
    get_Valgt_StikB(b)
    Dim gvssB
    gvssB = getVaelgStikSvarB()

    if (gvssA = "yes") OR (gvssB = "yes") then

        Response.Write "<table>"
            Response.Write "<tr>"
                Response.Write "<td>"
                    Response.Write "<p>Marker de stik du har i apparat " & getApparatA() &"</p>"   
                    For t1 = getValgtStikStoerrelseLA() to getValgtStikStoerrelseUA() 
                            Response.Write "'&getVaelgtStikA(t1)&'<input type='checkbox' name='as'&'&t1&'><br>"
                    Next
                Response.Write "</td>"
                           

                Response.Write "<td>"
                    Response.Write "<p>Marker de stik du har i apparat " & getApparatB() &"</p>"   
                    For t2 = getValgtStikStoerrelseLB() to getValgtStikStoerrelseUB() 
                            Response.Write "'&getVaelgtStikB(t2)&'<input type='checkbox' name='as'&'&t2&'><br>"
                    Next
                Response.Write "</td>"
            Response.Write "</tr>"
        Response.Write "</table>"

        Response.Write "<input type='submit' value='Ok'>"

    Else
        Response.Write "<p>ingen stik til dig idag</p>"
        Response.Write "gvssA =" & gvssA & ""
        Response.Write "gvssB =" & gvssB & ""

    End if


Response.Write "</form>"

End Sub

%>

smid lige et svar igen fennec!!!
jeg laver et nyt spg til det andet.

ok