Notationi string/variabel

Måske

show2 = show2 & "menu = '"
show2 = show2 & visning2("linkfile")
show2 = show2 & "' or "

show2 = show2 & "menu = """
show2 = show2 & visning2("linkfile")
show2 = show2 & """ or "

Desværre virker ingen af jeres forslag, fejlen er stadig "type mismatch"

jeg har også prøvet med

show2 = show2 & "menu = """"
show2 = show2 & visning2("linkfile")
show2 = show2 & """" or "

og

show2 = show2 & "menu = """""
show2 = show2 & visning2("linkfile")
show2 = show2 & """"" or "

det virker heller ikke

Hvad er visning2? en sub? og er det VBScript?

det er udtræk af felt fra db

og ja, vb

Er det helt sikkert at det lige er den kode der som fejler, for det ser ikke specielt suspekt ud... talværdier vil bliver konvereteret at VBScript-fortolkeren og det samme gælder null-værdier...

Kan du vise den kontekst som de 3 linier indgår i?

Set visning2 = Conn.Execute("Select linkfile, linkname, niveau, reference, placering, users From ashansen_admin_links Where users >= '" & Session("ID") & "' AND placering= '" & placement & "'" & "AND niveau ='2' AND reference='" & Links("linkname") & "' ORDER BY linkname ASC")
show2 = ""
Do
show2 = show2 & "menu = """"
show2 = show2 & visning2("linkfile")
show2 = show2 & """" or "

visning2.MoveNext
Loop While Not visning2.EOF
visning2.MoveFirst

med de "rette" " kan jeg godt udskrive variablen med response.write
Jeg skal bruge variablen i en if sætning:
If show2 then
...
End if

hvis der ikke kommer " om visning2("linkfile"), så fejler den i if sætningen

Hvad mener du med den if-sætning?

if show2<>"" then

??  Type mismatch kan komme fra databasen. Er niveau et talfelt?

Og vis venligst hele fejlbeskeden!

Hmmm... lidt risky at vente med at checke for EOF til efter du har aflæst den første række (men det er måske bare et udtryk for at du ved at der ALTID bliver returneret mindst en række...?)

Personligt ville jeg gøre sådan her (bare for at undgå en runtimefejl, den dag hvor der rent faktisk ikke er nogle rækker...):

Set visning2 = Conn.Execute("Select linkfile, linkname, niveau, reference, placering, users From ashansen_admin_links Where users >= '" & Session("ID") & "' AND placering= '" & placement & "' AND niveau ='2' AND reference='" & Links("linkname") & "' ORDER BY linkname ASC")
show2 = ""
Do  While Not visning2.EOF
  show2 = show2 & "menu = """ & visning2("linkfile") & """ or "

  visning2.MoveNext
Loop
visning2.MoveFirst


NB: jeg har lige indføjet et mellemrum før den sidste AND.

Technical Information (for support personnel)

Error Type:
Sun ONE ASP VBScript runtime (0x800A000D)
Type mismatch
/admin\functions\links.asp, line 21


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.1)

Page:
GET /default.asp

Time:
Wednesday, November 30, 2005, 8:19:59 PM


More information:
Sun ONE Active Server Pages Support

Godt, og linie 21 er så hvilken ?

linie 21 er ifsætningen

If show2 then
...
End if

Og hvad gør
    if show2<>"" then
så ved det?

den validerer
Hvis indholdet af variablen er opfyldt, så går den ind i if sætningen.

Her et eks.

if menu="test" or menu="test2" then
...
end if

Det skal (kan) du ikke gøre. Tag betingelsen med i SELECT-sætningen.

Næh!? Det er vist en ny feature i VBScript så... :)

Hvis du vil det, så skal du nok gøre sådan i stedet

if ExecuteGlobal("show2") then


men jeg tvivler faktisk på at det vil fungere... :)

Jeg tror du er bedre tjent med at opsamle en boolsk status inde i dit loop i stedet.

det kan jeg ikke for jeg skal bruge valideringen på nogle link der skal være i if sætningen. For hvis den ikke skal vi det ene link, så skal den vise det andet.
Det virker hvis jeg hardkoder det, så det må kunne laves dynamisk

OK, nåede ikke lige at se EJ's kommentar :)

jeg takker for jeres tid.
Jeg vil spekulerer lidt over en anden løsning så.
Med lad mig give jer point for indsatsen

Hvis du insisterer - velbekomme :)

"så det må kunne laves dynamisk" ... ikke på den måde.

Men hvis det ikke giver mening at lave i SELECT-sætningen, så må du jo lave det i while-løkken (og ikke i din "do ... while" - den bruger man stort set ikke). Skitse:

ok=false
while ....
  if visning2("linkfile")=menu then
    ok=true
  end if
  ...
end whlie

erikjacobsen >> "(og ikke i din "do ... while" - den bruger man stort set ikke)." Hvad mener du med det? Det er da afløseren for den gamle/forældede notation "while...wend"...

Ja, ja, mente jo "do ... loop"

Ja, ja, det opfattede jeg også, men jeg mener nu stadig hvad jeg skrev om det med loop-konstruktionen. Do..Loop-konstruktionen er da mere fleksibel end while..wend, så derfor foretrækker jeg personligt den konstruktion (men det er så nok bare mig der ikke er normal :))...

Ja, men vi er helt enige - det er bare den skøre syntaks i VB ... Altså: man skal altid teste i toppen af løkken (hvordan syntaksen nu end er) ;)

Nu ved jeg godt at jeg er træls, men bare lige for en god ordens skyld, så kan man godt checke i slutningen. Jeg frarådede det bare i dette tilfælde (og alle andre tilfælde hvor man itererer et recordset) af åbenlyse årsager.

Anyway! Tak for point :)