<script language="vbscript">

<%
set mycon=server.CreateObject("adodb.connection")
constr="dbq=" &server.MapPath("shipin.mdb") &";driver={microsoft access driver (*.mdb)}"
mycon.open constr
sql="select NUMB,NAME1,NAME2 from photo"
dim rs
set rs=mycon.execute(sql)
do while not rs.Eof

response.Write("bannerAD[" & Cstr(Cint(rs("NUMB"))-1) & "]=video/" & rs("NAME2") & ";")
response.Write("bannerADlink[" & Cstr(Cint(rs("NUMB"))-1) & "]=video/" & rs("NAME1") & ";")

rs.MoveNext
Loop
%>

</script>

<%
set mycon=server.CreateObject("adodb.connection")
constr="dbq=" &server.MapPath("shipin.mdb") &";driver={microsoft access driver (*.mdb)}"
mycon.open constr
sql="select NUMB,NAME1,NAME2 from photo"
dim rs
set rs=mycon.execute(sql)
do while not rs.Eof

response.Write("<SCRIPT language=JavaScript> bannerAD[" & Cstr(Cint(rs("NUMB"))-1) & "]=video/" & rs("NAME2") & "; </script>")
response.Write("<SCRIPT language=JavaScript> bannerADlink[" & Cstr(Cint(rs("NUMB"))-1) & "]=video/" & rs("NAME1") & ";</script>")

rs.MoveNext
Loop
%>