%@LANGUAGE = VBScript%> <% If Request.QueryString("artistid") = "" Then Response.Redirect("artists.asp") End If myConn.Open Dim mySQL Dim rs Set rs = Server.CreateObject("ADODB.Recordset") Dim ArtistID ArtistID = Request.QueryString("artistid") mySQL = "SELECT arNome, arCognome, arDescrizione, arPath, arEmail, arSitoInternet, arContatti " & _ "FROM Artisti " & _ "WHERE arID = " & ArtistID rs.Open mySQL, myConn %>
<%= rs("arCognome") %> <%= rs("arNome") %> | ||
<% PlaceImage "artists/" & rs("arPath") & "/fotos/default.jpg", 120 %> | <%= Replace(rs("arDescrizione"), chr(13), " ") %> |
|
Links |
<%
If rs("arEmail") = "" And rs("arSitoInternet") = "" And rs("arContatti") = "" Then
%>
No links available
<%
Else
If rs("arEmail") <> "" Then
%>
E-mail: "><%= rs("arEmail") %> <% End If If rs("arSitoInternet") <> "" Then %> Web: " target="_blank"><%= rs("arSitoInternet") %> <% End If If rs("arContatti") <> "" Then %> Contact: <%= rs("arContatti") %> <% End If End If %> |
|
Details of artist |
<%
rs.Close
mySQL = "SELECT teID, teTitolo " & _
"FROM TestiArtisti " & _
"WHERE teIDArtista = " & ArtistID & " AND teNascosto IS NULL " & _
"ORDER BY teIndice"
rs.Open mySQL, myConn
If rs.BOF And rs.EOF Then
%>
No details available
<%
Else
Do Until rs.EOF
%>
"><%= rs("teTitolo") %> <% rs.MoveNext Loop End If %> |
|
">
<%
PlaceImage "artists/" & rs("arPath") & "/operas/" & CStr(rs("opIndice")) & ".jpg", 100
%>
<%= rs("opTitolo") %> |
<%
i = i + 1
rs.MoveNext
If i = 6 or rs.EOF Then
i = 1
%>
||||