<% IntpageId = request.QUERYSTRING("id") 'Establish a connection with data source. strConnectionString1 = "Driver={Mysql};Server=sql1.jnb2.host-h.net; Database=banana_db1; UID=bananaw_1; PWD=XDAsb3h8" Set cnn = Server.CreateObject("ADODB.Connection") cnn.Open strConnectionString1 StrSQL2 ="Select * from pics where category= "&IntpageId set Rs3 = cnn.execute(StrSQL2) %> <% Do while not Rs3.EOF %> <% intcount = 0 Do While Not intcount = 4 %> <% if Rs3.eof then exit do end if loop %> target="_top" onclick="window.open('window.asp?id=<%= Rs3("imageid")%>','','width=500,height=400,resizable=yes,scrollbars=no'); return false">.jpg" width="100" height="80" border="1" > <% IntCount = IntCount + 1 Rs3.movenext if Rs3.eof then exit do end if loop %>