strsql="select code from tVideo2"
rs.open strsql, conn, 3, 3
if rs.recordcount>0 then
do while not rs.eof
vidM(rs(0),1)=""
vidM(rs(0),2)=""
vidM(rs(0),1)=request("VidN"&rs(0))
VidM(rs(0),2)=request("VidF"&rs(0))
response.write(" "&vidM(rs(0),1))
if vidM(rs(0),1)<>"" then
txtstrN="'"&StrQuo(vidM(rs(0),1))&"'"
txtstrF="'"&StrQuo(vidM(rs(0),2))&"'"
strsql1="update tVideo2 set name=("&txtstrN&"), filename=("&txtstrF&") where code="&rs(0)
response.write(strsql1)
rs1.open strsql1, conn, 3, 3
end if
rs.movenext
loop
end if