%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open = db
Set Rs = Server.CreateObject("ADODB.RecordSet")
sql = ""
sql = sql & " Select a.ID, a.imgtop, a.titulo, a.data, b.imgpq, b.imggd, b.legenda, b.IDgaleria, b.ID, a.creditos, a.dataeng "
sql = sql & " FROM galeria AS a, galeriafotos AS b"
sql = sql & " WHERE b.IDgaleria = "&validatxt(Request.QueryString("ID"))&" AND b.IDgaleria = a.ID "
sql = sql & " ORDER BY b.ID ASC "
Rs.Open SQL, Conexao, 3, 3
%>
<%=Rs(2)%>
|
|
|
<%
if Cint(request.QueryString("lang")) = 1 Then %>
Fotos <%=Rs(9)%>
<% else %>
Photos <%=Rs(9)%>
<% end if %>
|
|
|
<%
Conexao.Close()
Set Conexao = Nothing
Set Rs = Nothing
%>