hur skriver jag för att öppna länk i nytt fönster

<%Const fsoForReading = 1

'###################################################
'-------MAPPEN FILERNA LIGGER I SOM DU SKA SÖKA BLAND------------
'###################################################

Mappe
n = Server.MapPath("mapp")
MappUrl = Mid(Mappen, InStrRev(Mappen, "\") + 1)

strSearchText = Request("SearchText")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Mappen)

bolFileFound = False

For Each objFile in objFolder.Files
If Response.IsClientConnected then
If InStr(1,objFile.Name,strSearchText,1) then
Response.Write "<b>»</b> <a href=" & MappUrl & "/" & objFile.Name & ">" & objFile.Name & " </a><br>"
bolFileFound = True
End If
End If
Next

if Not bolFileFound then Response.Write "Inga sökresultat..."

Set objFolder = Nothing
Set objFSO = Nothing%>

<%End If%>