ควมต้องการ:
1.ต้องการเรียงลำดับ depart_name จาก A ไป Z
2.โดยที่ใน List ให้ Default ไว้ที่ Select Dept.
***ช่วยแก้ไขให้ด้วยนะครับ ยังไม่ถนัด เปิด sql เท่าใดนักครับ ขอบคุณล่วงหน้าครับ***
<!--Start Edit List-->
<%
Dim oRSc
Set oRSc=Server.CreateObject("ADODB.Recordset")
oRSc.Open "crf_department", "Dsn=TAFINTRANET;UID=tafnet;Pwd=tafnet2005;Database=TAFNET"
'sql ="Select * from crf_request_form order by depart_name asc"
oRSc.MoveFirst
%>
<SELECT id="select1" name="dept_id" style ="HEIGHT: 22px; WIDTH: 176px" >
<!--option selected value="">Select Dept.</option>
<option selected value="">.........................</option-->
<%
Do While Not oRSc.EOF
Response.Write"<option selected value="& oRSc("dept_id") &">"
Response.Write oRSc("depart_name") &"</option>"
oRSc.MoveNext
Loop
oRSc.Close
Set oRSc=Nothing
%>
</SELECT>
<!--End Edit List-->
Tag : - - - -
Date :
8 มี.ค. 2549 11:27:22
By :
FaH
View :
2285
Reply :
2
No. 1
Guest
<SELECT id="select1" name="dept_id" style ="HEIGHT: 22px; WIDTH: 176px" >
<option selected value="">Select Dept.</option>
<%
Dim oRSc
Set oRSc=Server.CreateObject("ADODB.Recordset")
oRSc.Open "crf_department", "Dsn=TAFINTRANET;UID=tafnet;Pwd=tafnet2005;Database=TAFNET"
'sql ="Select * from crf_request_form order by depart_name asc"
oRSc.MoveFirst
Do While Not oRSc.EOF
Response.Write"<option selected value="& oRSc("dept_id") &">"
Response.Write oRSc("depart_name") &"</option>"
oRSc.MoveNext
Loop
oRSc.Close
Set oRSc=Nothing
%>
</SELECT>
Load balance : Server 01
