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