Oversæt asp kode til php
nedenståen skal bruges til et menusystem. det er selv sorteringsmekanismen jeg skal have oversat.<%
t = Request.QueryString ("t")
Get_taeller = Request.QueryString ("taeller")
Response.Write "<br>"&right(Get_taeller,2)
If t="op" Then
If right(Get_taeller,2)<>"01" Then
laengden = len(Get_taeller)
For i=1 to laengden
XER = XER&"X"
Next
Response.Write "<br>XER="&XER
Tmp1 = Get_taeller
Tmp2 = Get_taeller - 1
Response.Write "<br>Tmp1="&Tmp1
Response.Write "<br>Tmp2="&Tmp2
sql_check_sortering = "Select * From pages Where menuidstr like '"&Tmp1&"%' order by menuidstr asc"
Set res_check_sortering = Conn.Execute(sql_check_sortering)
Do While Not res_check_sortering.EoF
Response.Write "<br>="&res_check_sortering("menuidstr")
res_check_sortering.MoveNext
Loop
sql_check_sortering = "Select * From pages Where menuidstr like '"&Tmp2&"%' order by menuidstr asc"
Set res_check_sortering = Conn.Execute(sql_check_sortering)
Do While Not res_check_sortering.EoF
id = res_check_sortering("id")
gl_taeller = res_check_sortering("menuidstr")
gl_taeller = Replace(gl_taeller, Tmp2, XER)
gl_taeller2=23345546
Conn.Execute ("Update pages set menuidstr='"&gl_taeller&"' Where id="&id)
res_check_sortering.MoveNext
Loop
sql_check_sortering = "Select * From pages Where menuidstr like '"&Tmp1&"%' order by menuidstr asc"
Set res_check_sortering = Conn.Execute(sql_check_sortering)
Do While Not res_check_sortering.EoF
id = res_check_sortering("id")
gl_taeller = res_check_sortering("menuidstr")
gl_taeller = Replace(gl_taeller, Tmp1, Tmp2)
Conn.Execute ("Update pages set menuidstr='"&gl_taeller&"', menuid="&gl_taeller&" Where id="&id)
res_check_sortering.MoveNext
Loop
sql_check_sortering = "Select * From pages Where menuidstr like '"&XER&"%' order by menuidstr asc"
Set res_check_sortering = Conn.Execute(sql_check_sortering)
Do While Not res_check_sortering.EoF
id = res_check_sortering("id")
gl_taeller = res_check_sortering("menuidstr")
gl_taeller = Replace(gl_taeller, XER, Tmp1)
Conn.Execute ("Update pages set menuidstr='"&gl_taeller&"', menuid="&gl_taeller&" Where id="&id)
res_check_sortering.MoveNext
Loop
Else
End If
ElseIf t="ned" Then
'** Checker om vi er nået til 99 for så kan der ikke rykkes mere....
If right(Get_taeller,2)<>"99" Then
laengden = len(Get_taeller)
For i=1 to laengden
XER = XER&"X"
Next
Response.Write "<br>XER="&XER
Tmp1 = Get_taeller
Tmp2 = Get_taeller + 1
Response.Write "<br>Tmp1="&Tmp1
Response.Write "<br>Tmp2="&Tmp2
sql_check_sortering = "Select * From pages Where menuidstr like '"&Tmp1&"%' order by menuidstr asc"
Set res_check_sortering = Conn.Execute(sql_check_sortering)
Do While Not res_check_sortering.EoF
Response.Write "<br>="&res_check_sortering("menuidstr")
res_check_sortering.MoveNext
Loop
sql_check_sortering = "Select * From pages Where menuidstr like '"&Tmp2&"%' order by menuidstr asc"
Set res_check_sortering = Conn.Execute(sql_check_sortering)
Do While Not res_check_sortering.EoF
id = res_check_sortering("id")
gl_taeller = res_check_sortering("menuidstr")
gl_taeller = Replace(gl_taeller, Tmp2, XER)
Conn.Execute ("Update pages set menuidstr='"&gl_taeller&"' Where id="&id)
res_check_sortering.MoveNext
Loop
sql_check_sortering = "Select * From pages Where menuidstr like '"&Tmp1&"%' order by menuidstr asc"
Set res_check_sortering = Conn.Execute(sql_check_sortering)
Do While Not res_check_sortering.EoF
id = res_check_sortering("id")
gl_taeller = res_check_sortering("menuidstr")
gl_taeller = Replace(gl_taeller, Tmp1, Tmp2)
Conn.Execute ("Update pages set menuidstr='"&gl_taeller&"', menuid="&gl_taeller&" Where id="&id)
res_check_sortering.MoveNext
Loop
sql_check_sortering = "Select * From pages Where menuidstr like '"&XER&"%' order by menuidstr asc"
Set res_check_sortering = Conn.Execute(sql_check_sortering)
Do While Not res_check_sortering.EoF
id = res_check_sortering("id")
gl_taeller = res_check_sortering("menuidstr")
gl_taeller = Replace(gl_taeller, XER, Tmp1)
Conn.Execute ("Update pages set menuidstr='"&gl_taeller&"', menuid="&gl_taeller&" Where id="&id)
res_check_sortering.MoveNext
Loop
Else
Response.Write "Fejl - er nået enden...."
End If
End If
Response.Redirect ("menuflytning_opned.asp")
Response.End
If t="op" Then
sql_check_sortering = "Select * From pages order by menuidstr desc"
Set res_check_sortering = Conn.Execute(sql_check_sortering)
Do While Not res_check_sortering.EoF
Taeller = res_check_sortering ("menuidstr")
If Get_taeller=Taeller Then
get_id = res_check_sortering("id")
If Not res_check_sortering.EoF Then '** Checker at feltet ikke står først i rækken
res_check_sortering.MoveNext
id = res_check_sortering("id")
Taeller = res_check_sortering("menuidstr")
Conn.Execute("Update pages set menuidstr="&get_taeller&", menuid="&get_taeller&" Where id="&id)
Conn.Execute("Update pages set menuidstr="&taeller&", menuid="&gl_taeller&" Where id="&get_id)
End If
End If
res_check_sortering.MoveNext
Loop
ElseIf t="ned" Then
sql_check_sortering = "Select * From pages order by menuidstr asc"
Set res_check_sortering = Conn.Execute(sql_check_sortering)
Do While Not res_check_sortering.EoF
Taeller = res_check_sortering ("menuidstr")
If Get_taeller=Taeller Then
get_id = res_check_sortering("id")
If Not res_check_sortering.EoF Then '** Checker at feltet ikke står først i rækken
res_check_sortering.MoveNext
id = res_check_sortering("id")
Taeller = res_check_sortering("menuidstr")
Conn.Execute("Update pages set menuidstr="&get_taeller&", menuid="&get_taeller&" Where id="&id)
Conn.Execute("Update pages set menuidstr="&taeller&", menuid="&taeller&" Where id="&get_id)
End If
End If
res_check_sortering.MoveNext
Loop
End If
Response.Redirect ("menuflytning_opned.asp")
%>
