Neuigkeiten

Neuigkeiten aus dem Steuerrecht

Kategorie:

<% Set conn = Server.CreateObject("ADODB.Connection") conn.open "DSN=kuehlkamp","","" SQL = "SELECT * FROM kategorie" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 If Not rs.EOF Then Response.Write " " Response.Write "" Else Response.Write "" End if ' --- Globale Datei zum Schließen eines Recordset-Objekts ' --- Objektname.Close (erwartet keine Parameter) rs.Close ' --- Löschen der Objektvariablen Set rs = Nothing ' --- Globale Datei zum Schließen einer Datenbankverbindung ' --- Objektname.Close (erwartet keine Parameter) conn.Close ' --- Löschen des Verweises auf die Objektvariable Set conn = Nothing %>

<% If Request.Form("Knopf") = "Anzeigen" Then ' --- Globale Datei zum Öffnen einer Datenbankverbindung ' --- Objektname wird als Verweis eines Connection-Objekts verwendet Set conn = Server.CreateObject("ADODB.Connection") ' --- Objektname.open "System-DSN", "UserName", "Passwort" conn.open "DSN=kuehlkamp","","" kat = Request.Form("Kategorie") SQL = "SELECT * FROM news WHERE Kategorie LIKE '%" & kat & "%' ORDER BY id DESC" %> <% ' --- Das Recordset ist leer. Fehler ausgeben Else Response.Write (" ") & "

Zu dieser Kategorie liegt keine Neuigkeit vor." & vbCrLf Response.Write (" ") & "

" & vbCrLf End if ' --- Globale Datei zum Schließen eines Recordset-Objekts ' --- Objektname.Close (erwartet keine Parameter) rs.Close ' --- Löschen der Objektvariablen Set rs = Nothing ' --- Globale Datei zum Schließen einer Datenbankverbindung ' --- Objektname.Close (erwartet keine Parameter) conn.Close ' --- Löschen des Verweises auf die Objektvariable Set conn = Nothing END IF %> <% If Request.Form("Knopf2") = " Suchen " Then strSearchText = Request.Form("search") If strSearchText = "" Or strSearchText = "*" Then Response.Write (" ") & "

Bitte geben Sie einen gültigen Suchbegriff ein !" & vbCrLf Response.Write (" ") & "

" & vbCrLf Else ' --- Globale Datei zum Öffnen einer Datenbankverbindung ' --- Objektname wird als Verweis eines Connection-Objekts verwendet Set conn = Server.CreateObject("ADODB.Connection") ' --- Objektname.open "System-DSN", "UserName", "Passwort" conn.open "DSN=kuehlkamp","","" strSearchText = Request.Form("search") SQL = "SELECT * FROM news WHERE Titel LIKE '%" & strSearchText & "%'" SQL = SQL & "Or Text LIKE '%" & strSearchText & "%' ORDER BY id DESC" %> <% ' --- Das Recordset ist leer. Fehler ausgeben Else Response.Write (" ") & "

Keine Übereinstimmung für den Suchbegriff: "& strSearchText & " gefunden !" & vbCrLf Response.Write (" ") & "