<% Dim PID Dim ProfileImg Dim ProfileThumb Dim ProfileName Dim ProfileFirstName Dim ProfileLastName Dim ProfileShort Dim ProfileLong Dim ProfileInterests Dim ProfileQuote Dim ProfileActive PID = Trim(Request("PID")) %> tdf - Meet our Students
<<< Back
<% LoadProfile (PID) %>
©<%=DatePart("yyyy", Now)%> TDF. TDF® and TKTS® are registered trademarks of the Theatre Development Fund. All rights reserved.
<% Sub ReviewList Dim ReviewID Dim ProfileID Dim ReviewTitle Dim ReviewImg Dim ReviewThumb Dim ReviewShort Dim ReviewLong Dim DateStamp Dim TDFLink Dim fileID Dim DBPath DBPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Server.MapPath("articles.mdb") & ";" Dim CONN, RS, SQL Set CONN = Server.CreateObject("ADODB.Connection") CONN.ConnectionString = DBPath Conn.Open Set RS = CONN.Execute("SELECT * FROM tblReviews WHERE ReviewID = " & RID & ";") While Not RS.EOF ReviewID = Trim(RS("ReviewID")) ProfileID = Trim(RS("ProfileID")) ReviewTitle = Trim(RS("ReviewTitle")) ReviewImg = Trim(RS("ReviewImg")) ReviewThumb = Trim(RS("ReviewThumb")) ReviewShort = Trim(RS("ReviewShort")) ReviewLong = Trim(RS("ReviewLong")) DateStamp = Trim(RS("DateStamp")) TDFLink = Trim(RS("TDFLink")) LoadProfile (ProfileID) %>
<%=ProfileName%>
<%=ProfileShort%>

<%=ReviewLong%>
Click here for more information about this show.
<% RS.MOVENEXT Wend RS.Close CONN.Close Set RS = Nothing Set CONN = Nothing End Sub Function LoadProfile (i) 'Dim ProfileID Dim DateStamp Dim fileID Dim DBPath If Not IsNumeric(i) Then i = 0 DBPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Server.MapPath("articles.mdb") & ";" Dim CONN, RS, SQL Set CONN = Server.CreateObject("ADODB.Connection") CONN.ConnectionString = DBPath Conn.Open Set RS = CONN.Execute("SELECT * FROM tblProfiles ORDER BY ProfileLastName") While Not RS.EOF ProfileID = Trim(RS("ProfileID")) ProfileImg = Trim(RS("ProfileImg")) ProfileThumb = Trim(RS("ProfileThumb")) ProfileName = Trim(RS("ProfileName")) ProfileFirstName = Trim(RS("ProfileFirstName")) ProfileLastName = Trim(RS("ProfileLastName")) ProfileShort = Trim(RS("ProfileShort")) ProfileLong = Trim(RS("ProfileLong")) ProfileInterests = Trim(RS("ProfileInterests")) ProfileQuote = Trim(RS("ProfileQuote")) ProfileActive = Trim(RS("ProfileActive")) DateStamp = Trim(RS("DateStamp")) %>
<%=ProfileName%>
<%=ProfileShort%>
<%=ProfileQuote%>
<%=ProfileLong%>

<% RS.MOVENEXT Wend RS.Close CONN.Close Set RS = Nothing Set CONN = Nothing End Function %>