Manipal Universal Learning

<% set con=server.CreateObject("ADODB.connection") 'con.Open "dsn=manipal;uid=;pwd=;" 'con.Open "driver={SQL Server};server=localhost;database=manipal1","manipal","manipal" con.Open "driver={SQL Server};server=MUDC-DE-DBCLNW;database=manipal","smudeweb","SmuDE@w3B" 'string dcon = "persist security info=true; user=smudeweb; password=SmuDE@w3B; database=SMUDEWebsite; server=MUDC-DE-DBCLNW;"; 'response.write con pagelength=10 Session.Timeout=600 %> <% '-------------------------------------------------------------------- ' Microsoft ADO ' ' (c) 1996 Microsoft Corporation. All Rights Reserved. ' ' ' ' ADO constants include file for VBScript ' '-------------------------------------------------------------------- '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- CursorOptionEnum Values ---- Const adHoldRecords = &H00000100 Const adMovePrevious = &H00000200 Const adAddNew = &H01000400 Const adDelete = &H01000800 Const adUpdate = &H01008000 Const adBookmark = &H00002000 Const adApproxPosition = &H00004000 Const adUpdateBatch = &H00010000 Const adResync = &H00020000 Const adNotify = &H00040000 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 '---- ExecuteOptionEnum Values ---- Const adRunAsync = &H00000010 '---- ObjectStateEnum Values ---- Const adStateClosed = &H00000000 Const adStateOpen = &H00000001 Const adStateConnecting = &H00000002 Const adStateExecuting = &H00000004 '---- CursorLocationEnum Values ---- Const adUseServer = 2 Const adUseClient = 3 '---- DataTypeEnum Values ---- Const adEmpty = 0 Const adTinyInt = 16 Const adSmallInt = 2 Const adInteger = 3 Const adBigInt = 20 Const adUnsignedTinyInt = 17 Const adUnsignedSmallInt = 18 Const adUnsignedInt = 19 Const adUnsignedBigInt = 21 Const adSingle = 4 Const adDouble = 5 Const adCurrency = 6 Const adDecimal = 14 Const adNumeric = 131 Const adBoolean = 11 Const adError = 10 Const adUserDefined = 132 Const adVariant = 12 Const adIDispatch = 9 Const adIUnknown = 13 Const adGUID = 72 Const adDate = 7 Const adDBDate = 133 Const adDBTime = 134 Const adDBTimeStamp = 135 Const adBSTR = 8 Const adChar = 129 Const adVarChar = 200 Const adLongVarChar = 201 Const adWChar = 130 Const adVarWChar = 202 Const adLongVarWChar = 203 Const adBinary = 128 Const adVarBinary = 204 Const adLongVarBinary = 205 '---- FieldAttributeEnum Values ---- Const adFldMayDefer = &H00000002 Const adFldUpdatable = &H00000004 Const adFldUnknownUpdatable = &H00000008 Const adFldFixed = &H00000010 Const adFldIsNullable = &H00000020 Const adFldMayBeNull = &H00000040 Const adFldLong = &H00000080 Const adFldRowID = &H00000100 Const adFldRowVersion = &H00000200 Const adFldCacheDeferred = &H00001000 '---- EditModeEnum Values ---- Const adEditNone = &H0000 Const adEditInProgress = &H0001 Const adEditAdd = &H0002 Const adEditDelete = &H0004 '---- RecordStatusEnum Values ---- Const adRecOK = &H0000000 Const adRecNew = &H0000001 Const adRecModified = &H0000002 Const adRecDeleted = &H0000004 Const adRecUnmodified = &H0000008 Const adRecInvalid = &H0000010 Const adRecMultipleChanges = &H0000040 Const adRecPendingChanges = &H0000080 Const adRecCanceled = &H0000100 Const adRecCantRelease = &H0000400 Const adRecConcurrencyViolation = &H0000800 Const adRecIntegrityViolation = &H0001000 Const adRecMaxChangesExceeded = &H0002000 Const adRecObjectOpen = &H0004000 Const adRecOutOfMemory = &H0008000 Const adRecPermissionDenied = &H0010000 Const adRecSchemaViolation = &H0020000 Const adRecDBDeleted = &H0040000 '---- GetRowsOptionEnum Values ---- Const adGetRowsRest = -1 '---- PositionEnum Values ---- Const adPosUnknown = -1 Const adPosBOF = -2 Const adPosEOF = -3 '---- enum Values ---- Const adBookmarkCurrent = 0 Const adBookmarkFirst = 1 Const adBookmarkLast = 2 '---- MarshalOptionsEnum Values ---- Const adMarshalAll = 0 Const adMarshalModifiedOnly = 1 '---- AffectEnum Values ---- Const adAffectCurrent = 1 Const adAffectGroup = 2 Const adAffectAll = 3 '---- FilterGroupEnum Values ---- Const adFilterNone = 0 Const adFilterPendingRecords = 1 Const adFilterAffectedRecords = 2 Const adFilterFetchedRecords = 3 Const adFilterPredicate = 4 '---- SearchDirection Values ---- Const adSearchForward = 1 Const adSearchBackward = -1 '---- ConnectPromptEnum Values ---- Const adPromptAlways = 1 Const adPromptComplete = 2 Const adPromptCompleteRequired = 3 Const adPromptNever = 4 '---- ConnectModeEnum Values ---- Const adModeUnknown = 0 Const adModeRead = 1 Const adModeWrite = 2 Const adModeReadWrite = 3 Const adModeShareDenyRead = 4 Const adModeShareDenyWrite = 8 Const adModeShareExclusive = &Hc Const adModeShareDenyNone = &H10 '---- IsolationLevelEnum Values ---- Const adXactUnspecified = &Hffffffff Const adXactChaos = &H00000010 Const adXactReadUncommitted = &H00000100 Const adXactBrowse = &H00000100 Const adXactCursorStability = &H00001000 Const adXactReadCommitted = &H00001000 Const adXactRepeatableRead = &H00010000 Const adXactSerializable = &H00100000 Const adXactIsolated = &H00100000 '---- XactAttributeEnum Values ---- Const adXactCommitRetaining = &H00020000 Const adXactAbortRetaining = &H00040000 '---- PropertyAttributesEnum Values ---- Const adPropNotSupported = &H0000 Const adPropRequired = &H0001 Const adPropOptional = &H0002 Const adPropRead = &H0200 Const adPropWrite = &H0400 '---- ErrorValueEnum Values ---- Const adErrInvalidArgument = &Hbb9 Const adErrNoCurrentRecord = &Hbcd Const adErrIllegalOperation = &Hc93 Const adErrInTransaction = &Hcae Const adErrFeatureNotAvailable = &Hcb3 Const adErrItemNotFound = &Hcc1 Const adErrObjectInCollection = &Hd27 Const adErrObjectNotSet = &Hd5c Const adErrDataConversion = &Hd5d Const adErrObjectClosed = &He78 Const adErrObjectOpen = &He79 Const adErrProviderNotFound = &He7a Const adErrBoundToCommand = &He7b Const adErrInvalidParamInfo = &He7c Const adErrInvalidConnection = &He7d Const adErrStillExecuting = &He7f Const adErrStillConnecting = &He81 '---- ParameterAttributesEnum Values ---- Const adParamSigned = &H0010 Const adParamNullable = &H0040 Const adParamLong = &H0080 '---- ParameterDirectionEnum Values ---- Const adParamUnknown = &H0000 Const adParamInput = &H0001 Const adParamOutput = &H0002 Const adParamInputOutput = &H0003 Const adParamReturnValue = &H0004 '---- CommandTypeEnum Values ---- Const adCmdUnknown = &H0008 Const adCmdText = &H0001 Const adCmdTable = &H0002 Const adCmdStoredProc = &H0004 '---- SchemaEnum Values ---- Const adSchemaProviderSpecific = -1 Const adSchemaAsserts = 0 Const adSchemaCatalogs = 1 Const adSchemaCharacterSets = 2 Const adSchemaCollations = 3 Const adSchemaColumns = 4 Const adSchemaCheckConstraints = 5 Const adSchemaConstraintColumnUsage = 6 Const adSchemaConstraintTableUsage = 7 Const adSchemaKeyColumnUsage = 8 Const adSchemaReferentialContraints = 9 Const adSchemaTableConstraints = 10 Const adSchemaColumnsDomainUsage = 11 Const adSchemaIndexes = 12 Const adSchemaColumnPrivileges = 13 Const adSchemaTablePrivileges = 14 Const adSchemaUsagePrivileges = 15 Const adSchemaProcedures = 16 Const adSchemaSchemata = 17 Const adSchemaSQLLanguages = 18 Const adSchemaStatistics = 19 Const adSchemaTables = 20 Const adSchemaTranslations = 21 Const adSchemaProviderTypes = 22 Const adSchemaViews = 23 Const adSchemaViewColumnUsage = 24 Const adSchemaViewTableUsage = 25 Const adSchemaProcedureParameters = 26 Const adSchemaForeignKeys = 27 Const adSchemaPrimaryKeys = 28 Const adSchemaProcedureColumns = 29 %> <% FUNCTION fixQuotes (ByVal theText) if trim(theText) <> "" or theText <> null then theText = Replace (theText, "'", "''" ) end if fixQuotes = theText END FUNCTION FUNCTION setFieldData(ByVal theText) if trim(theText) <> "" or theText <> null then theText = Replace (theText, "'", "''" ) 'theText = Replace (theText, ",", " " ) end if setFieldData = theText END FUNCTION FUNCTION formatText (ByVal theText) if trim(theText) <> "" or theText <> null then theText = Replace (theText, vbCRLF&vbCRLF, "

" ) theText = Replace (theText, vbCRLF, "
" ) theText = Replace (theText, "

", "
" ) theText = Replace (theText, "

", "" ) end if formatText = theText END FUNCTION FUNCTION TextOutput (ByVal theText) theText = Replace (theText, "

", vbCRLF&vbCRLF ) theText = Replace (theText, "
", vbCRLF ) TextOutput = theText END FUNCTION FUNCTION getField(sSQL) Set rsLib = Server.CreateObject("ADODB.Recordset") rsLib.open sSQL, con if not rsLib.eof then getField = rsLib(0) 'else response.write " No Data Found" rsLib.close End Function FUNCTION getRows(sSQL) Set rsLib = Server.CreateObject("ADODB.Recordset") rsLib.open sSQL, con rowcount = 0 While not rsLib.Eof rowcount = rowcount + 1 rsLib.MoveNext Wend getRows = rowcount End Function FUNCTION getRecord(sSQL) set rsRows = con.execute(sSQL) if Not rsRows.eof then recordArray = rsRows.getrows() getRecord = recordArray rsRows.close End Function SUB DataGetRows(parmSQL,byref rows, byref parmArray,byref parmDict) dim rstemp, counter set rstemp=con.execute(parmSQL) If rstemp.eof then response.write "No records matched
" response.write mySQL & "
So cannot make table..." rstemp.close set rstemp=nothing exit sub end if ' Now lets fill up dictionary with field names/numbers howmany=rstemp.fields.count for counter=0 to howmany-1 parmdict.add lcase(rstemp(counter).name), counter next ' Now lets grab all the records parmArray=rstemp.getrows() rows = ubound(parmarray,2) parmdict.add "rowcount", ubound(parmarray,2) parmdict.add "colcount", howmany-1 rstemp.close set rstemp=nothing END SUB FUNCTION listBox(sSQL, selectParam, selected, firstOption) Set rsLib= Server.CreateObject("ADODB.Recordset") rsLib.open sSQL, con, adOpenStatic Response.Write("") rsLib.close End Function FUNCTION listBoxNum(sSQL, selectParam, selected, firstOption) Set rsLib= Server.CreateObject("ADODB.Recordset") rsLib.open sSQL, con, adOpenStatic Response.Write("") rsLib.close End Function FUNCTION listBoxArray(arrayname, selectParam, selected, firstOption) Response.Write("") End Function FUNCTION listBoxArray2(arrayname, selectParam, selected, firstOption) Response.Write("") End Function FUNCTION listBoxArray1(arrayname, selectParam, selected, firstOption) Response.Write("") End Function FUNCTION listBoxDlCategory(arrayname, selectParam, selected, firstOption, division) Response.Write("") End Function FUNCTION Autonumber(tblname, tblfield) set rsLib=server.CreateObject("ADODB.Recordset") sSQL = "select max(" & tblfield & ") from " & tblname rsLib.Open sSQL,con if isNumeric(rsLib(0)) then id=rsLib(0) else id=0 rsLib.Close id = id + 1 Autonumber = id End Function FUNCTION RandomNo() randomize number = Int(Rnd() * 1000000000) RandomNo = number End Function FUNCTION RandomNo1() randomize number = Int(Rnd() * 10000) RandomNo1 = number End Function FUNCTION isAvailable(sSQL) set rsLib=server.CreateObject("ADODB.Recordset") rsLib.Open sSQL,con if Not rsLib.Eof then found = true else found = false isAvailable = found rsLib.Close End Function Function convertDate(gdate) if (delimiter = "" ) then delimiter = " - " 'gdateArray = split(gdate, "/") convertDate = gdate 's gdateArray(1) & delimiter & gdateArray(0) & delimiter & gdateArray(2) End Function FUNCTION multipleCheckBox(arrayname, columns, boxname, selected, classname) response.write("") response.write("") for i = 0 to ubound(arrayname) if (selected <> "") then selectedarray = split(selected, ",") checkedText = "" if (isarray(SelectedArray)) then for j = 0 to ubound(SelectedArray) if arrayName(i) = trim(selectedArray(j)) then checkedText = "Checked" Next else if arrayName(i) = selected then checkedText = "Checked" end if 'Startdiplay the checkbox options response.write("") response.write("") if (((i+1) mod columns) = 0 and i <> 0) then response.write("") else response.write("") next response.write("

" & arrayname(i) & "

") End Function 'Multiple dimension array FUNCTION multipleCheckBox1(arrayname, columns, boxname, selected, classname) response.write("") response.write("") for i = 0 to ubound(arrayname,2) if (selected <> "") then selectedarray = split(selected, ",") checkedText = "" if (isarray(SelectedArray)) then for j = 0 to ubound(SelectedArray) if arrayName(0,i) = trim(selectedArray(j)) then checkedText = "Checked" Next else if arrayName(0,i) = selected then checkedText = "Checked" end if 'Startdiplay the checkbox options response.write("") response.write("") if (((i+1) mod columns) = 0 and i <> 0) then response.write("") else response.write("") next response.write("

" & arrayname(1,i) & "

") End Function FUNCTION getImageIcon(downloadLink) if downloadLink <> "" then linkArray = split(downloadLink, ".") ext = lcase(linkArray(ubound(linkarray))) if ext = "xls" or ext = "csv" then image = "excel.gif" if ext = "doc" then image = "word.gif" if ext = "pdf" then image = "pdf.gif" if ext = "zip" then image = "zip.gif" if image = "" then image = "unknown.gif" end if getImageIcon = image End Function FUNCTION getGrade(marks, totalmarks) if totalmarks = 0 then totalmarks = 1 percentage = (marks / totalmarks) * 100 if (percentage >= 70) then grade = "A" if (percentage >= 60 and percentage < 70) then grade = "B" if (percentage >= 50 and percentage <= 59) then grade = "C" if (percentage >= 40 and percentage <= 49) then grade = "D" if (percentage <= 39) then grade = "E" getGrade = grade End Function FUNCTION mysql2asp(textdate, mtype) newdate = "" if textdate <> "" then datearray = split(textdate, "-") newdate = datearray(1) & "-" & datearray(0) end if mysql2asp = newdate End Function FUNCTION getDlDir(category, coursecode, batchno) dldir = "" response.write(category) for i = 0 to ubound(gDlCategory,1) if (lcase(gDlCategory(i,0)) = lcase(category)) then if gDlCategory(i,1) = "mahe" then dldir = gDlCategory(i,2) & "\" & coursecode & "\" & batchno else dldir = gDlCategory(i,2) end if exit for end if next if dldir = "" then dldir = category ' If mapping not found then category is the directory name 'response.write(dldir) getDlDir = dldir End Function dim nowords(10), courseDepartment(14), courseQualification(4), courseType(6), cDivision(2), cdCategory(5), dirmapping(7,2), gDlCategory(15,2) nowords(1) = "First" nowords(2) = "Second" nowords(3) = "Third" nowords(4) = "Fourth" nowords(5) = "Fifth" nowords(6) = "Sixth" nowords(7) = "Seventh" nowords(8) = "Eighth" courseDepartment(0) = "Information Technology" courseDepartment(1) = "IT - Hardware" courseDepartment(2) = "IT - Software" courseDepartment(3) = "IT - Multimedia" courseDepartment(4) = "Telecom" courseDepartment(5) = "ITES" courseDepartment(6) = "BioTechnology" courseDepartment(7) = "BioInfomatics" courseDepartment(8) = "Commerce" courseDepartment(9) = "Teaching" courseDepartment(10) = "Fashion Design" courseDepartment(11) = "Management" courseDepartment(12) = "Mass Communication" courseDepartment(13) = "Hotel Management" courseDepartment(14) = "Allied Health" courseQualification(0) = "Any" courseQualification(1) = "PUC" courseQualification(2) = "Diploma" courseQualification(3) = "Graduation" courseQualification(4) = "PostGraduation" courseType(1) = "Short Term" courseType(2) = "Certificate" courseType(3) = "Diploma" courseType(4) = "Bachelor" courseType(5) = "PG Diploma" courseType(6) = "Masters" cDivision(0) = "SMU" cDivision(1) = "MAHE" cDivision(2) = "Short Term" downloadDir = Server.MapPath("/download/") 'Course Details Category cdCategory(0) = "Program Guide" cdCategory(1) = "Model Question Paper" cdCategory(2) = "Syllabus" cdCategory(3) = "References" cdCategory(4) = "Errata in Courseware" cdCategory(5) = "Useful Info." gDlCategory(0,0) = "Program Guide" gDlCategory(0,1) = "smu" gDlCategory(0,2) = "pguide" gDlCategory(1,0) = "Model Question Paper" gDlCategory(1,1) = "smu" gDlCategory(1,2) = "model" gDlCategory(2,0) = "Syllabus" gDlCategory(2,1) = "smu" gDlCategory(2,2) = "syllabus" gDlCategory(3,0) = "References" gDlCategory(3,1) = "smu" gDlCategory(3,2) = "references" gDlCategory(4,0) = "Errata in Courseware" gDlCategory(4,1) = "smu" gDlCategory(4,2) = "errata" gDlCategory(5,0) = "Useful Info." gDlCategory(5,1) = "smu" gDlCategory(5,2) = "usefulinfo" gDlCategory(6,0) = "Forms & Applications" gDlCategory(6,1) = "" gDlCategory(6,2) = "applications" gDlCategory(7,0) = "Software" gDlCategory(7,1) = "" gDlCategory(7,2) = "software" gDlCategory(8,0) = "Session Schedule" gDlCategory(8,1) = "mahe" gDlCategory(8,2) = "mahe\schedule" gDlCategory(9,0) = "Session Plan" gDlCategory(9,1) = "mahe" gDlCategory(9,2) = "mahe\plan" gDlCategory(10,0) = "Session Downloads" gDlCategory(10,1) = "mahe" gDlCategory(10,2) = "mahe\session" gDlCategory(11,0) = "Assignments" gDlCategory(11,1) = "mahe" gDlCategory(11,2) = "mahe\assignments" gDlCategory(12,0) = "Case Study" gDlCategory(12,1) = "mahe" gDlCategory(12,2) = "mahe\casestudy" gDlCategory(13,0) = "IA Marks" gDlCategory(13,1) = "mahe" gDlCategory(13,2) = "mahe\iamarks" gDlCategory(14,0) = "Consolidated IA Marks" gDlCategory(14,1) = "mahe" gDlCategory(14,2) = "mahe\iamarks" gDlCategory(15,0) = "IA marks of Lab" gDlCategory(15,1) = "mahe" gDlCategory(15,2) = "mahe\iamarks" dirmapping(0,0) = "Courses" dirmapping(0,1) = "courses" ' Prospectus for the courses dirmapping(1,0) = "Model Question Paper" dirmapping(1,1) = "model" ' Model question Paper dirmapping(2,0) = "Forms & Applications" dirmapping(2,1) = "applications" ' Forms and Applications for examinations dirmapping(3,0) = "Software" dirmapping(3,1) = "software" 'Software needed for viewing the download files and other common files dirmapping(4,0) = "Useful Info." dirmapping(4,1) = "usefulinfo" dirmapping(5,0) = "Program Guide" dirmapping(5,1) = "pguide" dirmapping(6,0) = "Session Plan" dirmapping(6,1) = "mahe/session" dirmapping(6,0) = "Session Downloads" dirmapping(6,1) = "mahe/session" dirmapping(7,0) = "Case Study" dirmapping(7,1) = "casestudy" dirmapping(7,0) = "Case Study" dirmapping(7,1) = "casestudy" %>

IA SOFT JAN 2008 will be available at centre login from 1 December 2007 As per circular COE/RDR/CP dt 28/09/07 ,revised results for combined paper is available January 2008 examination timetable Results - Combined Papers: July 2007 Examinations Special program from PLACEMENT CELL on 25 to 27 Sept-07, broadcast from Bangalore Studio .To view the schedule please use your center login Re-Examination July 2007 - Circular IA SOFT OCT 2007 IS AVAILABLE AT CENTRE LOGIN OCTOBER 2007 EXAMINATION TIMETABLE Results of JULY 07 examinations has been declared. CALENDAR OF EVENTS – SPRING SESSION 2007 AHS (Allied Health Sciences) VSAT Lectures for the first time

Careers

Work Environment in Manipal

Quality and Customer Focus have been the guiding principles of Manipal U. We help you grow with the company by providing a proactive atmosphere and encouraging teamwork. Our world-class facilities will bring out the best in you. Training is an integral part of our initiation process for new employees. As a part of the growing interactive customer services industry, you will gain experience in the global market. We work in a boundary-less manner and follow an ethical culture. We firmly believe 'people are the greatest assets'.
Click Here for Current Openings@Manipal U.

Disclaimer | Feedback | Sitemap

25-MAR-2009