Maps & Locations - NTCEF.ORG - Construction Education Foundation of North Texas - CEF Inc.

<% '================================================================== 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 = "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 '========================================================= %> Maps & Locations - NTCEF.ORG - Construction Education Foundation of North Texas - CEF Inc. - Map

<%=strWelcomeMessage %> [ <%=strLoginLogOut %> | Create Account ]

Home

Programs

Courses

Course Catalog

Site News

Newsletter

Subscribe to our Newsletter:

Maps & Locations

DFW Education Center

CEF is located off of Hwy 114
Take Freeport Parkway Exit (North)
Left at Royal Lane
Left at 14th Street
DFW Education Center
will be on the right
Student parking on the left

Please call the office if you need further
directions, 972.574.5200

All Conveniently located near the DFW International Airport

Las Colinas Country Club-Irving

North Lake College Main Campus-Irving

North Lake College North Campus-Coppell

Physical Address: 1401-A Royal Lane · Irving, TX 75063
Mailing Address: PO Box 612107 · DFW Airport, TX 75261-2107 · United States
Phone: 972.574.5200 · Fax : 972.574.3440