Application eller function

Hej

Jag hade tänkt lägga en bit kod i en funktion eller på något annat sätt så att jag kan anropa koden på alla sidor där jag inkluderar functionsfilen. Hur gör jag detta?

koden som jag ska inkludera är:

set AP = Server.CreateObject("AdminimizerPro.Editor")
AP.ConfigFilePath = "E:\Jobb\Content_Management\Webbsidan\konfiguration.xml"
AP.StyleSheet = "AL.css"
AP.CopyVisible = True    
AP.BoldVisible = True

Hur ser anroppet ut på sidan där jag vill ha med koden?

Function Whatever()
Set AP = Server.CreateObject("AdminimizerPro.Editor")
AP.ConfigFilePath = "E:\Jobb\Content_Management\Webbsidan\konfiguration.xml"
AP.StyleSheet = "AL.css"
AP.CopyVisible = True    
AP.BoldVisible = True
whatever = "hej"
End Function

Ska den inte returnera något använder du en sub.

Sub Whatever()
Set AP = Server.CreateObject("AdminimizerPro.Editor")
AP.ConfigFilePath = "E:\Jobb\Content_Management\Webbsidan\konfiguration.xml"
AP.StyleSheet = "AL.css"
AP.CopyVisible = True    
AP.BoldVisible = True  
End Sub

Anropar den gör du med

call Whatever()