ทำให้ DropDownList 1 อัน ส่งข้อมูล 2 value ยังไงครับ?

<%
<%
Option Explicit
Dim strSplit
strSplit = Split("1,2,3",",")
Response.write strSplit(0)&"<br>"
Response.write strSplit(1)&"<br>"
Response.write strSplit(2)&"<br>"

Response.write("<hr>")

Dim strSplit2,i
strSplit2 = Split("a,b,c,d,e",",")
For i = 0 To UBound(strSplit2)
	Response.write strSplit2(i)&"<br>"
Next

'*** Split("a,b,c,d,e",",")(0)
'*** Split("a,b,c,d,e",",")(1)
'*** Split("a,b,c,d,e",",")(2)
'*** Split("a,b,c,d,e",",")(3)
'*** Split("a,b,c,d,e",",")(4)
%>
%>