Session Variables
<%
If Session("City") = "Portland" Then
   Session("City") = "Portland, OR"
End If
Response.Write "Hello: " & Session("UserName") & ".<P>"
Response.Write "For your records your account number is: " _
	& Session("UserID") & ".<P>"
Response.Write "How are things in " & Session("City") & "?<P>"
%>



CodePage
<%
Session.CodePage = 1252
Response.Write "CodePage used: " & Session.CodePage & "<P>"
Response.Write "1é æ ç ê ë ì í î ï ð Ê Î Ð" & "<P>"

Session.CodePage = 932
Response.Write "CodePage used: " & Session.CodePage & "<P>"
Response.Write "1é æ ç ê ë ì í î ï ð Ê Î Ð" & "<P>"
%>



LCID
<%
Session.LCID = 1033
Response.Write "US format: " & Now & " " _
	& formatcurrency(1234.56) & "<P>"

Session.LCID = 2057
Response.Write  "UK format: " & Now  & " " _
	& formatcurrency(1234.56) & "<P>"

Session.LCID = 1049
Response.Write  "Russia format: " & Now  & " " _
	& formatcurrency(1234.56) & "<P>"

Session.LCID = 1032
Response.Write  "Greek format: " & Now  & " " _
	& formatcurrency(1234.56) & "<P>"

Session.LCID = 2049
Response.Write  "Iraq format: " & Now   & " " _
	& formatcurrency(1234.56) & "<P>"

Session.LCID = 3073
Response.Write  "Egypt format: " & Now  & " " _
	& formatcurrency(1234.56) & "<P>"
	
Session.LCID = 6154
Response.Write  "Panama format: " & Now  & " " _
	& formatcurrency(1234.56) & "<P>"
%>



Application Variables
<%
Option Explicit
Dim OrderTotal
Dim SandH
Dim TotalDue
OrderTotal = Session("OrderTotal") * Application("CurrentDiscount")
SandH = OrderTotal * Application("ShipHandPercent") 
If SandH < Application("MinShipHand") Then
   SandH = Application("MinShipHand")
End If
TotalDue = SandH + OrderTotal
%>



Application Variables Collection
<%
Option Explicit
Dim MyApp
For Each MyApp in Application.Contents
   Response.Write "Application Variable Name: " & MyApp _
   	& " Value: " & Application(MyApp) & "<P>"
Next
%>



Lock
<%
Option Explicit
Dim conn
Dim RSPageHits
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "yourpassword"
set RSPageHits = conn.Execute("select Hits from RSPageHits")
Application("PageHits") = RSPageHits("Hits")
%>



Unlock
<%
Application.Lock
Application("PageHits") = Application("PageHits") + 1
Application.Unlock
%>



App OnStart
Sub Application_OnStart
Application("CurrentDiscount") = .9
Application("MinShipHand") = 12
Application("MinQuantity") = 2
Application("ShipHandPercent") = .07
End Sub
Sub Application_OnStart
	Application("DNS") = "OC"
	Application("UserName") = "Admin"
	Application("Password") = "yourpassword"
	Application("AllowNew") = "Yes"
	Application("AllowEnroll") = "Yes"
	Application("Path2Logo") = "./images/logo.gif"
	Application("AllowDrop") = "No"
	Application("ChatMode") = "External"
End Sub
<% 
Option Explicit
Dim conn
Dim RSCourses
if Application("AllowEnroll") = "Yes" then 
	set conn = server.createobject ("adodb.connection")
	conn.open Application("DNS"), Application("UserName"), _
		Application("Password")
	set RSCourses = conn.execute ("SELECT CourseID, CourseName, " _
		& CourseDescription FROM OCCourses")
%>
	<P ALIGN="CENTER"><B><FONT COLOR="#0000A0" SIZE="+3" 
	FACE="Arial,Helvetica">Select a course to enroll</B></FONT>
<%
	do until RSCourses.EOF
%>
	<A HREF="../html/enrolldrop.asp?CourseID=
		<% Response.Write RSCourses("CourseID") %>">
		<IMG HEIGHT=52 WIDTH=56 SRC="../assets/images/p048.gif"  
		BORDER=0 ALT="Enroll" ></A>
	<P><B><FONT FACE="Arial,Helvetica">
		<% Response.Write RSCourses("CourseName") %> - 
		<% Response.Write RSCourses("CourseDescription") %></B></FONT>
<%
		RSCourses.MoveNext
	loop
end if
%>



Session OnEnd
Sub Session_OnEnd
	Dim objDNS
	Dim conn
	Dim hostname
	Dim GMT
	set objDNS = server.createobject("INet.DNS.1")
	objDNS.ip = request.servervariables("remote_addr")
	If objDNS.Host <> "" Then
		hostname = objDNS.Host
	Else
		hostname = request.servervariables("remote_addr")
	End If
	GMT = Cstr (dateadd("h", 6, now()))
	set conn = server.createobject ("adodb.connection")
	conn.open "IISLog", "sa", "yourpassword"

	SQL = "update iislog..sessions set session_end = '" & GMT _
		& "', hostname = '" & hostname & "'"
	SQL = SQL & " where Session_id = " & cstr(Session("session_id"))
	conn.Execute SQL
End Sub