<%@LANGUAGE="VBSCRIPT"%> <% option explicit %> <% Dim rstPath__MMColParam rstPath__MMColParam = "1" If (Request.QueryString("ID") <> "") Then rstPath__MMColParam = Request.QueryString("ID") End If %> <% Dim rstPath Dim rstPath_numRows Dim cnnPath Dim dbPath Dim trainDance Dim exDance Dim fAndTV Dim livePerf Dim sumMary Dim image02 Dim cv dbPath = Server.MapPath("testbook.mdb") Set cnnPath = Server.CreateObject("ADODB.Connection") cnnPath.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";" Set rstPath = cnnPath.Execute("SELECT * FROM dancers WHERE ID = " + Replace(rstPath__MMColParam, "'", "''") + "") rstPath_numRows = 0 trainDance = rstPath.Fields.Item("Performers_Training").Value exDance = rstPath.Fields.Item("Dancing_Experience").Value fAndTV = rstPath.Fields.Item("Film_Experience").Value livePerf = rstPath.Fields.Item("Live_Experience").Value sumMary = rstPath.Fields.Item("Summary").Value image02 = rstPath.Fields.Item("Image02").Value cv = rstPath.Fields.Item("CV").Value %> The Human Garden Agency
<%=(rstPath.Fields.Item("Name").Value)%>

<%=(rstPath.Fields.Item("Surname").Value)%>
" width="300" align="center" border="0" >
<% If rstPath.Fields.Item("Actor").Value = -1 Then %> Actor
<% End If If rstPath.Fields.Item("Talent").Value = -1 Then %> Talent
<% End If If rstPath.Fields.Item("Stunts").Value = -1 Then %> Stunt Artist
<% End If If rstPath.Fields.Item("Choreographer").Value = -1 Then %> Choreographer
<% End If If rstPath.Fields.Item("Dancer").Value = -1 Then %> Dancer
<% End If If rstPath.Fields.Item("Circus_Artist").Value = -1 Then %> Circus Artist
<% End If If rstPath.Fields.Item("Singer").Value = -1 Then %> Singer
<% End If If rstPath.Fields.Item("Fire_Performers").Value = -1 Then %> Fire Performer
<% End If If rstPath.Fields.Item("Special_Acts").Value = -1 Then %> Special Act
<% End If %>

Date Of Birth:

Nationality:

Height (inches/cm):

Hair Colour:

Eye Colour:

Dress/Suit Size:

Shoe Size:

Chest:

Waist:

Hips:

<% If rstPath.Fields.Item("Actor").Value = -1 Then %> Actor
<% End If If rstPath.Fields.Item("Talent").Value = -1 Then %> Talent
<% End If If rstPath.Fields.Item("Stunts").Value = -1 Then %> Stunt Artist
<% End If If rstPath.Fields.Item("Choreographer").Value = -1 Then %> Choreographer
<% End If If rstPath.Fields.Item("Dancer").Value = -1 Then %> Dancer
<% End If If rstPath.Fields.Item("Circus_Artist").Value = -1 Then %> Circus Artist
<% End If If rstPath.Fields.Item("Singer").Value = -1 Then %> Singer
<% End If If rstPath.Fields.Item("Fire_Performers").Value = -1 Then %> Fire Performer
<% End If If rstPath.Fields.Item("Special_Acts").Value = -1 Then %> Special Act
<% End If %>

<%=(rstPath.Fields.Item("DOB").Value)%>

<%=(rstPath.Fields.Item("Nationality").Value)%>

<%=(rstPath.Fields.Item("HeightA").Value)%>/<%=(rstPath.Fields.Item("HeightB").Value)%>

<%=(rstPath.Fields.Item("Hair_Colour").Value)%>

<%=(rstPath.Fields.Item("Eye_Colour").Value)%>

<%=(rstPath.Fields.Item("Dress_Suit_Size").Value)%>

<%=(rstPath.Fields.Item("Shoe_Size").Value)%>

<%=(rstPath.Fields.Item("Chest").Value)%>

<%=(rstPath.Fields.Item("Waist").Value)%>

<%=(rstPath.Fields.Item("Hips").Value)%>

 



<% If fAndTV <> "" Then %> Film, Television & Stills:

<%=(rstPath.Fields.Item("Film_Experience").Value)%>

<% End If If livePerf <> "" Then %> Live Performance:

<%=(rstPath.Fields.Item("Live_Experience").Value)%>

<% End If If exDance <> "" Then %> <%=(rstPath.Fields.Item("Dancing_Experience").Value)%>

<% End If If trainDance <> "" Then %> Dance & Acting Training:

<%=(rstPath.Fields.Item("Performers_Training").Value)%>

<% End If If sumMary <> "" Then %> Summary:

<%=(rstPath.Fields.Item("Summary").Value)%>

<% End If If cv <> "" Then %> Click ">here to download CV


<% End If %>

" width="300" align="center">

 

ACTORS, DANCERS, PERFORMERS AND CHILDREN FOR STILLS, MOTION PICTURES AND EVENTS
1st Floor, 3 Mortimer Pass, PO Box 9942, Newmarket, Auckland
Ph: 64 9 520 8321 - Fax: 64 9 520 8322 - info@humangarden.co.nz - www.humangarden.co.nz
<% rstPath.Close() Set rstPath = Nothing cnnPath.Close Set cnnPath = Nothing %>