DIM SQLFO As String = "SELECT TOP 1 * from news where focusnews = true Order by newsid desc"
DIM Mycmdfo as Oledbcommand = New OLEDBCommand (SQLFO, MyConn)
Dim MyReaderfo As OledbDataReader = Mycmdfo.executeReader ()
IF myreaderfo.read () THEN
Dim Hotcontentfo As String = MyReaderfo.item ("Content") // The content you need to read
Dim HotURLFO AS String // Store Read Content
DIM RFO AS New Regex ("/ D {18}. (Jpg | gif)") // Defining regular expressions
DIM MFO as match = rfo.match (hotcontentfo) // Patulate regular expressions with content
IF mfo.success the
Hoturlfo = Mfo.Value
END IF
