<%@LANGUAGE="VBSCRIPT"%>
<%
Dim MM_Galeria_STRING
Set MM_Galeria_STRING = Server.CreateObject("ADODB.Connection")
MM_Galeria_STRING.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("graficos.mdb"))
Dim Fotos__MMColParam
Fotos__MMColParam = "1"
If (Request.QueryString("ide") <> "") Then
Fotos__MMColParam = Request.QueryString("ide")
End If
Dim languaje, atras, titulo
languaje = Request.QueryString("lng")
if (languaje = "en") then
atras = "Back"
else
atras = "Atrás"
end if
if (languaje = "en") then
titulo = "Photogallery"
else
titulo = "Album de Fotos"
end if
%>
<%
Dim Fotos
Dim Fotos_numRows
Set Fotos = Server.CreateObject("ADODB.Recordset")
Fotos.ActiveConnection = MM_Galeria_STRING
Fotos.Source = "SELECT * FROM fotos WHERE idFoto = " + Replace(Fotos__MMColParam, "'", "''") + ""
Fotos.CursorType = 0
Fotos.CursorLocation = 2
Fotos.LockType = 1
Fotos.Open()
Fotos_numRows = 0
%>
.:: TOCAR MADERA ::. - <%= titulo %>.
