<% ' Get Product ID productID = TRIM( Request( "pid" ) ) ' Get Login Information username = request( "username" ) password = request( "password" ) register = TRIM( Request( "register" ) ) error = TRIM( Request( "error" ) ) ' Open Database Connection dbpath = server.mappath( "\balendran\BSP\DB\ComplusDB.mdb") DB= "PROVIDER = Microsoft.Jet.OLEDB.4.0; DATA SOURCE = "& dbpath Set Con = Server.CreateObject( "ADODB.Connection" ) Con.Open DB ' Check For New Registration IF register <> "" AND error = "" THEN addUser END IF if username = "" Then username = session("username") password = session("password") end if ' Get User ID userID = checkpassword( username, password, Con ) IF userID > 0 THEN %> <% ELSE %> <% END IF %>