formatting string

[dave]

Hi Guys

I have one string variable and value stores something
like this

st = "From: ""John Thomas"" <[email protected]>"

when i test it display some thing like
From: "John Thomas" <[email protected]>

How can I pick up only display name and without double
quotes. i.e. it should display only

John Thomas

Thanx for helping
dave

 

[dlbjr]

st = "From: ""John Thomas"" <[email protected]>"
Response.Write GetDisplayName(st)

'This function has a little error Checking
Function GetDisplayName(str1)
str1 = Trim(str1)
If Len(str1) > 0 Then
arData = Split(str1,"""")
GetDisplayName = arData(1)
End If
End Function

'dlbjr
'Pleading sagacious indoctrination!