Function GetAlertInfo(ByVal str1 As String) As String
Dim Str2 As String
Str2 = "<script language='javascript'>alert('" & str1 & "')<"
Str2 += "/"
Str2 += "script>"
Return Trim(Str2)
End Function