Personal & Other Loans

<% iColCount = 0 sSQL = "SELECT Count(*) AS Count FROM eOtherLoans WHERE clientID=" & sClientID Set oRS = Nothing Set oRS = oADOConn.Execute( sSQL, iResult ) iColCount = oRS( "Count" ).value For iCount = 0 to iFieldCount Response.Write "" if iCount > 0 then sSQL = "SELECT " & Session( "field" & CStr( iCount ) ) & " FROM eOtherLoans WHERE clientID=" & sClientID & " ORDER BY ID" Set oRS = Nothing Set oRS = oADOConn.Execute( sSQL, iResult ) end if For iCol = 0 to iColCount if iCol = 0 then if iCount = 0 then Response.Write "" else Response.Write "" sTemp = Session( "field" & CStr( iCount ) ) select case sTemp case "type" Response.Write "" case "purpose" Response.Write "" case else Response.Write "" end select end if else if iCount = 0 then Response.Write "" else sTemp = Session( "field" & CStr( iCount ) ) Response.Write "" end if if Not oRS.EOF then oRS.MoveNext end if end if Next oRS.Close Set oRS = Nothing Response.Write "" Next oADOConn.Close Set oADOConn = Nothing %>

new

" & Session( "Label" & CStr( iCount ) ) & " :

" Response.Write "Personal" Response.Write "Business" Response.Write "

" Response.Write "Car" Response.Write "Debt Consolidation" Response.Write "Holiday" Response.Write "Other" Response.Write "

" & CStr( iCol ) & "

" & oRS( sTemp ).value & "

---