<%
IF Request("Log")<>"" Then
Set ConnSecure = Server.CreateObject("ADODB.Connection")
ConnSecure.Open "ZEN"
SQL = "SELECT TypeInvestor FROM Passwords WHERE (Login='" & Request("Log") & "') AND (Password='" & Request("Psd") & "');"
Set RSSecure = ConnSecure.Execute(SQL)
If RSSecure.EOF Then
Session("TypeInvestor") = 0
Else
Session("TypeInvestor") = RSSecure("TypeInvestor")
End if
End if
Sub VerifyLogin()
if Session("TypeInvestor")=0 Then
' You are not welcome
if (ASPBuilder=1) Then
Response.redirect("Index.asp?PID=38")
Else
Response.redirect("ErrorLogin.htm")
End if
End if
End Sub
%>
<% VerifyLogin() %>
Zoom eLearning Networks Inc. - Business Plan
Because of the current Canadian / US exchange rate, our services are especially cost-effective for U.S. firms. You will get top quality work from our Canada-based development team for a fraction of your regular costs. Contact us for details!
Business Plan
Our Business Plan is available as a PDF file or as a Word document. To get the free PDF reader plug-in, click here.
