Avatar billede mmolsen Nybegynder
24. september 2002 - 13:23 Der er 3 kommentarer og
1 løsning

Javascript med ASP -- kan ikke få det til at virke

Hej eksperter.

Jeg har "lånt" et lille javascript herinde på eksperten, som sørger for at skifte billede ud ved onmouseover.

Men det script jeg har er ikke dynamisk, og det skal det være. Jeg har prøvet at lege med det, men kan ikke få det til at funge.

Ideen er at jeg skal have lavet en menu, alt efter hvor mange poster der er i min varegruppe-tabel.

Er der nogen der vil tage et lille kig. (jeg er ikke skarp til javascript)

********Script********
<script LANGUAGE="javascript">
<!--


imgpath=""
imgtype=".gif"
currID = 5
imgname=new Array();

imgname[0] = "menupunkt1";

function fnimgswap(id,navn)
{
if (id != currID)
{
document.images[navn].src=imgpath+imgname[id]+imgtype;
currID = id;
}
else
{
document.images[navn].src='menupunkt2.gif'
currID = id+1;
}
}

//-->
</script>

****koden hvor menuen oprettes******
<%
  Dim SQLvaregruppe
  Set SQLvaregruppe = Conn.Execute(" Select * From VareGrupper")
  Dim Navn
 
%>

<% 
  If Not SQLvaregruppe.BOF then
    Do While Not SQLvaregruppe.EOF
      If SQLvaregruppe("GruppeType") = "Herre" then
        Navn = "imgswap"
        Navn = Navn + SQLvaregruppe("GruppeNavn")
%>      <img id="<%= Navn %>" name="<%= Navn %>" src="menupunkt2.gif">&nbsp;
        <a href="Varer.asp" onmouseover="java script:fnimgswap('0',<%= Navn %>)" onMouseout="java script:fnimgswap('0',<%= Navn %>)" class="menulink"><% Response.Write(SQLvaregruppe("GruppeNavn")) %></a>
        <br />
<% 
      Else
      End If
    SQLvaregruppe.MoveNext
    Loop
  Else
    Response.Write("&nbsp;")
  End If
%>

Håber at der kan findes en løsning, ellers så spørg
Avatar billede mmolsen Nybegynder
24. september 2002 - 13:25 #1
det skal lige siges, at problemet ligger i at navn og id på billedet skal ændres for hver post, derfor skal scriptet også kaldes med et andet navn.

Hvis der er nogen der har en helt anden løsning, så er det også godt
Avatar billede mmolsen Nybegynder
24. september 2002 - 15:09 #2
Ingen ??
Avatar billede mmolsen Nybegynder
25. september 2002 - 02:01 #3
Nå men så måtte jeg vel selv finde ud af det :)
Ændrede hele lortet så jeg brugte noget CSS istedet.


<%
  Dim SQLvaregruppe
  Set SQLvaregruppe = Conn.Execute(" Select * From VareGrupper")
  Dim Navn
  Navn= "1"
 
%>



<% 
  If Not SQLvaregruppe.BOF then
    Do While Not SQLvaregruppe.EOF     
      If SQLvaregruppe("GruppeType") = "Herre" then
         
   
          Response.Write("<Style type=text/css>#img"&Navn&"{visibility: hidden; Boarder-right: 1px;}</style>")
          Response.Write("<Img ID=img"&Navn&" src=menupunkt1.GIF><A class=menulink HREF=varer.asp?VareType=Herre&GruppeNavn="&SQLvaregruppe("GruppeNavn")&" onMouseOver=document.all.img"&Navn&".style.visibility='Visible' onMouseOut=document.all.img"&Navn&".style.visibility='Hidden'>")
          Response.Write(SQLvaregruppe("GruppeNavn")&"</A><br />")
         
          Navn = Navn + "1"

       
      Else
      End If
    SQLvaregruppe.MoveNext
    Loop
  Else
    Response.Write("&nbsp;")
  End If

%>


Er det godt nok ??
Avatar billede mmolsen Nybegynder
25. september 2002 - 02:01 #4
Ja tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi tilbyder markedets bedste kurser inden for webudvikling

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB