variabel ud af string+var

<% DIM afstand1, afstand2, afstand3 %>
<%
While ((Repeat7__numRows <> 0) AND (NOT menu_char_lenght.EOF))
%>
<% afstand = afstand & " " & Repeat7__index+1 = (Len(rs_sub_menu.Fields.Item("menu").Value)) %>
<%
  Repeat7__index=Repeat7__index+1
  Repeat7__numRows=Repeat7__numRows-1
  menu_char_lenght.MoveNext()
Wend
%>

er det sådan du mener?

//>Rune

sejt, takker...
Huuunmmmm, det virker åbenbart ikke at indsætte i et javascript


<!--
var menus = [
        new SlideOutMenu("menu1", "down", <%=afstand1%>, 45, 170, 300),
        new SlideOutMenu("menu2", "down", <%=afstand2%>, 45, 170, 300),
        new SlideOutMenu("menu3", "down", <%=afstand3%>, 45, 170, 300)
    ]


den returnere:

"down" ???

hvis jeg udskriver:
= "afstand1= "&afstand1& " " & "afstand2= "& afstand2 & " " & "afstand3= " & afstand3 %

bliver det til:
afstand1=  afstand2=  afstand3=

????

har du et bud, selv om det ikke er javascript forum dette her ;0()

ja, ASP variabler kan IKKE udskrives som JavaScript variabler... Altså alt i alt, ASP og JavaScript kan ikke arbejde sammen idet JavaScript er Klient-sided og ASP er Server-sided! -Du kune jo evt. skrive:

= "afstand1= <%= afstand1%> " & "afstand2= <%= afstand1%> " & "afstand3= <%= afstand1%>"

//>Rune

Hvad hvis man udskriver ASPén først, kan man så ikke benytte værdien i javascript?

mht. at lave en simpel uskrift er det noget andet som går galt. Det bliver ikke udskrevet.


måske noget galt med  <% afstand = afstand & " " & Repeat7__index+1 = (Len(rs_sub_menu.Fields.Item("menu").Value)) %> 

men tak for denne gang...

hummm
uden javascript og noget som helst udskrives intet....

selv sådan her er alt tomt...

HER: <%= afstand1%> <%= afstand2%> <%= afstand3%>

Hmm.. tror du ikke der skal stå <%= menu_char_lenght("afstand1") %> osv.?

//>Rune

Thx 4 Poinz

//>Rune

niet

<% DIM afstand1, afstand2, afstand3 %> ' nu bliver var sat
<%
While ((Repeat7__numRows <> 0) AND (NOT menu_char_lenght.EOF))
%>
<% afstand = afstand & " " & Repeat7__index+1 = (Len(rs_sub_menu.Fields.Item("menu").Value)) %> ' her skrives afstand1 ,..2 og ..3
<%
  Repeat7__index=Repeat7__index+1
  Repeat7__numRows=Repeat7__numRows-1
  menu_char_lenght.MoveNext()
Wend
%>

herefter er afstand1 TOM ?

A´hh okay, det er jo fordi du prøver at generere dynamiske variabler! Så skal du bruge Execute() foran...


<% Execute("afstand" & Repeat7__index+1 & "= (Len rs_sub_menu.Fields.Item("menu").Value))") %>

//>Rune

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/kunder/viemose-driboga/index.asp, line 335

Execute("afstand" & Repeat7__index+1 & "= (Len rs_sub_menu.Fields.Item("menu").Value))")
------------------------------------------------------------------------^
Det lyder rigtigt men,
jeg har flyttet runt på parentesir nu i 15 min. der er noget et eller andet galt.

Hmm i det heletaget er det en forkert måde du laver det på... Du skal bruge Arrays i dette tilfælde..!

Men hvor mange poster kan der være i databasen? -altså hvor mange har du brug for?

//>Rune

jeg har prøvet:

<% Execute("afstand" & Repeat7__index+1 & "= (Len rs_sub_menu.Fields.Item("menu").Value) ") %>

