Application eller function

1 svar · 184 visningar · startad av Addeladde 30 sep. 2002

AddeladdeMedlem sedan jan. 20013 406 inlägg

Trådstart30 sep. 2002 11:27#1

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?

EkströmMedlem sedan feb. 20022 594 inlägg

30 sep. 2002 14:16#2

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()