<%@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 %> <% set Rs_hoteles = Server.CreateObject("ADODB.Recordset") Rs_hoteles.ActiveConnection = MM_WG_STRING Rs_hoteles.Source = "SELECT * FROM Hoteles" Rs_hoteles.CursorType = 0 Rs_hoteles.CursorLocation = 2 Rs_hoteles.LockType = 3 Rs_hoteles.Open() Rs_hoteles_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)%>
PvP:
<% if (Rs_Info.Fields.Item("Vendida").Value) then Response.Write("Vendida") else response.Write((Rs_Info.Fields.Item("PVP").Value)+" €") end if %>   " target="_self">
Regresar
<% imagen="_mantenimientos/imagenes/" + Rs_Info.Fields.Item("Foto").Value %>
Si esta interesado en la Compra de esta obra, rellene el siguiente formulario indicando el hotel por el cual desea realizar la adquisición y nos pondremos en contacto con Ud.
Nombre y Apellidos: 
Dirreción : 
Ciudad : 
Provincia : 
Pais: 
C.P.: 
Teléfono: 
Hotel: 
Comentarios: 
Email:
- <%=(Rs_Info.Fields.Item("Autor").Value)%>">

 
s <% Rs_Info.Close() %> <% Rs_hoteles.Close() %>