<% Set reo1 = New RegExp reo1.Pattern = "width=""\d+""" reo1.Global = True Set reo2 = New RegExp reo2.Pattern = "height=""\d+""" reo2.Global = True Response.ContentType = "text/plain" s = "" Response.Write reo2.Replace(reo1.Replace(s,"width=""200"""),"height=""150""") Set reo1 = Nothing Set reo2 = Nothing %>