If dsFormSelect.Tables(0).Rows.Count > 1 Then

If dsFormSelect.Tables(0).Rows.Count > 0 Then

formid = Convert.ToInt16(dsFormSelect.Tables(0).Rows(1).Item(0))

sSQL = "select title,link from form where formid=" & formid

dsSystemForm = clsFunction.RunSQL(sSQL)

If dsSystemForm.Tables.Count > 0 Then

If dsSystemForm.Tables(0).Rows.Count > 0 Then

If (dsSystemForm.Tables(0).Rows(0).Item(0) Is DBNull.Value) Or (dsSystemForm.Tables(0).Rows(0).Item(0) = "") Then

FormTitle2.Text = ""

Else

FormTitle2.Text = "<a href=" + dsSystemForm.Tables(0).Rows(0).Item(1).ToString + ">" + _

dsSystemForm.Tables(0).Rows(0).Item(0).ToString() + "</a>"

End If

End If

End If

End If

End If

-1-