scusa nel copia ed incolla ho fatto un errore
non serve il byval url

codice:
Function JSClose(Byval secondi)
	With Response
		.Write("<script language=""JavaScript"">" & vbCrLf) 
		.Write("<!--" & vbCrLf) 
		.Write("function closewin() {" & vbCrLf) 
		.Write("top.close;" & vbCrLf)  
		.Write("}" & vbCrLf) 
		.Write("timer = setTimeout('closewin()', '" & (secondi * 1000) & "');" & vbCrLf) 
		.Write("-->" & vbCrLf) 
		.Write("</script>" & vbCrLf) 
	End With
End Function
per richiamarla
<%=JsClose(5)%>