<%
Dim strConnString, oConn, oRS, oFld
Set oConn = Server.CreateObject("ADODB.Connection")
strConnString = Application("conectar")
oConn.Open strConnString
%>
<%
select case request.querystring("tipo")
case "diccionario"
imagen = "no"
if request.querystring("id") <> "" Then
Set dicciona = server.CreateObject("ADODB.recordset")
dicciona.Open "select [desc] as descripcion, concep as nombre from dico where id = " & Request.querystring("id") & "", oConn, 1,1
else
%>
DICCIONARIO DEL <%if request.querystring("tipo2") = 1 then response.write "COMIC" else if request.querystring("tipo2") = "2" then response.write "MANGA" else if request.querystring("tipo2") = "3" then response.write "ROL" end if%>
Seleccione un término
<%end if%>
<%case "personaje"
imagen = "si"
directorio = "../images/person"
if request.querystring("id") <> "" Then
Set dicciona = server.CreateObject("ADODB.recordset")
dicciona.Open "select nombre, descripcion, imagen from personajes where idpersonaje = " & Request.querystring("id") & "", oConn, 1,1
if isnull(dicciona("imagen")) or dicciona("imagen") = "" then imagen = "no"
else
%>
PERSONAJES
Pasos
para realizar la búsqueda:
Introduzca en el cuadro de búsqueda de la izquierda la letra inicial
del personaje a buscar
Presione el botón 'BUSCAR'
Seleccione personaje deseado de la lista
<%end if%>
<%
case "autores"
imagen = "si"
directorio = "../images/autores"
if request.querystring("id") <> "" Then
Set dicciona = server.CreateObject("ADODB.recordset")
dicciona.Open "select tipo, nombre, resumen descripcion, imagen from autores where idautor = " & Request.querystring("id") & "", oConn, 1,1
if isnull(dicciona("imagen")) or dicciona("imagen") = "" then imagen = "no"
else
%>
AUTORES.
Pasos
para realizar la búsqueda:
Introduzca en el cuadro de búsqueda de la izquierda la letra inicial
del personaje a buscar
Presione el botón 'BUSCAR'
Seleccione personaje deseado de la lista
<%end if%>
<%case "libros"
if request.querystring("id") <> "" Then
Set dicciona = server.CreateObject("ADODB.recordset")
dicciona.Open "select autor, libro as nombre, id, datos as descripcion from libro where id = " & Request.querystring("id") & "", oConn, 1,1
else
%>
LIBROS
Seleccione un término
<%end if%>
<%end select%>
<%if request.querystring("id") = "" Then response.end%>
<%
select case request.querystring("tipo")
case "autores"
%>
<%=ucase(dicciona("nombre"))%> -
<%select case dicciona("tipo")
case "1"
response.write "GUIONISTA"
case "2"
response.write "DIBUJANTE"
case "3"
response.write "ILUSTRADOR"
case "4"
response.write "AUTOR"
end select
%>
<%case "libros"%>
<%=ucase(dicciona("nombre"))%> / AUTOR : <%=dicciona("autor")%>
<%case else%>
<%=ucase(dicciona("nombre"))%>
<%end select%>
<%
select case request.querystring("tipo")
case "personaje"
response.write "AUTORES QUE INTERVIENEN"
Set ver = server.CreateObject("ADODB.recordset")
ver.Open "SELECT peraut.tipo, autores.Nombre AS nombre, peraut.Idautor AS id FROM autores INNER JOIN peraut ON autores.IDautor = peraut.Idautor where idpersonaje = " & Request.querystring("id") & "",oConn, 1,1
cambio = "autores"
case "autores"
response.write "PERSONAJES EN LOS QUE HA TRABAJADO"
Set ver = server.CreateObject("ADODB.recordset")
ver.Open "SELECT peraut.tipo, peraut.Idpersonaje as id, nombre FROM peraut INNER JOIN personajes ON peraut.Idpersonaje = personajes.IDpersonaje where idautor = " & Request.querystring("id") & "",oConn, 1,1
cambio = "personaje"
case else
response.end
end select
%>
<%do until ver.eof%>
- &tipo=<%=cambio%>"><%=ver("nombre")%> / <%
select case ver("tipo")
case "1"
response.write "GUIONISTA"
case "2"
response.write "DIBUJANTE"
case "3"
response.write "ILUSTRADOR"
case "4"
response.write "AUTOR"
end select
%>
<%ver.movenext
loop%>
PERSONAJES