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