Seymour Segnit | Testimonials

<% Dim delimiter Set conntemp = server.CreateObject("adodb.Connection") conntemp.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../../data/ctrn.mdb") Set rsTestimonials = conntemp.Execute("SELECT testimonial_tbl.Display_Order, testimonial_tbl.name_preferred, testimonial_tbl.first_name, testimonial_tbl.last_name, testimonial_tbl.name_preferred, testimonial_tbl.job_title, testimonial_tbl.state_province, testimonial_tbl.country, testimonial_tbl.test_title, testimonial_tbl.test_quote, testimonial_tbl.test_image, testimonial_tbl.mp3_url, phobia_tbl.phobia_name FROM testimonial_tbl INNER JOIN phobia_tbl ON testimonial_tbl.phobia_id = phobia_tbl.phobia_ID Where Testimonial_tbl.Display = True AND testimonial_tbl.service = 'SS-SPK-ORG' OR testimonial_tbl.service = 'SS-SPK-AUD' Order By service DESC") 'If rsTestimonials.EOF Then 'Response.redirect "../generalerror.asp" 'End IF%> Seymour Segnit | Testimonials

<% Do Until rsTestimonials.EOF%> <% rsTestimonials.MoveNext Loop%>


	<%= rsTestimonials("test_title")%>

	<% If rsTestimonials("mp3_url")<>"" Then%> <%End If%>	<% If rsTestimonials("mp3_url")<>"" Then%> <<< Click to hear <%End If%>
	<% If rsTestimonials("test_IMage")<>"" Then%> " width="100" height="145" align="left"> <%End IF%> <%= rsTestimonials("Test_Quote")%> <% If rsTestimonials("Job_Title")<>"" Then delimiter = " - " Else delimiter = "" End If %> <%=delimiter & rsTestimonials("Job_Title")%> <%= rsTestimonials("state_province") & delimiter & rsTestimonials("Country")%>

<%= rsTestimonials("test_title")%>