<%
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open MM_dbconnect_STRING
Set rst = Server.CreateObject("ADODB.Recordset")
s = "SELECT tlkpState.St_sStateMeaning, tlkpState.St_ID FROM tlkpState ORDER BY tlkpState.St_sStateMeaning"
rst.Open s, cn
%>