%@LANGUAGE = VBScript%>
<%
If Request.QueryString("textid") = "" Then
Response.Redirect("artists.asp")
End If
myConn.Open
Dim mySQL
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
Dim TextID
TextID = Request.QueryString("textid")
mySQL = "SELECT teID, teTitolo, teTesto, arID, arNome, arCognome, arPath " & _
"FROM TestiArtisti " & _
"INNER JOIN Artisti ON TestiArtisti.teIDArtista = Artisti.arID " & _
"WHERE teID = " & TextID & " AND teNascosto IS NULL "
rs.Open mySQL, myConn
%>
<%= rs("teTitolo") %> |
for... |
<%= rs("arCognome") %> <%= rs("arNome") %> |
|
|
|
|
<%
rs.Close
%>