Function UpdateGDMode(ByVal vHaplo)
'
'PURPOSE: assign GDMode values for subsequent sorting
'
'PARAMETERS: vHaplo --- Haplo ID
'******************************************************************
Dim oConn, numRecords, i, rsUpd, strSQL, sql
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open Conn
Set rsUpd = Server.CreateObject("ADODB.RecordSet")
strSQL = "" & _
" SELECT f.[kit num], c.group " & _
" from Contact_Information c INNER JOIN GroupYAlleles f " & _
" ON c.Kit = f.[Kit Num] " & _
" WHERE left(f.[haplo],1) = """ & vHaplo & """ order by Haplo, group, [kit num]"
rsUpd.Open strSQL,Conn,adopenstatic, adlockoptimistic
numRecords= rsUpd.recordcount
If numRecords > 0 Then
rsUpd.moveFirst
PrevGroup = "bb"
PrevRowSortValue = 1
Do While Not rsUpd.EOF
If Session(rsUpd(0)) <> Empty and Session(rsUpd(0)) >= 0 Then
temp = 0
if Session("MyKitMarkerCount_" & rsUpd(0)) > 0 then _
temp = FormatNumber ( Session(rsUpd(0)) / Session("MyKitMarkerCount_" & rsUpd(0)) ,2 )
