<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_jr_STRING
rs.Source = "SELECT contact_fr, vert_fr FROM contact"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
%>
English
">
<%=(rs.Fields.Item("contact_fr").Value)%>
<%
rs.Close()
Set rs = Nothing
%>