SORRY wrong code.. old version :) change If rsMeny("ID") <> ID Then to If rsMeny("ID") = ID Then sorry :) "Christopher Brandsdal" <christopherwbc2i.net> skrev i melding news:u9VKRDMTDHA.2148TK2MSFTNGP11.phx.gbl... > I have a problem. I'm making a expanding menu, but I'm having problems with > my code.. > Here's the code: > > <html> > <head> > <title>default.asp</title> > </head> > > <body> > > <% > ' Connection to the database / Datenbankverbindung > Dim ConnectString, conn > ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & > Server.MapPath("../../Doents and Settings/All > Users/Dokumenter/portal.mdb") > Set conn = Server.CreateObject("ADODB.Connection") > conn.open ConnectString > %> > > ...
Re: Problems width IF.... SORRY wrong code.. old version :)
change
If rsMeny("ID") <> ID Then
to
If rsMeny("ID") = ID Then
sorry :)
"Christopher Brandsdal" <christopherwbc2i.net> skrev i melding
news:u9VKRDMTDHA.2148TK2MSFTNGP11.phx.gbl...with> I have a problem. I'm making a expanding menu, but I'm having problems'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''> my code..
> Here's the code:
>
> <html>
> <head>
> <title>default.asp</title>
> </head>
>
> <body>
>
> <%
> ' Connection to the database / Datenbankverbindung
> Dim ConnectString, conn
> ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
> Server.MapPath("../../Doents and Settings/All
> Users/Dokumenter/portal.mdb")
> Set conn = Server.CreateObject("ADODB.Connection")
> conn.open ConnectString
> %>
>
> <%DIm ID
> ID = Request.Querystring("id") %>
> <%
> 'Henter kategorier
> Dim sqlMeny, rsMeny
> sqlMeny = "SELECT * FROM Meny WHERE Parent = 0 ORDER BY ID ASC"
> Set rsMeny = Server.CreateObject("ADODB.Recordset")
> rsMeny.Open sqlMeny, conn, 3, 3
> do until rsMeny.Eof
> %>
> <%= rsMeny("Navn") %><br>
> <%
>'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''>'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''> '''''
>'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''>ID> '''''
> 'The next line has the problem.. If I change ID to for example 4 the code
> runs fine.... Why will the If line not take the ID variabel?????
> If rsMeny("ID") <> ID Then
> Else
> 'Henter kategorier
> Dim sqlUnder, rsUnder
> sqlUnder = "SELECT * FROM Meny WHERE Parent = "& rsMeny("id") &" ORDER BY> ASC"
> Set rsUnder = Server.CreateObject("ADODB.Recordset")
> rsUnder.Open sqlUnder, conn, 3, 3
> do until rsUnder.Eof
> %>
>
> --<%= rsUnder("Navn") %><br>
>
> <%
> rsUnder.MoveNext
> Loop
>
> End If
> %>
> <%
> rsMeny.MoveNext
> Loop
> 'disconnect
> conn.close
> Set conn = Nothing
> %>
>
> </body>
> </html>
>
>
>
Re: Problems width IF.... Uh, want to tell us what the problem is?
Ray at home
"Christopher Brandsdal" <christopherwbc2i.net> wrote in message
news:u9VKRDMTDHA.2148TK2MSFTNGP11.phx.gbl...with> I have a problem. I'm making a expanding menu, but I'm having problems> my code..
> Here's the code:
> If rsMeny("ID") = ID Then
Re: Problems width IF.... If you see in the code you'll find this :
'The next line has the problem.. If I change ID to for example 4 the code
runs fine.... Why will the If line not take the ID variabel?????
If rsMeny("ID") = ID Then
Sorry! it was maby hard to find :) little tired over here.. 02:40 am over
here :)
"Ray at <%=sLocation%>" <rayajf8jalskdfna.sefrhja7yasdf.com> skrev i
melding news:ua2s5RMTDHA.3500tk2msftngp13.phx.gbl...> Uh, want to tell us what the problem is?
>
> Ray at home
>
> "Christopher Brandsdal" <christopherwbc2i.net> wrote in message
> news:u9VKRDMTDHA.2148TK2MSFTNGP11.phx.gbl...> with> > I have a problem. I'm making a expanding menu, but I'm having problems>> > my code..
> > Here's the code:
> > If rsMeny("ID") = ID Then
>
Re: Problems width IF.... Try CInt'ing or CLng'ing your recordset value.
If CInt(rsMeny.Fields("ID").Value) = CInt(ID) Then
Ray at home
"Christopher Brandsdal" <christopherwbc2i.net> wrote in message
news:OgU53UMTDHA.940TK2MSFTNGP11.phx.gbl...> If you see in the code you'll find this :
>
> 'The next line has the problem.. If I change ID to for example 4 the code
> runs fine.... Why will the If line not take the ID variabel?????
> If rsMeny("ID") = ID Then
>
> Sorry! it was maby hard to find :) little tired over here.. 02:40 am over
> here :)
>
> "Ray at <%=sLocation%>" <rayajf8jalskdfna.sefrhja7yasdf.com> skrev i
> melding news:ua2s5RMTDHA.3500tk2msftngp13.phx.gbl...>> > Uh, want to tell us what the problem is?
> >
> > Ray at home
> >
> > "Christopher Brandsdal" <christopherwbc2i.net> wrote in message
> > news:u9VKRDMTDHA.2148TK2MSFTNGP11.phx.gbl...> > with> > > I have a problem. I'm making a expanding menu, but I'm having problems> >> > > my code..
> > > Here's the code:
> > > If rsMeny("ID") = ID Then
> >
>
Re: Problems width IF.... What would I do widthout you???
THANK YOU RAY!
As you see, it worked :)
I'm really thankfull!
"Ray at <%=sLocation%>" <rayajf8jalskdfna.sefrhja7yasdf.com> skrev i
melding news:uUJ$EaMTDHA.3192tk2msftngp13.phx.gbl...code> Try CInt'ing or CLng'ing your recordset value.
>
> If CInt(rsMeny.Fields("ID").Value) = CInt(ID) Then
>
> Ray at home
>
>
> "Christopher Brandsdal" <christopherwbc2i.net> wrote in message
> news:OgU53UMTDHA.940TK2MSFTNGP11.phx.gbl...> > If you see in the code you'll find this :
> >
> > 'The next line has the problem.. If I change ID to for example 4 theover> > runs fine.... Why will the If line not take the ID variabel?????
> > If rsMeny("ID") = ID Then
> >
> > Sorry! it was maby hard to find :) little tired over here.. 02:40 amproblems> > here :)
> >
> > "Ray at <%=sLocation%>" <rayajf8jalskdfna.sefrhja7yasdf.com> skrev i
> > melding news:ua2s5RMTDHA.3500tk2msftngp13.phx.gbl...> > > Uh, want to tell us what the problem is?
> > >
> > > Ray at home
> > >
> > > "Christopher Brandsdal" <christopherwbc2i.net> wrote in message
> > > news:u9VKRDMTDHA.2148TK2MSFTNGP11.phx.gbl...
> > > > I have a problem. I'm making a expanding menu, but I'm having>> >> > > with
> > > > my code..
> > > > Here's the code:
> > > > If rsMeny("ID") = ID Then
> > >
> > >
> >
>
Re: Problems width IF.... 1 beer please. [;
Ray at home
"Christopher Brandsdal" <christopherwbc2i.net> wrote in message
news:OHxVoeMTDHA.2768tk2msftngp13.phx.gbl...> What would I do widthout you???
>
> THANK YOU RAY!
>
> As you see, it worked :)
>
> I'm really thankfull!
>
>
Re: Problems width IF.... heheheh Mixers man....Mixers
--
----------------------------------------------------------
Curt Christianson (Software_AT_Darkfalz.Com)
Owner/Lead Designer, DF-Software
[url]http://www.Darkfalz.com[/url]
---------------------------------------------------------
...Offering free scripts & code snippits for everyone...
---------------------------------------------------------
"Ray at <%=sLocation%>" <rayajf8jalskdfna.sefrhja7yasdf.com> wrote in
message news:OMFMYxMTDHA.940TK2MSFTNGP11.phx.gbl...> 1 beer please. [;
>
> Ray at home
>
> "Christopher Brandsdal" <christopherwbc2i.net> wrote in message
> news:OHxVoeMTDHA.2768tk2msftngp13.phx.gbl...>> > What would I do widthout you???
> >
> > THANK YOU RAY!
> >
> > As you see, it worked :)
> >
> > I'm really thankfull!
> >
> >
>
Posting Permissions
Bookmarks