<%@ Language=VBScript %> <%Option Explicit%> <% '******************************************************************* ' Module : GreenSand.asp ' ' Description : to allow customer to create and a view account ' ' Copyright : Easypack Softwares (India) Pvt Ltd ' ' Author : ' ' Date : 17/05/2003 ' ' Revision : ' '******************************************************************* %> <% Dim objUserInfo Dim FullName, LoginName, LoginPWD,LoginFlag,rsUserDetails Response.Buffer = True LoginFlag=True If Request("UserName") <> "" Then 'On error resume next LoginName = trim(Request("UserName")) LoginPWD = trim(Request("Password")) Set objUserInfo = Server.CreateObject("SandAnalysis.User") Set rsUserDetails = objUserInfo.Verifyparty(LoginName,LoginPWD) Set objUserInfo = Nothing If rsUserDetails.EOF Or rsUserdetails.BOF Then LoginFlag= False Else Response.Redirect "SandAnalysis/SandForParty.asp?ID=" & rsUserDetails("partyCode") End If End If %>

Home | Contact Us | Employee Login

Products | Customer Services | Customer Confidence | Network | Feedback | Sand Services | Green Sand Interactive | Quick Utility

Green Sand Interactive Registration Our Testing Procedure	<%If LoginFlag=False Then%> <%Else%> <%End If%> Invalid ID User Name Password