<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Option Explicit %> <% Dim RS_Testi, SQL, TestiName, ID set RS_Testi = Server.CreateObject("ADODB.Recordset") RS_Testi.ActiveConnection = MM_HNISVRNODSN_STRING SQL = "SELECT * FROM "&strTablePrefix&"_Testimonials ORDER BY TestiName" RS_Testi.Open(SQL) %> Testimonials

MKS Intranet
Testimonials List

Click Here to add a new testimonial.

<% Do While NOT (RS_Testi.EOF) TestiName = RS_Testi("TestiName") ID = RS_Testi("ID") %>

<% RS_Testi.MoveNext Loop %>

<% =TestiName %>
Edit | Delete