%@LANGUAGE="VBSCRIPT"%> <% Dim Nieuw__MMColParam Nieuw__MMColParam = "1" if (Request.QueryString("actienummer") <> "") then Nieuw__MMColParam = Request.QueryString("actienummer") %> <% set Nieuw = Server.CreateObject("ADODB.Recordset") Nieuw.ActiveConnection = MM_Meulenhoff_STRING Nieuw.Source = "SELECT Titel, AuteurVolledig, ISBN, Omslag, Prijs, Flaptekst, Actieomschrijving, ActieNummer, Actieperiode, Actieprijs FROM Titels WHERE ActieNummer = '" + Replace(Nieuw__MMColParam, "'", "''") + "'" Nieuw.CursorType = 0 Nieuw.CursorLocation = 2 Nieuw.LockType = 3 Nieuw.Open() Nieuw_numRows = 0 %>