Vis licensryttere

<%@ Language=vbScript %> <% Option Explicit dim strConnection, Conn, rst, strSQL StrConnection = Application("SQL_ConnectionString") Sub ShowRyttere(Klasse, Klub, Year) Dim strWhere, strResp, strKlasse, orgKlasse, orgKlub orgKlasse=Klasse orgKlub=Klub If Klasse="0" Then Klasse = "" If Klub="0" Then Klub = "" If Klasse="" And Klub="" Then strWhere = "WHERE l.aar='" & Year& "' " If Klasse<>"" And Klub="" Then strWhere = "WHERE l.aar='" & Year& "' AND k.Klasse='" & Klasse & "'" If Klasse="" And Klub<>"" Then strWhere = "WHERE l.aar='" & Year& "' AND l.Klub='" & Klub & "'" If Klasse<>"" And Klub<>"" Then strWhere = "WHERE l.aar='" & Year& "' AND k.Klasse='" & Klasse & "' AND l.Klub='" & Klub & "'" strKlasse="" strSQL="SELECT l.LicensNummer, l.Fornavn, l.Efternavn, l.Klub, l.Nummer, k.Klasse, k.KlasseKort, l.Chipkode, l.UCIKode FROM licenser l INNER JOIN klasser k ON k.KlasseId=l.KlasseId " & strWhere & " ORDER BY k.Rang, l.Nummer, l.Klub, l.Efternavn, l.Fornavn;" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConnection set rst = Conn.Execute(strSQL) If Not rst.EOF Then rst.MoveFirst strResp = "" Response.Write strResp While not rst.eof If strKlasse<>"" THEN End If If strKlasse<>rst.fields(5).value Then strKlasse=rst.fields(5).value strResp = "" strResp = strResp & "" strResp = strResp & "" strResp = strResp & "" strResp = strResp & "" strResp = strResp & "" strResp = strResp & "" strResp = strResp & "" Response.Write strResp End If ' strResp = strResp & "" strResp = "" strResp = strResp & "" strResp = strResp & "" strResp = strResp & "" strResp = strResp & "" strResp = strResp & "" strResp = strResp & "" strResp = strResp & "" Response.Write strResp rst.MoveNext wend strResp = "

" & rst.fields(6).value & "	Licens nr.	Ryg nr.	Navn	Klub	UCI kode	Transponder
" & " " & "	" & rst.fields(0).value & "	" & rst.fields(4).value & "	" & rst.fields(1).value & " " & rst.fields(2).value & "	" & rst.fields(3).value & "	" & rst.fields(8).value & "	" & rst.fields(7).value & "

" ' strResp = strResp & "" End If rst.Close Conn.close Set Conn = Nothing Response.Cookies("dcu-jf")("lkk_klasse") = orgKlasse Response.Cookies("dcu-jf")("lkk_klub") = orgKlub Response.Cookies("dcu-jf").Expires = Date+31 Response.Write strResp End Sub Sub ShowDropDownList(Name, Table, Field, SortField, val) Dim strSQL strSQL="SELECT DISTINCT " & Field & " FROM " & Table & " ORDER BY " & SortField & ";" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConnection set rst = Conn.Execute(strSQL) If Not rst.EOF Then rst.MoveFirst Response.Write("" & vbcrlf) End If rst.Close Conn.close Set Conn = Nothing End Sub Sub DumpKlasser() Dim strSQL strSQL="SELECT DISTINCT * FROM klasser WHERE GlKlasse = 0;" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConnection set rst = Conn.Execute(strSQL) If Not rst.EOF Then rst.MoveFirst While not rst.eof Response.Write(rst.fields(0).value & " " & rst.fields(1).value & " " & rst.fields(2).value & "
") rst.MoveNext wend End If rst.Close Conn.close Set Conn = Nothing End Sub Sub ShowDate() Dim strSQL strSQL="SELECT Dato FROM Opdateringer WHERE KortNavn = 'Licens';" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConnection set rst = Conn.Execute(strSQL) If Not rst.EOF Then rst.MoveFirst While not rst.eof Response.Write(rst.fields(0).value) rst.MoveNext wend End If rst.Close Conn.close Set Conn = Nothing End Sub %> Vis licensryttere <% If strKlasser<>"" AND strKlubber<>"" AND _ strKlasser<>"-1" AND strKlubber<>"-1" Then Call ShowRyttere(strKlasser, strKlubber, Request("aar")) End If %>