<%
Dim vntGetPassword
Dim vntResult
vntGetPassword = Request.Form ("txtPassword")
If trim(vntGetPassword) <> "" Then
vntResult = CheckPassword( vntGetPassword, vntPassword )
If vntResult = 0 Then
Session("Connected") = "False"
%>
Login failed due to an incorrect password!
<%
Else
%>
Login was successful! You may now proceed as a trader allowing you to make orders and to see our prices. Please navigate the site using the above menu options.
<%
Session("Connected") = "True"
End If
Else
%>
<% End If%>