"
StyleDocumentStartTS = StyleDocumentStartTS & StyleText("
Main Menu -
Logout")
StyleDocumentStartTS = StyleDocumentStartTS & "
"
StyleDocumentStartTS = StyleDocumentStartTS & "
"
StyleDocumentStartTS = StyleDocumentStartTS & StylePageTitle("Tracking Survey - " & Title)
End Function
Private Function StyleDocumentStartResponse(Title)
If Title = "" Then
StyleDocumentStartResponse = StyleDocumentStartResponse & StyleDocumentStart("User Response")
Else
StyleDocumentStartResponse = StyleDocumentStartResponse & StyleDocumentStart("User Response - " & Title)
End If
StyleDocumentStartResponse = StyleDocumentStartResponse & ""
' StyleDocumentStartResponse = StyleDocumentStartResponse & " "
StyleDocumentStartResponse = StyleDocumentStartResponse & " "
If Title = "" Then
StyleDocumentStartResponse = StyleDocumentStartResponse & StylePageTitle("User Response")
Else
StyleDocumentStartResponse = StyleDocumentStartResponse & StylePageTitle("User Response - " & Title)
End If
End Function
Private Function StyleDocumentStartScripts(Title)
If Title = "" Then
StyleDocumentStartScripts = StyleDocumentStartScripts & StyleDocumentStart("Scripts Archive")
Else
StyleDocumentStartScripts = StyleDocumentStartScripts & StyleDocumentStart("Scripts Archive - " & Title)
End If
StyleDocumentStartScripts = StyleDocumentStartScripts & ""
' StyleDocumentStartScripts = StyleDocumentStartScripts & " "
StyleDocumentStartScripts = StyleDocumentStartScripts & " "
If Title = "" Then
StyleDocumentStartScripts = StyleDocumentStartScripts & StylePageTitle("Scripts Archive")
Else
StyleDocumentStartScripts = StyleDocumentStartScripts & StylePageTitle("Scripts Archive - " & Title)
End If
End Function
Private Function StyleDocumentStartAdmin(Title)
If Title = "" Then
StyleDocumentStartAdmin = StyleDocumentStartAdmin & StyleDocumentStart("Administration")
Else
StyleDocumentStartAdmin = StyleDocumentStartAdmin & StyleDocumentStart("Administration - " & Title)
End If
StyleDocumentStartAdmin = StyleDocumentStartAdmin & ""
' StyleDocumentStartAdmin = StyleDocumentStartAdmin & " "
StyleDocumentStartAdmin = StyleDocumentStartAdmin & " | "
If Title = "" Then
StyleDocumentStartAdmin = StyleDocumentStartAdmin & StylePageTitle("Administration")
Else
StyleDocumentStartAdmin = StyleDocumentStartAdmin & StylePageTitle("Administration - " & Title)
End If
End Function
Private Function StyleDocumentStop(Title)
Response.Write("")
End Function
Private Function StyleDocumentStopTS(Title)
' StyleDocumentStopTS = StyleDocumentStopTS & ""
' StyleDocumentStopTS = StyleDocumentStopTS & "Tracking Survey - " & Title
StyleDocumentStopTS = StyleDocumentStopTS & StyleDocumentStop("Tracking Survey - " & Title)
End Function
Private Function StyleDocumentStopResponse(Title)
' StyleDocumentStopResponse = StyleDocumentStopResponse & ""
' StyleDocumentStopResponse = StyleDocumentStopResponse & "User Response - " & Title
StyleDocumentStopResponse = StyleDocumentStopResponse & StyleDocumentStop("User Response - " & Title)
End Function
Private Function StyleDocumentStopScripts(Title)
' StyleDocumentStopScripts = StyleDocumentStopScripts & ""
' StyleDocumentStopScripts = StyleDocumentStopScripts & "User Response - " & Title
StyleDocumentStopScripts = StyleDocumentStopScripts & StyleDocumentStop("User Response - " & Title)
End Function
Private Function StyleDocumentStopAdmin(Title)
' StyleDocumentStopAdmin = StyleDocumentStopAdmin & ""
' StyleDocumentStopAdmin = StyleDocumentStopAdmin & "User Response - " & Title
StyleDocumentStopAdmin = StyleDocumentStopAdmin & StyleDocumentStop("User Response - " & Title)
End Function
Private Function StyleTextReverse(Value)
StyleTextReverse = "" & Value & ""
End Function
Private Function StyleTextSmall(Value)
StyleTextSmall = "" & Value & ""
End Function
Private Function StyleText(Value)
StyleText = "" & Value & ""
End Function
Private Function StyleTextError(Value)
StyleTextError = "" & Value & ""
End Function
Private Function StyleCommentText(Value)
StyleCommentText = "" & Value & ""
End Function
Private Function StyleTextBig(Value)
StyleTextBig = "" & Value & ""
End Function
Private Function StyleParagraph(Value)
StyleParagraph = " " & Value & " "
End Function
Private Function StylePageTitle(Value)
StylePageTitle = "" & Value & " "
End Function
Private Function StyleSectionTitle(Value)
StyleSectionTitle = "" & Value & " "
End Function
Private Function StyleParagraphTitle(Value)
StyleParagraphTitle = "" & Value & " "
End Function
%>
|
|
|
|