<%@LANGUAGE = VBScript%> <% If Request.QueryString("operaid") = "" Then Response.Redirect("artists.asp") End If myConn.Open Dim mySQL Dim rs Set rs = Server.CreateObject("ADODB.Recordset") Dim OperaID OperaID = Request.QueryString("operaid") mySQL = "SELECT opIndice, opTitolo, opTipo, opDimensione, opNote, opPrezzo, arID, arNome, arCognome, arPath " & _ "FROM OpereArtisti " & _ "INNER JOIN Artisti ON OpereArtisti.opIDArtista = Artisti.arID " & _ "WHERE opID = " & OperaID rs.Open mySQL, myConn %>
<%= rs("opTitolo") %>
Artist: <%= rs("arCognome") %> <%= rs("arNome") %> 
Type: <%= rs("opTipo") %> 
Dimension: <%= rs("opDimensione") %> 
Other info: <%= rs("opNote") %> 
Price: <% If rs("opPrezzo") = 0 Then Response.Write("n/d") Else Response.Write(FormatNumber(rs("opPrezzo"),2) + " € ") End If %> 

"><< Go back to artist


" alt="" class="FotoQuadro">
<% rs.Close %>