Find ud af om posten er først eller sidst!
Jeg har et lille problem!Jeg har en liste, hvor den lister efter nummer! Og så vil jeg kunne flytte linket op eller ned i listen, det virker osse fint... MEN! Hvis det er den først eller den sidste skal den enten KUN flyttes OP eller NED!
Men hvordan kan jeg gøre det smartest???
Her er den første side:
pages.asp:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../data/moduledb.mdb")
Conn.Open DSN
strSQL = "SELECT * FROM MainIndex Order By id"
Set rs = Conn.Execute(strSQL)
response.Write("<tr bgcolor='" & Session("Backgroundcolor") & "' >")
response.Write("<td bgcolor='" & Session("Backgroundcolor") & "' width='80%'><div align='left'><font size='2' face='Arial, Helvetica, sans-serif'><a href='pageEdit.asp?id=" & rs("id") & "' target='_self'>") & rs("menuitem") & ("</font></td>")
response.Write("<td bgcolor='" & Session("Backgroundcolor") & "' width='5'><div align='left'><font size='2' face='Arial, Helvetica, sans-serif'><a href='pageMoveUp.asp?id=" & rs("id") & "' target='_self'>") & "+" & ("</font></td>")
response.Write("<td bgcolor='" & Session("Backgroundcolor") & "' width='5'> / </td>")
response.Write("<td bgcolor='" & Session("Backgroundcolor") & "' width='5'><div align='left'><font size='2' face='Arial, Helvetica, sans-serif'><a href='pageMoveDown.asp?id=" & rs("id") & "' target='_self'>") & "-" & ("</font></td>")
response.Write("<td bgcolor='" & Session("Backgroundcolor") & "' width='20%'><div align='center'><font size='1' face='Arial, Helvetica, sans-serif'><a href='pageremove.asp?id=" & rs("id") & "' target='_self'>Delete</font></td>")
response.Write("</tr>")
rs.movenext
LOOP
%>
Og den anden side:
pagemovedown.asp:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../data/moduledb.mdb")
Conn.Open DSN
Session("IdNumber") = Request.Querystring("id")
Session("NewNumber") = Session("IdNumber") + 1
strSQL1 = "Update MainIndex set id=0 Where Id =" & Session("IdNumber") &""
strSQL2 = "Update MainIndex set id=" & Session("IdNumber") & " Where Id =" & Session("NewNumber") &""
strSQL3 = "Update MainIndex set id=" & Session("NewNumber") & " Where Id =0"
Conn.Execute(strSQL1)
Conn.Execute(strSQL2)
Conn.Execute(strSQL3)
response.Redirect("pages.asp")
%>
