ESC Service Management and Dispatching Software for Small and Medium Service Companies

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("ID") <> "") Then Recordset1__MMColParam = Request.QueryString("ID") End If %> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_conn_desco_STRING Recordset1_cmd.CommandText = "SELECT * FROM desco06.pages WHERE ID = ?" Recordset1_cmd.Prepared = true Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> ESC Service Management and Dispatching Software for Small and Medium Service Companies

<%=(Recordset1.Fields.Item("content").Value)%>

<% Recordset1.Close() Set Recordset1 = Nothing %>