Avatar billede meyer Nybegynder
02. juni 2008 - 12:45 Der er 1 kommentar og
1 løsning

Problemer med dropdown menu

Nogen der kan fortælle mig hvad der går galt her og hvad jeg kan gøre ved det?

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
  <TITLE>ASP Sample</TITLE>
<script type="text/javascript" src="stmenu.js"></script>
</HEAD>

<BODY>

<script type="text/javascript">
<!--
stm_bm(["menu501d",830,"","blank.gif",0,"","",0,0,250,0,1000,1,0,0,"","",0,0,1,2,"default","hand",""],this);
stm_bp("p0",[0,4,0,0,2,3,0,7,100,"",-2,"",-2,50,0,0,"#999999","#E6EFF9","",3,1,1,"#000000"]);
<%
Dim Dbq, Dsn, Dc
Dim rsCat, rsProduct, rsTep
Dim sCatName, sProduct, sLink
                                               
Dbq = Server.MapPath(".\") & "\products.mdb;"
Dsn = "driver={Microsoft Access Driver (*.mdb)};pwd=;Dbq=" & Dbq
Set Dc = Server.CreateObject("ADODB.Connection")
Dc.Open Dsn
Set rsCat = Dc.Execute("SELECT * FROM CATEGORY")

While Not rsCat.EOF
sCatName=rsCat("NAME")
%>
stm_ai("p0i0",[1,"<%=sCatName%>","","",-1,-1,0,"","_self","","","","",0,0,0,"arrow_r.gif","arrow_r.gif",7,7,0,0,1,"#E6EFF9",0,"#FFD602",0,"","",3,3,1,1,"#E6EFF9","#000000","#000000","#000000","8pt Verdana","8pt Verdana",0,0]);
stm_bpx("p1","p0",[1,4]);
<%
Set rsProduct = Dc.Execute("SELECT * FROM PRODUCTS WHERE CID=" & rsCat(0))
While Not rsProduct.EOF
sProduct = rsProduct("NAME")
sLink = rsProduct("LILNK")
%>
stm_ai("p1i0",[1,"<%=sProduct%>","","",-1,-1,0,"<%=sLink%>","_self","","","","",0,0,0,"arrow_r.gif","arrow_r.gif",7,7,0,0,1,"#E6EFF9",0,"#FFD602",0,"","",3,3,1,1,"#E6EFF9","#000000","#000000","#000000","8pt Verdana","8pt Verdana",0,0]);
stm_bpx("p2","p0",[1,2,0,0,2,3,0,0]);
<%
Set rsTep = Dc.Execute("SELECT * FROM template WHERE PID=" & rsProduct(0))
While Not rsTep.EOF
sTepName = rsTep("NAME")
sTepLink = rsTep("LINK")
%>
stm_ai("p2i0",[1,"<%=sTepName%>","","",-1,-1,0,"<%=sTepLink%>","_self","","","","",0,0,0,"","",0,0,0,0,1,"#E6EFF9",0,"#FFD602",0,"","",3,3,1,1,"#E6EFF9","#000000","#000000","#000000","8pt Verdana","8pt Verdana",0,0]);
<%
rsTep.MoveNext
Wend
%>
stm_ep();
<%
rsProduct.MoveNext
Wend
%>
stm_ep();
<%
rsCat.MoveNext
Wend
%>

stm_ep();
stm_em();
//-->
</script>

</BODY>
</HTML>

Får denne fejl:
[Microsoft][ODBC Microsoft Access Driver] Selected collating sequence not supported by the operating system.
Avatar billede meyer Nybegynder
02. juni 2008 - 12:47 #1
Det er her fejlen kommer:
Set rsProduct = Dc.Execute("SELECT * FROM PRODUCTS WHERE CID=" & rsCat(0))
Avatar billede meyer Nybegynder
03. juni 2008 - 10:13 #2
lukker
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
Kurser inden for grundlæggende programmering

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