%@LANGUAGE="VBSCRIPT"%>
<%
Dim FL__MMColParam
FL__MMColParam = "1"
If (Request.QueryString("ID_Lorna") <> "") Then
FL__MMColParam = Request.QueryString("ID_Lorna")
End If
%>
<%
Dim FL
Dim FL_numRows
Set FL = Server.CreateObject("ADODB.Recordset")
FL.ActiveConnection = MM_yuk_STRING
FL.Source = "SELECT * FROM FromLorna WHERE ID_Lorna = " + Replace(FL__MMColParam, "'", "''") + ""
FL.CursorType = 0
FL.CursorLocation = 2
FL.LockType = 3
FL.Open()
FL_numRows = 0
%>
From Lorna - Personal thoughts for my dear readers
<%
FL.Close()
Set FL = Nothing
%>