<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsDiereninfo Dim rsDiereninfo_numRows Set rsDiereninfo = Server.CreateObject("ADODB.Recordset") rsDiereninfo.ActiveConnection = MM_connDiereninfo_STRING rsDiereninfo.Source = "SELECT soort, soort_Latijn, familie, orde FROM diersoorten" rsDiereninfo.CursorType = 0 rsDiereninfo.CursorLocation = 2 rsDiereninfo.LockType = 1 rsDiereninfo.Open() rsDiereninfo_numRows = 0 %> Untitled Document

Toon de gegevens van één dier

*naam*	*Latijnse naam*	*familie*	*orde*
<%=(rsDiereninfo.Fields.Item("soort").Value)%>	<%=(rsDiereninfo.Fields.Item("soort_Latijn").Value)%>	<%=(rsDiereninfo.Fields.Item("familie").Value)%>	<%=(rsDiereninfo.Fields.Item("orde").Value)%>

<% rsDiereninfo.Close() Set rsDiereninfo = Nothing %>

Toon de gegevens van één dier

naam

Latijnse naam

familie

orde