henrikjohansson
2002-09-03, 19:45
Jag skall försöka bygga en dynamisk meny och behöver lite hjälp.
Jag skulle vilja ha en flytta upp respektive flytta ner knapp så jag kan byta plats på Länkarna (hoppas ni förstår vad jag menar)
Här är koden jag använder.
Så här ser databasen ut
Texten Pos SidID ID
Länk 1 1 1 1
Länk 2 2 2 2
Länk 3 4 4 3
Länk 4 3 3 4
<html>
<head>
<title></title>
</head>
<body bgcolor="D1D1D1" text="#000000" link="#000000" vlink="#000000" alink="#000000" background="bgbilder/left.gif">
<base target="main">
<%
dim connect, databas
set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("databas\db.mdb") & ";pwd=;"
set databas = server.createobject("ADODB.recordset")
%>
<%
databas.Open "meny Order by pos", Connect, 2, 2
while not databas.EOF
Texten = databas("Texten")
SidID = databas("SidID")
%>
<a href="main.asp?Sida=<%=SidID%>"><%=Texten%></a><br>
<%
databas.MoveNext
wend
databas.Close
connect.Close
%>
</body>
</html>
Jag skulle vilja ha en flytta upp respektive flytta ner knapp så jag kan byta plats på Länkarna (hoppas ni förstår vad jag menar)
Här är koden jag använder.
Så här ser databasen ut
Texten Pos SidID ID
Länk 1 1 1 1
Länk 2 2 2 2
Länk 3 4 4 3
Länk 4 3 3 4
<html>
<head>
<title></title>
</head>
<body bgcolor="D1D1D1" text="#000000" link="#000000" vlink="#000000" alink="#000000" background="bgbilder/left.gif">
<base target="main">
<%
dim connect, databas
set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("databas\db.mdb") & ";pwd=;"
set databas = server.createobject("ADODB.recordset")
%>
<%
databas.Open "meny Order by pos", Connect, 2, 2
while not databas.EOF
Texten = databas("Texten")
SidID = databas("SidID")
%>
<a href="main.asp?Sida=<%=SidID%>"><%=Texten%></a><br>
<%
databas.MoveNext
wend
databas.Close
connect.Close
%>
</body>
</html>