<% ' Get Login Information username = TRIM( Request( "username" ) ) email = TRIM( Request( "email" ) ) register = TRIM( Request( "register" ) ) error = TRIM( Request( "error" ) ) ' Open Database Connection Server.MapPath(".") dbPath = "E:/hshome/webcaddy/database/storedbexchange.mdb" Set Con = Server.CreateObject("ADODB.Connection") Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath ' Check For New Registration IF register <> "" AND error = "" THEN addUser END IF ' Get User ID userID = checkemail( email, Con ) IF userID > 0 THEN %> <% ELSE %> <% END IF %>