<% Execute("afstand" & Repeat7__index+1 & "= (Len rs_sub_menu.Fields.Item("menu").Value)" ") %>

<% Execute("afstand" & Repeat7__index+1 & "= (Len rs_sub_menu.Fields.Item("menu").Value)" & ") %>

og fortsætter...

afstand1 og afstand2 og afstand3 skal beregnes for at kunne flytte menu1 menu2 og menu3 dynasmisk så menu passer over dropdowns. Det er ikke så vildt. Det er ikke noget som skal gemmes i databasen men tre records hentes og tekstens længde måles.

Hmm ok.. så skal du gøre sådan her:

<% DIM afstand1, afstand2, afstand3 %> ' nu bliver var sat
  Dim afstand(2)
lngAntal = 0
While ((Repeat7__numRows <> 0) AND (NOT menu_char_lenght.EOF))
lngAntal = lngAntal +1
afstand(lngAntal) = (Len(rs_sub_menu.Fields.Item("menu").Value))
  Repeat7__index=Repeat7__index+1
  Repeat7__numRows=Repeat7__numRows-1
  menu_char_lenght.MoveNext()
Wend
%>

og så udskrive det på denne måde:
= "afstand1= "& afstand(0) & " " & "afstand2= "& afstand(1) & " " & "afstand3= " & afstand(2) &

//>Rune

Du kan se eksempel her:
http://www.grabit.dk/kunder/viemose-driboga/index.asp?s=2&p=14
dropdown skal stå under topmenuerne..
Jeg tror efterhånden jeg laver toppen i faste tables istedet for al det bøvl....

jeg prøver lige det du sendte....

Graaa!!!

<% DIM afstand1, afstand2, afstand3 %> ' nu bliver var sat
  Dim afstand(2)
lngAntal = 0
For i = 0 To 3
afstand(i) = (Len(rs_sub_menu.Fields.Item("menu").Value))
  Repeat7__index=Repeat7__index+1
  Repeat7__numRows=Repeat7__numRows-1
  menu_char_lenght.MoveNext()
Next
%>

Prøv lige med denne!
//>Rune

Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'lngAntal'

/kunder/viemose-driboga/index.asp, line 348

ok, jeg prøver...

Prøv lige det overnfor jeg sendte...

//>Rune

Hmm hvis den overforikke virker.. så prøv lige at sig -1 til 3!

<% DIM afstand1, afstand2, afstand3 %> ' nu bliver var sat
  Dim afstand(2)
lngAntal = 0
For i = 0 To 3 -1
afstand(i) = (Len(rs_sub_menu.Fields.Item("menu").Value))
  Repeat7__index=Repeat7__index+1
  Repeat7__numRows=Repeat7__numRows-1
  menu_char_lenght.MoveNext()
Next
%>

//>Rune

<% DIM afstand1, afstand2, afstand3
  Dim afstand(2)
lngAntal = 0
For i = 0 To 3
afstand(i) = (Len(rs_sub_menu.Fields.Item("menu").Value))
  Repeat7__index=Repeat7__index+1
  Repeat7__numRows=Repeat7__numRows-1
  menu_char_lenght.MoveNext()
Next
%>


Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'i'

/kunder/viemose-driboga/index.asp, line 347

Prøv lgie den overfor ;o)

//>Rune

dette virker:

<% DIM afstand1, afstand2, afstand3
  Dim afstand(2)
lngAntal = 0
For i = 0 To 2
afstand(i) = (Len(rs_sub_menu.Fields.Item("menu").Value))
  Repeat7__index=Repeat7__index+1
  Repeat7__numRows=Repeat7__numRows-1
  menu_char_lenght.MoveNext()
Next
%>

men hvorfor giver de alle 4 ???

huse borde og gardiner er da forskellige?

*LOL* Ved det skam ikke! :-D

Men er ked af at sige det, men jeg har ik' mere tid her i aften... Er det ok?

//>Rune

Det er fint, du er kongen. ;o)

;o)