Creating a Server Component with VB - Redesigned - Part 2

Here''''s the code fragment that constructs the return string composed of the database note information and the HTML styling. This code section will be placed after all the database work has been completed. Since all the database values have been tucked away in local variables (strTextNote and vRecordArray), the database can be closed before this string construction code.

Code Fragment for Using Concatenation to Construct a Return String

    ''''///// CONSTRUCT NOTE TITLES ///////////////////////////////////
    ''''///// Include the beginning table data and font tags
    strReturnString = strTitleDataStart & vbCrLf
    strReturnString = strReturnString & strTitleFontStart & vbCrLf
    
    ''''///// Get the number of titles stored in the array
    lngArrayCount = UBound(vRecordArray, 2)
    
    ''''///// Set selected NoteID to array index (for not inserting the <A> tag)
    lngNoteIdIndex = (lngNoteID - 1)
    
    ''''///// Loop through array
    For lngIndexCount = 0 To lngArrayCount
    
        ''''///// Include an <A> tag if not the selected NoteID
        If Not lngNoteIdIndex = lngIndexCount Then
            strReturnString = strReturnString & "<A HREF=""" & strURL
            strReturnString = strReturnString & "?ID=" & vRecordArray(ARRAY_NOTE_ID_INDEX, lngIndexCount) & """>"
        End If
        
        ''''///// Include the note title text from the array
        strReturnString = strReturnString & vRecordArray(ARRAY_TITLE_INDEX, lngIndexCount)
        
        ''''///// Include an </A> tag if not the selected NoteID
        If Not lngNoteIdIndex = lngIndexCount Then strReturnString = strReturnString & "</A>" & vbCrLf
        
        ''''///// End the title line with a line break
        strReturnString = strReturnString & "<BR>" & vbCrLf
    Next
    
    ''''///// Include the ending font and table data tags
    strReturnString = strReturnString & strTitleFontEnd & vbCrLf
    strReturnString = strReturnString & strTitleDataEnd & vbCrLf & vbCrLf
    
    
    ''''///// CONSTRUCT NOTE TEXT BODY ////////////////////////////////
    ''''///// Include the beginning table data and font tags
    strReturnString = strReturnString & strTextDataStart & vbCrLf
    strReturnString = strReturnString & strTextFontStart & vbCrLf
    
    ''''///// Include the note text body
    strReturnString = strReturnString & strNoteText & vbCrLf
    
    ''''///// Include the ending font table data tags
    strReturnString = strReturnString & strTextFontEnd & vbCrLf
    strReturnString = strReturnString & strTextDataEnd & vbCrLf
    
    
    ''''///// SEND BACK CONSTRUCTED STRING /////////////////////////////
    ShowNotes = strReturnString

    ''''///// Set selected NoteID to array index (for not inserting the <A> tag)
    lngNoteIdIndex = (lngNoteID - 1)

    ''''///// Loop through array
    For lngIndexCount = 0 To lngArrayCount
 

	''''///// Include an <A> tag if not the selected NoteID
        If Not lngNoteIdIndex = lngIndexCount Then
            strReturnString = strReturnString & "<A HREF=""" & strURL
            strReturnString = strReturnString & "?ID=" & vRecordArray(ARRAY_NOTE_ID_INDEX, lngIndexCount) & """>"
        End If

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!