%@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
%> |
|
|
|
|
" alt="" class="FotoQuadro">
|
<%
rs.Close
%>