<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.Redirect("http://www.infinite-video.com/contact-form.html") %> <% Dim rsTestimonials Dim rsTestimonials_cmd Dim rsTestimonials_numRows Set rsTestimonials_cmd = Server.CreateObject ("ADODB.Command") rsTestimonials_cmd.ActiveConnection = MM_infinitevideo_STRING rsTestimonials_cmd.CommandText = "SELECT TOP 1 ID, quote, name FROM dbo.ivp_testimonials ORDER BY NEWID()" rsTestimonials_cmd.Prepared = true rsTestimonials_cmd.Parameters.Append rsTestimonials_cmd.CreateParameter("param1", 5, 1, -1, rsTestimonials__MMColParam) ' adDouble Set rsTestimonials = rsTestimonials_cmd.Execute rsTestimonials_numRows = 0 %> Infinite Video Productions <% dim current_year current_year = (year(Date)) %>
<% IF Request.QueryString("ty")="Y" THEN %>
 
 
Thank you for your comment.
<% ELSE %>
Name:
Email:
Question or Comment:
How did you hear about us?
Enter the word below:
24 Alpine Street
Port Jefferson Station, NY 11776
mike@infinite-video.com
Phone: 631.664.7161
<% END IF %>
"<%= rsTestimonials.Fields.Item("quote").Value %>"
- <%= rsTestimonials.Fields.Item("name").Value %>