Hola a todos,
Necesito ayuda urgente, en estos momentos me encuentro apunto de entregar mi proyecto final de carrera, que consiste en una pagina con asp, pero no soy muy bueno programando asi que consegui el codigo hecho, pero para mi es bastante complicado y hay bastantes puntos de él que no consigo ententer, el problema mayor es que estoy apunto de hacer la presentacion de mi proyecto(que no puedo suspender sino tendre que pagar mucha pasta) y me preguntaran el funcionamiento del codigo,
por eso pido la ayuda de alguien de aqui que me no le importe explicarme el funcionamiento de el codigo.
La pagina tiene varios apartados diferentes, cada apartado tiene un buscador, y el codigo de el buscador esta en una sola pagina asp donde esta el codigo xungo (para mi)
de momento os muestro este codigo y si alguien no lo ve muy dificil y con un gran espiritu navideño tiene ganas de ayudarme me haran un graaaaaan favor, gracias:
<%if request("tipuscol")<>"" then
set db= Server.CreateObject("ADODB.Connection")
db.Open "cmon"
set mirs= Server.CreateObject("ADODB.Recordset")
sql="SELECT registres.* FROM (registres INNER JOIN (Autor INNER JOIN autor_registre ON Autor.Id_autor = autor_registre.id_autor) ON registres.id_registre = autor_registre.id_registre) INNER JOIN (Paisos INNER JOIN registres_paisos ON Paisos.id_pais = registres_paisos.id_pais) ON registres.id_registre = registres_paisos.id_registre where registres.tipus like '"&request("tipuscol")&"' and (autor.autor like '%"&request("value")&"%' or registres.titol like '%"&request("value")&"%' or registres.signatura like '%"&request("value")&"%') order by registres.titol;"
mirs.open sql,db,3,3
if mirs.recordcount>0 then%>
<table>
<%do while not mirs.eof%>
<tr>
<td>Titol: <%=mirs("titol")%>
</td>
</tr>
<%set mirs2= Server.CreateObject("ADODB.Recordset")
sql2="SELECT distinct * from autor inner join autor_registre on autor_registre.id_autor=autor.id_autor where autor_registre.id_registre="&mirs("id_registre")
mirs2.open sql2,db,3,3
do while not mirs2.eof%>
<tr>
<td>Autor: <%=mirs2("Autor")%>
</td>
</tr>
<%mirs2.movenext
loop
mirs2.close
set mirs2=nothing%>
<tr>
<td>Ambit: <%=mirs("ambit")%>
</td>
</tr>
<tr>
<td>Format: <%=mirs("format")%>
</td>
</tr>
<tr>
<td>Signatura: <%=mirs("signatura")%>
</td>
</tr>
<tr>
<td>Codi de barres: <%=mirs("codi_de_barres")%>
</td>
</tr>
<tr>
<td><img src="./img/<%=mirs("imatge")%>">
</td>
</tr>
<%mirs.movenext
loop%>
</table>
<%else%>
No s'han trobat col·leccions per la cerca sol·licitada
<%end if
mirs.close
set mirs=nothing
db.close
set db=nothing
end if
if request("tipuscol")="" then
set db= Server.CreateObject("ADODB.Connection")
db.Open "cmon"
set mirs= Server.CreateObject("ADODB.Recordset")
sql="SELECT distinct registres.* FROM (registres INNER JOIN (Autor INNER JOIN autor_registre ON Autor.Id_autor = autor_registre.id_autor) ON registres.id_registre = autor_registre.id_registre) INNER JOIN (Paisos INNER JOIN registres_paisos ON Paisos.id_pais = registres_paisos.id_pais) ON registres.id_registre = registres_paisos.id_registre where (autor.autor like '%"&request("value")&"%' or registres.titol like '%"&request("value")&"%' or registres.signatura like '%"&request("value")&"%') order by registres.tipus;"
mirs.open sql,db,3,3
if mirs.recordcount>0 then%>
<table>
<%do while not mirs.eof%>
<tr>
<td>Titol: <%=mirs("titol")%>
</td>
</tr>
<%set mirs2= Server.CreateObject("ADODB.Recordset")
sql2="SELECT * from autor inner join autor_registre on autor_registre.id_autor=autor.id_autor where autor_registre.id_registre="&mirs("id_registre")
mirs2.open sql2,db,3,3
do while not mirs2.eof%>
<tr>
<td>Autor: <%=mirs2("Autor")%>
</td>
</tr>
<%mirs2.movenext
loop
mirs2.close
set mirs2=nothing%>
<tr>
<td>Tipus: <%=mirs("tipus")%>
</td>
</tr>
<tr>
<td>Ambit: <%=mirs("ambit")%>
</td>
</tr>
<tr>
<td>Format: <%=mirs("format")%>
</td>
</tr>
<tr>
<td>Signatura: <%=mirs("signatura")%>
</td>
</tr>
<tr>
<td>Codi de barres: <%=mirs("codi_de_barres")%>
</td>
</tr>
<tr>
<td><img src="./img/<%=mirs("imatge")%>">
</td>
</tr>
<%mirs.movenext
loop%>
</table>
<%else%>
No s'han trobat col·leccions per la cerca sol·licitada
<%end if
mirs.close
set mirs=nothing
db.close
set db=nothing
end if%
