Own pictures automatically for the SUB Main document changes (wide, high frequency cycle, cycle, RS) <% Sub changes (w, h, also published, inf, rsn) Response.write "" table " Response.write "" tr align=center> " Do while not rsn.eof Also published for i = 1 to Response.write "" td height= "&h&" width= "&w&" "" Response.Write inf Response.write "" patient " Rsn.movenext If rsn.eof then exit for Next Then if i<num To also published for i=i+1 Response.write "" td height= "&h&" width= "&w&" "</td>" Next End if Response.write "" Per " Response.write "" ShapeID="_x0000_i1025" DrawAspect="Content" ObjectID="_1127825915"> </o:OLEObject> " Loop End sub %> Examples documents Http://www.unescap.org/epoc/index.asp Content "!--#include File=" changes.asp "Calling SUB document -->// "Html> "Head are "Meta http-equiv=" Content-Type "content=" text/html; charset=gb2312 "everywhere "/head> "Body> <% Set db=server.CreateObject ( "adodb.connection") Db.open "dbq=" &server.MapPath (. " /db1.mdb ") &" ;driver={microsoft Access driver (*.mdb)) " Sql= "select * from the various factions" Set rs=db.execute (sgl) %> "%call Changes (200,100,3" "<img width=200 height=100 defended" &rs ( "various factions") & "everywhere", rs ＝) endothelium "/body> "/html> Kazakh first time, we might do wrong place! !

[ Closed window ]