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-