Kode
<%
Dim WADWCchlaas_medklindb_jegkanelev__MMColElevID
WADWCchlaas_medklindb_jegkanelev__MMColElevID = "157"
If (Request.QueryString("elevid_form") <> "") Then
WADWCchlaas_medklindb_jegkanelev__MMColElevID = Request.QueryString("elevid_form")
End If
%>
<%
Dim WADWCchlaas_medklindb_jegkanelev__MMColFagID
WADWCchlaas_medklindb_jegkanelev__MMColFagID = "1"
If (Request.QueryString("jegkanfag_id") <> "") Then
WADWCchlaas_medklindb_jegkanelev__MMColFagID = Request.QueryString("jegkanfag_id")
End If
%>
<%
Dim WADWCchlaas_medklindb_jegkanelev__MMColTrinnID
WADWCchlaas_medklindb_jegkanelev__MMColTrinnID = "1"
If (Request.QueryString("jegkantrinnid") <> "") Then
WADWCchlaas_medklindb_jegkanelev__MMColTrinnID = Request.QueryString("jegkantrinnid")
End If
%>
<%
Dim WADWCchlaas_medklindb_jegkanelev
Dim WADWCchlaas_medklindb_jegkanelev_cmd
Dim WADWCchlaas_medklindb_jegkanelev_numRows
Set WADWCchlaas_medklindb_jegkanelev_cmd = Server.CreateObject ("ADODB.Command")
WADWCchlaas_medklindb_jegkanelev_cmd.ActiveConnection = *connectionstring*
WADWCchlaas_medklindb_jegkanelev_cmd.CommandText = "SELECT jegkannr AS XLABEL, fk_vurdering_id AS YVALUE, fk_jegkan_id, fk_elev_id, jegkanelev_id, dato_vurdert, jegkan_id, jegkanfag, jegkantrinn, jegkantekst FROM chlaas_medklin.db_jegkanelev INNER JOIN chlaas_medklin.db_jegkan ON fk_jegkan_id = jegkan_id WHERE fk_elev_id = ? AND jegkanfag = ? AND jegkantrinn = ?"
WADWCchlaas_medklindb_jegkanelev_cmd.Prepared = true
WADWCchlaas_medklindb_jegkanelev_cmd.Parameters.Append WADWCchlaas_medklindb_jegkanelev_cmd.CreateParameter("param1", 5, 1, -1, WADWCchlaas_medklindb_jegkanelev__MMColElevID) ' adDouble
WADWCchlaas_medklindb_jegkanelev_cmd.Parameters.Append WADWCchlaas_medklindb_jegkanelev_cmd.CreateParameter("param2", 5, 1, -1, WADWCchlaas_medklindb_jegkanelev__MMColFagID) ' adDouble
WADWCchlaas_medklindb_jegkanelev_cmd.Parameters.Append WADWCchlaas_medklindb_jegkanelev_cmd.CreateParameter("param3", 5, 1, -1, WADWCchlaas_medklindb_jegkanelev__MMColTrinnID) ' adDouble
Set WADWCchlaas_medklindb_jegkanelev = WADWCchlaas_medklindb_jegkanelev_cmd.Execute
WADWCchlaas_medklindb_jegkanelev_numRows = 0
%>
