asked on
Public Function hLink(ByVal empN As String, ByVal LName As String) As String
Dim sEmp, sLName As String
sEmp = Trim(empN)
sLName = Trim(LName)
hLink = "<a href=houses.aspx?bid=" & sEmp & ">" & LName & "</a>"
End Select
Return hLink
End Function