<%@LANGUAGE="VBSCRIPT"%> <% function ImageResize(strImageName, intDesiredWidth, intDesiredHeight) dim TargetRatio dim CurrentRatio dim strResize dim w, h, c, strType if gfxSpex(strImageName, w, h, c, strType) = true then TargetRatio = intDesiredWidth / intDesiredHeight CurrentRatio = w / h if CurrentRatio > TargetRatio then ' We'll scale height strResize = "width=""" & intDesiredWidth & """" else strResize = "height=""" & intDesiredHeight & """" ' We'll scale width end if else strResize = "" end if ImageResize = strResize end Function set Rs_Info = Server.CreateObject("ADODB.Recordset") Rs_Info.ActiveConnection = MM_WG_STRING Rs_Info.Source = "SELECT * FROM Obras WHERE Numero='"+ request.queryString("Registro")+ "'" Rs_Info.CursorType = 1 Rs_Info.CursorLocation = 2 Rs_Info.LockType = 3 Rs_Info.Open() Rs_Info_numRows = 0 %> info
Título <%=(Rs_Info.Fields.Item("Titulo").Value)%>
Autor <%=(Rs_Info.Fields.Item("Autor").Value)%>
Año <%=(Rs_Info.Fields.Item("Aņo").Value)%>
Tecnica <%=(Rs_Info.Fields.Item("Tecnica").Value)%>
Dimensiones <%=(Rs_Info.Fields.Item("Dimensiones").Value)%>
Serie <%=(Rs_Info.Fields.Item("Serie").Value)%> Unid.
Descripción
PvP:
<%=(Rs_Info.Fields.Item("PVP").Value)%> <% if Rs_Info.Fields.Item("Venta").value then response.write( "€   " ) else Response.Write( " No disponible ") end if %>
Regresar
<% imagen="_mantenimientos/imagenes/" + Rs_Info.Fields.Item("Foto").Value %>

 

<% Rs_Info.Close() %>