I have to pass a hide int value whenever i change the value of the dropdownlist in asp.net. How to do?

I have to fill a dropdownlist with two value as (id, value) in asp.net application. That value only fill with dropdownlist. that id should be hide. when i click the value that id has to passed as internally. how to do this?

I have to pass a hide int value whenever i change the value of the dropdownlist in asp.net. How to do?
%26lt;%


' Selected constants from adovbs.inc


Const adOpenStatic = 3


Const adLockPessimistic = 2





Dim cnnExcel


Dim rstExcel


Dim I


Dim iCols





' This is all standard ADO except for the connection string.


' You can also use a DSN instead, but so it'll run out of the


' box on your machine I'm using the string instead.


Set cnnExcel = Server.CreateObject("ADODB.Connection")


cnnExcel.Open "DBQ=" %26amp; Server.MapPath("xl_data.xls") %26amp; ";" %26amp; _


"DRIVER={Microsoft Excel Driver (*.xls)};"





' Same as any other data source.


' FYI: TestData is my named range in the Excel file


Set rstExcel = Server.CreateObject("ADODB.Recordset")


rstExcel.Open "SELECT * FROM TestData;", cnnExcel, _


adOpenStatic, adLockPessimistic





' Get a count of the fields and subtract one since we start


' counting from 0.


iCols = rstExcel.Fields.Count


%%26gt;


%26lt;table border="1"%26gt;


%26lt;thead%26gt;


%26lt;%


' Show the names that are contained in the first row


' of the named range. Make sure you include them in


' your range when you create it.


For I = 0 To iCols - 1


Response.Write "%26lt;th%26gt;"


Response.Write rstExcel.Fields.Item(I).Name


Response.Write "%26lt;/th%26gt;" %26amp; vbCrLf


Next 'I


%%26gt;


%26lt;/thead%26gt;


%26lt;%


rstExcel.MoveFirst





' Loop through the data rows showing data in an HTML table.


Do While Not rstExcel.EOF


Response.Write "%26lt;tr%26gt;" %26amp; vbCrLf


For I = 0 To iCols - 1


Response.Write "%26lt;td%26gt;"


Response.Write rstExcel.Fields.Item(I).Value


Response.Write "%26lt;/td%26gt;" %26amp; vbCrLf


Next 'I


Response.Write "%26lt;/tr%26gt;" %26amp; vbCrLf





rstExcel.MoveNext


Loop


%%26gt;


%26lt;/table%26gt;





%26lt;%


rstExcel.Close


Set rstExcel = Nothing





cnnExcel.Close


Set cnnExcel = Nothing


%%26gt;