<%
Dim message
message="Login to the Crown Point Ventures Website."
Sub Delay(DelaySeconds)
SecCount = 0
Sec2 = 0
While SecCount < DelaySeconds + 1
Sec1 = Second(Time())
If Sec1 <> Sec2 Then
Sec2 = Second(Time())
SecCount = SecCount + 1
End If
Wend
End Sub
Sub subLogin
if request.form("Login")="Login" then
Delay(3)
message="Your login information was incorrect. Please try again."
message="" & message & ""
end if
End Sub
if request.form("LoginName")="email" and request.form("Password")="" then
response.redirect("http://webmail.vmsol.com")
end if
if request.form("LoginName")="ftp" and request.form("Password")="" then
message="Enter FTP Site"
else
subLogin
end if
%>
