11. november 2002 - 15:59Der er
8 kommentarer og 1 løsning
fejlfinding i script! Hjææælp!
Dette er et script som skulle løbe et bibliotek igennem og lægge navnene fra billeder ind i en Access database. Samtidigt opretter det en record for hvert underbibliotek (kategorier) Men scriptet virker ikke og der er ingen fejlmeddelelse, den står bare og tygger på scriptet! Hvad går der galt.!? Og hvorfor kommer der ingen fejlmeddelse?
Jeg håber nogen kan hjælpe mig med at løse det, eller fortælle mig hvordan jeg fejltester det!? Indtil videre har jeg testet databaseforbindelsen og den virker, men her stopper mine færdigheder som script-fejlfinder!
Set fso = CreateObject("Scripting.FileSystemObject")
function lookinfolder (foldernavn) Set objFolder = fso.getFolder( foldernavn ) 'Response.Write objFolder.path & "<br>"
call saveFiles (objFolder.Path)
For each Folder in objFolder.SubFolders call lookinfolder (Folder.path) next
Set objFolder = Nothing end function
function saveFiles (foldernavn) Set objFolder = fso.getFolder( foldernavn ) Set objFiles = objFolder.Files catID = "" for each file in objFiles if InStr(1,"gif,jpg,jpeg,bmp", LCase(fso.GetExtensionName(file.name))) > 0 then if catID = "" then catID = findCatID(objFolder.name) SQL = "INSERT INTO billeder (katID, billedenavn) VALUES (" & catID & ", '" & file.name & "')" Conn.Execute (SQL) 'Response.Write " : Filnavn : " & file.name & " ... katID = " & catID end if next Set objFolder = Nothing Set objFiles = Nothing end function
function findCatID (foldernavn) Set rs = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT ID, kategorinavn FROM kategori WHERE kategorinavn = '" & foldernavn & "'" rs.Open SQL, Conn, 1, 3 if rs.EOF then rs.AddNew rs("kategorinavn") = foldernavn rs.Update findCatID = rs("id") else findCatID = rs("id") end if rs.Close end function
sti = "." strPhysicalPath = Server.MapPath(sti)
lookinfolder (strPhysicalPath)
Response.Write "Sådan .... fædig"
Conn.Close Set Conn = Nothing Set fso = Nothing %> </BODY> </HTML>
TAK TIL EAGLEEYE SOM LAVET SCRIPTET TIL AT STARTE MED! :-)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
