Looking for Exam Result Script

[DevilLnC]

Hello Guys, i'm looking for a script where Students can check their Result by the Roll No. and stuff

here is an example of what i'm looking for

http://www.bspuplko.org/bsp/results.html

If someone has or know where to find this script please let me know..

DevilLnC Reviewed by DevilLnC on 24th Mar 2012. Looking for Exam Result Script Hello Guys, i'm looking for a script where Students can check their Result by the Roll No. and stuff here is an example of what i'm looking for http://www.bspuplko.org/bsp/results.html If someone has or know where to find this script please let me know.. :) Rating: 5

[Apathetic]

Moodle.

[DevilLnC]

Moodle ?????

[Froomple]

Moodle ?????

http://moodle.org/

[yass100]

I am building an school website, i want to include exam result so every students can check their result.

[Areon]

possible but it depends how you will export either in excel or word ? check below code for more info for xml pattern

  Dim xmlSource
  Dim xmlXForm
  Dim strErr
  Dim strResult 

  Dim fso, file
  Dim strPath
  Const ForWriting = 2

  Set xmlSource = CreateObject("MSXML.DOMDocument")
  Set xmlXForm = CreateObject("MSXML.DOMDocument")

  xmlSource.validateOnParse = True
  xmlXForm.validateOnParse = True
  xmlSource.async = False
  xmlXForm.async = False
  
'Example : xmlSource.Load "C:\QTP91\Results.Results.xml"
  xmlSource.Load "Your Report.xml file path"


  If Err.Number <> 0 Then
      strErr = Err.Description & vbCrLf
      strErr = strErr & xmlSource.parseError.reason & " line: " & _      
               xmlSource.parseError.Line & " col: " & _
               xmlSource.parseError.linepos & _
               " text: " & xmlSource.parseError.srcText
      MsgBox strErr, vbCritical, "Error loading the XML"

  End If

  ' This loads the XSLT transform
  'Here you need to update your Xsl file
  'Example xmlXForm.Load "C:\Qtp9.1\data\PDetails.Xsl"
  
  xmlXForm.Load "Your XSL file Path"

  If Err.Number <> 0 Then

      strErr = Err.Description & vbCrLf
      strErr = strErr & xmlSource.parseError.reason & " line: " & _      
               xmlSource.parseError.Line & " col: " & _
               xmlSource.parseError.linepos & _
               " text: " & xmlSource.parseError.srcText
      MsgBox strErr, vbCritical, "Error loading the Transform"
  End If
  
  strResult = xmlSource.transformNode(xmlXForm)

  If Err.Number <> 0 Then

      strErr = Err.Description & vbCrLf

      strErr = strErr & xmlSource.parseError.reason & _
               " line: " & xmlSource.parseError.Line & _
               " col: " & xmlSource.parseError.linepos & _
               " text: " & xmlSource.parseError.srcText

      MsgBox strErr, vbCritical, "Error executing the Transform"

  End If
  
  Set fso = CreateObject("Scripting.FileSystemObject")
  
  'Here you need to update your Output files
    strPath = "c:\TestReport.html"

  ' open the file
  Set file = fso.opentextfile(strPath, ForWriting, True)

  ' write the info to the file
  file.write strResult

  ' close and clean up
  file.Close