<% '================================================================== Dim strSQLString, vLoginCookie, vEmailAddress, vUserName Dim DBConn, rstContact, strLoginError, strRegistrationError, strCookieEnabled Dim strClientName, lngContact_ID, strClientEmailAddress Dim strSQL, P, strSQLWhere, strPassWord, sqlCmd Dim intG, intOK, intT, strFirstName, strWelcomMessage, rstR Dim strLastName,strPhone,strMobile,strAddress,strCity,strState,strZip,strGender,strBirthDate,strEthnicity Dim strRegistrationType,strCompName,strCompAddr,strCompState,strCompZip,strCompPhone,strCompfax,strHowDidYouHear Dim strUserName,strVerifyPassword Dim lngWebsiteLoginID,rstVisitor,vWebID Dim strState_ID, strStateName, strCompCity, strCompRep, strVerifyRegistrationPassword, strRegistrationPassword Dim strCompState_ID, strCompStateName, strRegistrationUserName Dim vTab, strClassRegistrations '========================================================= strLoginLogOut = "Student Log In" IF request.cookies("UserName") > "" THEN vUserName = left(request.cookies("UserName"),50) strLoginLogOut = "Log Out | My Account" END IF IF request.cookies("contactID") > "" THEN vContactID = Clng(request.cookies("contactID")) ELSE vContactID = 0 END IF strWelcomeMessage = "Welcome to CEF " vEmailAddress = left(request.cookies("Email"),50) strFirstName = left(request.cookies("VisitorName"),50) IF strFirstName > "" THEN strWelcomeMessage = "Welcome " & strFirstName END IF IF request.cookies("CompanyID") > "" THEN lngCompanyID = Clng(request.cookies("CompanyID")) strLoginLogOut = "Log Out | Client Account" ELSE lngCompanyID = 0 END IF strCompanyRole = left(request.cookies("CompanyRepType"),20) vTempWebRegistrationID = "" IF request.cookies("TempWebRegistrationID") > "" THEN IF isnumeric(request.cookies("TempWebRegistrationID")) = TRUE THEN vTempWebRegistrationID = left(request.cookies("TempWebRegistrationID"),50) END IF END IF strClassRegistrations = "You have not selected any classes" '========================================================= Set DBConn = Server.CreateObject("ADODB.Connection") DBConn.ConnectionTimeout = Session("DBConn_ConnectionTimeout") DBConn.CommandTimeout = 90 DBConn.Open "DSN=SQLServer" SET rstR = Server.CreateObject("ADODB.Recordset") '============================================================== 'Check for unpaid class registrations that this person may have 'Get the number of class selections IF vTempWebRegistrationID > "" THEN 'get the registration records for this aClassCount = 0 aClassTemp = 0 SET sqlCmd = Nothing SET sqlCmd = Server.CreateObject("ADODB.Command") sqlCmd.ActiveConnection = DBConn sqlCmd.CommandType = "&H0004" sqlCmd.CommandText = "cef_GetTheUnpaidRegistration_Info" sqlCmd.Parameters.Append = sqlCmd.CreateParameter("@TempWebRegistrationID", 200, "&H0001", 50, vTempWebRegistrationID) SET rstR = sqlCmd.Execute SET sqlCmd = Nothing IF not rstR.BOF and not rstR.EOF THEN Do while not rstR.EOF aClassCount = aClassCount + 1 rstR.MoveNext Loop IF aClassCount > 1 THEN strClassRegistrations = " classes" ELSE strClassRegistrations = " class" END IF strClassRegistrations = "You have selected " & aClassCount & strClassRegistrations & "" ELSE 'there are no registrations in the shopping cart strClassRegistrations = "You have not selected any classes" END IF rstR.Close END IF '=================================================================== SET DBConn = Nothing '========================================================= %> Industry Partners - NTCEF.COM - Construction Education Foundation of North Texas - CEF Inc.
     <%=strWelcomeMessage %>  [ <%=strLoginLogOut %> |  Create Account ]  [ <%=strClassRegistrations%> ]  
NTCEF Logo Image
Contact CEF | About CEF | Educational Partners | Gallery | Site Policies | Industry Partners | Student Resources | For Clients | Site Map
Site News
Newsletter
Subscribe to our Newsletter:
Email:
Industry Partners
  1401-A Royal Lane · PO Box 612107
DFW Airport, Texas 75261-2107 · United States
Phone: (972) 574-5200 · Fax : (972) 574-3440
Contact CEF | About CEF | Educational Partners | Gallery | Site Policies | Industry Partners | Student Resources | For Clients | Site Map