%@LANGUAGE="VBSCRIPT"%> <% Dim terminvereinbarung_objekte__MMColParam terminvereinbarung_objekte__MMColParam = "1" If (Request.QueryString("id") <> "") Then terminvereinbarung_objekte__MMColParam = Request.QueryString("id") End If %> <% Dim terminvereinbarung_objekte Dim terminvereinbarung_objekte_numRows Set terminvereinbarung_objekte = Server.CreateObject("ADODB.Recordset") terminvereinbarung_objekte.ActiveConnection = MM_hh_db_STRING terminvereinbarung_objekte.Source = "SELECT * FROM objekte_t WHERE id = " + Replace(terminvereinbarung_objekte__MMColParam, "'", "''") + "" terminvereinbarung_objekte.CursorType = 0 terminvereinbarung_objekte.CursorLocation = 2 terminvereinbarung_objekte.LockType = 1 terminvereinbarung_objekte.Open() terminvereinbarung_objekte_numRows = 0 %>
|
|
|||||||
|
|
||||||