<%@Language=VBScript%> <% Response.Expires = 0 Response.Buffer = TRUE %> Output Via ASP/IIS/JPEG Example

Output Via ASP/IIS/JPEG Example


<% If Len(Request.Form("FormAction")) = 0 Then ' Create the Milestones object using a file on the web server oMiles=GetObject("c:\miles2000\condo4.ml6","Milestones") 'Activate Milestones oMiles.Activate 'Refresh Milestones oMiles.Refresh 'Generate a random # and build a file name for the image Randomize ImageName = "filtout"+CStr(Rnd)+".jpg" FullPathImageName = "c:\webfolder\webname\tempimage\"+ImageName WWWPathImageName = "http://www.webname.com/tempimage/"+ImageName 'Generate Bitmap oMiles.SaveBitmap (FullPathImageName) oMiles.Close "NoSave" 'Show the Bitmap in the user's browser Response.Write "

" End If %>