المشكلة انى بستخدم شرط بقاعدة if وهى انا بيعمل تشيك فى قاعدة البيانات على اسم ملف فلو وجد هذا الملف يكتب اسم صاحب هذا الملف اما الملف
طبعا جميع اسامى الملفات موجود فى قاعدة البيانات علشان كدة انا مش حاطت شرط اخر وهو اذا لم يجد هذا الملف فى قاعدة البيانات كيف اكتب هذا الشرط فى قاعدة if مع العلم عدم التكرار حيث انى لما بكتب اى شرط بيتكرر علشان انا حاطت قاعدة if فى do while not rs.EOF فما الحل هذا هو الكود
Function ShowFolderList2(folderspec)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 in sf
'====================================================
Set conn = Server.CreateObject("ADODB.connection")
conn.Open "DBQ=" & Server.Mappath("owdb.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
sql=" select owner ,folname,DateAdded from owner2"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL, conn
'=========================================================
s = s & "[trrrrr]"
s = s & "directory2.asp?c="
s = s & ""
do while not rs.EOF
if f1.name = rs("folname") then s = s & ""
's = s & ""
'if d= rs("owner")then s = s & ""
Rs.MoveNext
loop
rs.Close
conn.Close
s = s & ""
s = s & ""
's = s & ""
's = s & ""
s = s & ""
'do while not rs.EOF
if d= "admin" then s = s & "" else
'Rs.MoveNext
'loop
'rs.Close
'conn.Close
s = s & "[/trrrrr]"
s = replace(s,"","")
Next
response.write s
End Function