<%
'//////////////////links///////////////////////////////
set conn=server.CreateObject("adodb.connection")
conn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/cattery.mdb")
conn.Open
dim link
dim rs
set rs=server.CreateObject("adodb.recordset")
sqlStr="select sex,dob,namephotolink,namephoto,color,available from forsale"
rs.Open sqlStr, conn, 0, 1
do until rs.eof
navodnik=chr(34)
link="javascript:menjaj(""" & rs("namephotolink") & navodnik & ")"
Response.Write("