For Complete code pls mail me.



Drag Drop example using asp and Java script translated from php version.

From the website

http://www.cyberdummy.co.uk/2005/07/13/multi-list-drag-and-drop/


Uses two files Login.asp & dd1.asp


Part of dd1.asp
-----------------

DIM strConnString '''''''''''''' Your connection string for your database ''''''''''''''' strConnString = "" DIM rsUpdate,sqlUpdate,strColPosi DIM strLoginId strLoginId = SESSION("LOGINID") 'response.write strLoginId strColPosi = request.form("strColPosi") DIM objConn,rsPositionLeft,strSQLLeft DIM rsPositionCenter,strSQLCenter DIM rsPositionRight,strSQLRight SET objConn = server.CreateObject("ADODB.Connection") 'Open Connection objConn.Open strConnString SET rsUpdate = server.CreateObject("ADODB.RecordSet") ''''''''''---------------------'''''''''''''' DIM data,strOrder2,strOrder3 DIM intCounter , containers , container DIM lastly , i ,values , value ,final , strColValue data = request.form("order") if len(data) >=1 then
i = 0
containers =Split(data,":")

for each container in containers

container = replace (container,")", "")


lastly = split(container,"(")

for intCounter=0 to ubound(lastly)
'response.write(lastly(intCounter) & "
")
next
'response.write(lastly(0) & "
")
strColValue = lastly(0)
values = split(lastly(1), ",")


for each value in values
'response.write(value & " " & i & "
" )
i = i + 1
sqlUpdate = "update layout set set1 = '" & strColValue & "', order1 = " & i & " where item1 = '" & value & "' and Login_id = " & strLoginId

rsUpdate.open sqlUpdate,objConn,3,3

' rsUpdate.update

next
' response.write( "
")

next

end if


''''''''''---------------------''''''''''''''




SET rsPositionLeft = server.CreateObject("ADODB.RecordSet")

strSQLLeft = "SELECT * FROM layout WHERE set1 ='left_col' and Login_Id=" & strLoginId & " ORDER BY order1 ASC"
rsPositionLeft.open strSQLLeft,objConn,3,3


SET rsPositionCenter = server.CreateObject("ADODB.RecordSet")

strSQLCenter = "SELECT * FROM layout WHERE set1 = 'center' and Login_Id=" & strLoginId & " ORDER BY order1 ASC"
rsPositionCenter.open strSQLCenter,objConn,3,3


SET rsPositionRight = server.CreateObject("ADODB.RecordSet")

strSQLRight = "SELECT * FROM layout WHERE set1 = 'right_col' and Login_Id=" & strLoginId & " ORDER BY order1 ASC"
rsPositionRight.open strSQLRight,objConn,3,3


''''''''''''''''''''''''''''''''''''

Uses two tables : Layout and dd_Master




Layout table Fields
--------------------
Primary key set1 data type text
primary key item1 data type text
order1 data type number
Primary Key Login_Id data type number


dd_Master table Fields
--------------------
Primary Key Login_Id data type autoNumber

Login_Name data type text
Password data type text