%@LANGUAGE="VBSCRIPT"%> <% Dim gebrauchtwagen__MMColParam gebrauchtwagen__MMColParam = "Gebrauchtwagen" if (Request("MM_EmptyValue") <> "") then gebrauchtwagen__MMColParam = Request("MM_EmptyValue") %> <% set gebrauchtwagen = Server.CreateObject("ADODB.Recordset") gebrauchtwagen.ActiveConnection = MM_heitmeyer_STRING gebrauchtwagen.Source = "SELECT titel FROM Tabelle1 WHERE rubrik = '" + Replace(gebrauchtwagen__MMColParam, "'", "''") + "'" gebrauchtwagen.CursorType = 0 gebrauchtwagen.CursorLocation = 2 gebrauchtwagen.LockType = 3 gebrauchtwagen.Open() gebrauchtwagen_numRows = 0 %>
![]() |
|||||||||||||||||||||||||