<%
Option Explicit
Dim conn
Dim RSFooter
Dim RSStatus
Dim TheMessage
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "nep2tune"
conn.execute "insert into ASPSessionPages (SessionID, PageName) values (" _
  & Session("SessionID") & ", " _
  & "'OrderInfo')"
set RSFooter = conn.execute("select BriefText from ASPPageText " _
  & "where PageName = 'Footer'")
If IsEmpty(Request.Form("Submit")) Then
  TheMessage = "Podaj identyfikator zamwienia, aby wywietli informacje o przebiegu 
    jego realizacji."
Else
  Set RSStatus = Conn.execute("select Status from ASPSessions " _
    & "where SessionID = " & Request.Form("SessionID"))
  If RSStatus.EOF Then
    TheMessage = "Identyfikator zamwienia nie zosta znaleziony"
  Else
    TheMessage = RSStatus("Status")
  End If
End If
%>
