|
|
<%
Dim currentStep
IF Request.Form.Item("Next") = "" THEN
currentStep = 0
ELSE
currentStep = Request.Form.Item("Next")
END IF
IF currentStep = 1 THEN
IF Request.Form.Item("adminpw") = "ericsson" THEN
currentStep = 1
ELSE
currentStep = 2
END IF
ELSE
END IF
Select Case currentStep
Case 0 : Call FirstStep
Case 1 : Call SecondForm
Case 2 : Call BadPass
Case 3 : Call ListAllEmp
End Select
%>
<% Sub FirstStep %>
<% End Sub %>
<% Sub SecondForm %>
Welcome to the Report Generation Utility for the Lipton tennis tournament.
You could generate reports in any of the following formats.
A. Generate reports based on employee number.
B. Generate reports on Customer Specifications
C. View all Information
<% End Sub %>
<% Sub ListAllEmp %>
<%
on error resume next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "ericsson","sa",""
SQLstmt = "select * from template where eventID=1"
Set RS = Conn.Execute(SQLStmt)
%>
|
<%
Do Until RS.EOF
RS.MoveNext
Loop
%>
<% End Sub %>
<% Sub BadPass %>
Bad Password
<% End Sub %>
|
|
|
web publisher
web editor
|