<% Function WriteClosedRow(RS, strJump) If RS.Fields ("pdoping") = " " Then Response.Write "" Response.Write "" + RS.Fields ("zbez") Else 'Response.Write "D" Response.Write "D" Response.Write "" + RS.Fields ("zbez") + "" End If If strJump = RS.Fields ("znumm") Then Response.Write "" End If Response.Write "" End Function Function WriteOpenRow(RS, DB) Dim RSDoping Dim strSQL 'Response.Write "Dxx"+ RS.Fields("pdoping") +"" Response.Write "D" Response.Write "" + RS.Fields ("zbez") + "" If Len(RS.Fields ("pdoping")) >= 2 Then strSQL = "SELECT * FROM mdoping WHERE pdoping = '" + Left(RS.Fields ("pdoping"),2) + "'" Set RSDoping = Server.CreateObject ("ADODB.Recordset") RSDoping.Open strSQL, DB If Not RSDoping.EOF And Not RSDoping.BOF Then Response.Write "" + RSDoping.Fields("ptext") + "" End If RSDoping.Close End If If Len(RS.Fields ("pdoping")) >= 5 Then strSQL = "SELECT * FROM mdoping WHERE pdoping = '" + Mid(RS.Fields ("pdoping"),4,2) + "'" Set RSDoping = Server.CreateObject ("ADODB.Recordset") RSDoping.Open strSQL, DB If Not RSDoping.EOF And Not RSDoping.BOF Then Response.Write "" + RSDoping.Fields("ptext") + "" End If RSDoping.Close End If End Function %>
Suchen nach:
D ... Name des verbotenen Arzneimittels (z.B. TESTOGEL 50 mg - Gel im Beutel), Name anklicken für weitere Infos
Achtung:  Bitte umbedingt Präambel vor Ihrer Anfrage lesen
LISTE ALLER IN ÖSTERREICH REGISTRIERTEN ARZNEIMITTEL (entspricht dem AUSTRIA CODEX Stand 7.5.2011)
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
Anfragen richten Sie bitte an das ÖADC (Tel. 01 - 505 80 35).
<% Dim DB Dim RS Dim nSwitch Dim strFilter Dim strJump Dim strOpen Dim strLink Dim strSearch strJump = Request.QueryString("JumpTo") strOpen = Request.QueryString("Open") strLink = Request.QueryString("LinkValue") strSearch = Request.QueryString("FilterValue") strFilter = "SELECT * FROM mspez WHERE zbez LIKE 'A%' ORDER BY ZBEZ" 'Response.Write("") 'Response.Write("LINK:" + strLink) 'Response.Write("Filter: " + strSearch) If (strLink <> "") Then strFilter = "SELECT * FROM mspez WHERE zbez LIKE '" + Request.QueryString("LinkValue") + "%' ORDER BY ZBEZ" End If If (strSearch <> "") Then strFilter = "SELECT * FROM mspez WHERE zbez LIKE '" + Request.QueryString("FilterValue") + "%' ORDER BY ZBEZ" End If 'Response.Write strFilter For Each item in Request.QueryString 'If ((item = "LinkValue" or item = "FilterValue") and Request.QueryString(item)<> "") Then 'If (item = "LinkValue" and strLink <> "1") Then ' strFilter = "SELECT * FROM mspez WHERE zbez LIKE '" + Request.QueryString(item) + "%'" 'End If 'Response.Write strFilter 'Else 'strFilter = "SELECT * FROM mspez WHERE zbez LIKE 'A%'" 'End If 'Response.Write(item + " " + Request.QueryString(item) + "<BR>") 'Response.Write "" 'Response.Write(strFilter) 'Response.Write "" Next Set DB = Server.CreateObject ("ADODB.Connection") 'DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + "C:\Inetpub\wwwroot\asp_test\medis_doping.mdb") DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("doping.mdb")) Set RS = Server.CreateObject ("ADODB.Recordset") RS.Open strFilter, DB If RS.EOF And RS.BOF Then Response.Write "Keine Medikamente gefunden" Else nSwitch = FALSE RS.MoveFirst While Not RS.EOF ' BACKGROUND COLOR If nSwitch Then Response.Write "" nSwitch = FALSE Else Response.Write "" nSwitch = TRUE End If 'WriteClosedRow(RS) If strOpen <> RS.Fields ("znumm")Then WriteClosedRow RS, strJump Else WriteOpenRow RS, DB End If Response.Write "" 'end if RS.MoveNext Wend Response.Write "
XXXXXXXXXX " + strJump + "
" End If %>
ARZNEIMITTELLISTE inkl. Kennzeichnung (D) aller gemäß der ANTI-DOPING-KONVENTION (WADA) verbotenen Arzneimittel gültig ab 1.1.2011