asp转asp.net

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 )