Response.Write Popup
Jeg vil gerne have det sådan at den åbner et nyt vindue hvis man trykker på href'en:<%
Dir = "aspSmartUpload/Upload/" ' Mappen med filerne
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(Dir))
Set objFiles = objFolder.Files
intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
intPageSize = 800 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))
%>
<%
For Each Image In objFiles
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
Response.Write "<a href='aspSmartUpload/Upload/" & Image.Name & "'>" & "<FONT face='verdana,arial,helvetica' color=black size='2'>" & Image.Name & "</a><br></font>"
End If
Next
Set objFS = Nothing
%>
Det er:
Response.Write "<a href='aspSmartUpload/Upload/" & Image.Name & "'>" & "<FONT face='verdana,arial,helvetica' color=black size='2'>" & Image.Name & "</a><br></font>"
som jeg vil have til at åbne i et andet vindue evt. uden rammer og lign.
