%@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 %>
Regresar
|