Select Case Request.ServerVariables( "SCRIPT_NAME" )
Case "/default.asp"
' Gör det här
Case "/annan_sida.asp"
' Gör det här
Case Else
' Gör det här, om inget alternativ matchade
End Select
<%
Sub Printer( ByVal str )
Response.Write str
End Sub
Function Checker( ByVal str )
If str = "SPiN"
Checker = True
Else
Checker = False
End Function
Dim myString
myString = "SPiN"
If Checker( myString ) Then
Printer myString
Else
Printer "Inte SPiN!"
End If
Printer "<br />"
myString = "jboy"
If Checker( myString ) Then
Printer "SPiN!"
Else
Printer "Inte SPiN, utan: " & myString
End If
%>
En sub är en sorts funktion som inte returnerar något, och som man inte anropar med parenteser, kan man säga. En funktion returnerar något, och kan ta emot information mellan parenteser. Nu är jag rätt trött, så jag orkar inte gå in längre i förklaringen. ;)
Select Case Request.ServerVariables( "SCRIPT_NAME" )
Case "/default.asp"
Call Nisse
Case "/annan_sida.asp"
Call Kalle
Case Else
Call Pelle
End Select
Sub Nisse()
'I detta kodblock finns all kod som körs vid val av Nisse
' bumelibum
End Sub
Sub Kalle()
'I detta kodblock finns all kod som körs vid val av Kalle
End Sub
Sub Pelle()
'I detta kodblock finns all kod som körs vid val av Pelle
End Sub