<% if session("auth")="" then Response.Write "
" Response.Write "
" Response.Write "" response.write "En esta sección del ArtistaNet vamos a anunciar proyectos a desarrollar y en desarrollo, además de peticiones de colaboración de miembros y contenido para companías en diferentes formatos del entretenimiento incluyendo audio, video, texto y fotografía." response.write "

" response.write "Por favor regístrense para poder entrar a esta sección

" Response.Write "" Response.Write "Para VER o PUBLICAR contenidos en ArtistaNet.com debe ser un usuario registrado.


" Response.Write "" Response.Write " " Response.Write "USUARIOS REGISTRADOS        " Response.Write "" Response.Write " " Response.Write "REGISTRESE AQUI" Response.Write "

" Response.Write "
" else %> ArtistaNet.com


NUEVOS  PROYECTOS
 <%= note %> <% 'If the querystring for accessing a board is empty (id1), then display the board survey If Request.Querystring("id1") = "" Then %>

<% Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../f46s2erw9zx/messages.mdb")) 'Display all the topics defined in Config.inc i=0 j=1 For Each topic in Topics sSQLP = "SELECT Count(*) AS amount FROM messages WHERE Id1 =" & j & " AND OriginalMessage = 'Yes'" Set Posts = oConn.Execute(sSQLP) sSQLR = "SELECT Count(*) AS amount FROM messages WHERE Id1 =" & j & " AND OriginalMessage = 'No'" Set Reactions = oConn.Execute(sSQLR) Response.Write "" Response.Write"" Response.Write "" Response.Write "" Response.Write "" Response.Write "" i = i+1 j = j + 1 Next Response.Write "
TEMA: Envíos: Respuestas:
" Response.Write "" & topic & "
" Response.Write "" & TopicDesc(i) & "" Response.Write "		" & Posts("amount").Value & "" & Reactions("amount").Value & "
" 'If id1 querystring is not empty, display the board with that id1 number Else %> <% Id1 = Request.Querystring("id1") Board = Id1 - 1 Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../f46s2erw9zx/messages.mdb")) sSQL = "SELECT Id1, Id2, Id3, Titel, Name, LastReaction, LastReactionId, Locked FROM messages WHERE OriginalMessage = 'Yes' AND Id1 = " & Id1 & " ORDER BY LastReaction DESC" Set Forum = oConn.Execute(sSQL) %>
Categoría: <%= Topics(Board) %>

<< VOLVER AL FORO INICIAL | CREAR NUEVO TEMA >>

<% Do While NOT Forum.EOF %> <% Forum.MoveNext If Forum.EOF Then %> <% Else %> <% Forum.MoveNext End If Loop %>
Título: Respuestas: Iniciado por: Ultima respuesta:
<% 'Checking if Thread is Locked Locked = Forum("Locked").Value If Locked = "Yes" Then %> This means it's a closed discussion. You need a password to access this discussion. <% Else %><% End If %> <% If Session("Mod") = "Yes" Then %> " target="_new">BORRAR | <% End If %> "><% =Forum("Titel").Value %> <% id2 = Forum("Id2").Value %> <% sSQLR = "SELECT Count(*) AS amount FROM messages WHERE Id2 =" & id2 & " AND OriginalMessage = 'No'" Set Reacties = oConn.Execute(sSQLR) %>     <%= Reacties("amount").Value %> <% =Forum("Name").Value %> <% =Forum("LastReaction").Value %>
<% 'Checking if Thread is Locked Locked = Forum("Locked").Value If Locked = "Yes" Then %> This means it's a closed discussion. You need a password to access this discussion. <% Else %><% End If %> <% If Session("Mod") = "Yes" Then %> " target="_new">BORRAR | <% End If %> "><% =Forum("Titel").Value %> <% id2 = Forum("Id2").Value %> <% sSQLR = "SELECT Count(*) AS amount FROM messages WHERE Id2 =" & id2 & " AND OriginalMessage = 'No'" Set Reacties = oConn.Execute(sSQLR) %>     <%= Reacties("amount").Value %> <% =Forum("Name").Value %> <% =Forum("LastReaction").Value %>
<% End If End If %>