<%'Include Data Connection%> <%'Include ADO constants include file for VBScript%> <% 'open data connection OpenConn() %> <%'Include Utility Scripts%> <% 'begin input %>

<% dim strContactTypesSQL dim rsContactTypes dim intContactTypeId dim strContactTypeName strContactTypesSQL = "SELECT * FROM CONTACT_TYPE" Set rsContactTypes = conn.Execute(strContactTypesSQL) %> <% Do While Not rsContactTypes.Eof intContactTypeId = rsContactTypes("CONTACT_TYPE_ID") strContactTypeName = rsContactTypes("CONTACT_TYPE_NAME_ENG") %> <% rsContactTypes.MoveNext Loop rsContactTypes.Close Set rsContactTypes = Nothing %>

Select the type of contact that should receive this posting:

<%=strContactTypeName%>

<% 'close data connection CloseConn() %>