%@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 %>
<%
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:
<%
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)%>
|
|