Udvælgelse via løkke
Denne fungere rigtig godt. Der vælges filer fra den aktuelle folder som udskrives til skræm.<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/Data/bildTest.mdb")
Conn.Open DSN
%>
<html>
<head>
<title></title>
<META NAME=""ROBOTS"" CONTENT=""NOINDEX, NOFOLLOW"">
<link rel="stylesheet" href="stil.css" type="text/css">
</head>
<body bgcolor="#f0f0f0" >
<table>
<tr>
<td>
<%
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
For Each objFileItem in objFolderContents
if InStr(1, "gif,jpg,jpeg,png", LCase(objFSO.GetExtensionName(objFileItem.name))) > 0 then
Response.write "<a href="
Response.Write(objFileItem.Name)
response.write ">"
Response.Write(objFileItem.Name & "<br>")
Response.write "</a>"
strSQL = "Insert into bildArkiv (filNavn,dirNavn) values('" & objFileItem.name & "', '" & filex & "')"
Conn.Execute(strSQL)
End if
Next
%>
</body>
</html>
... mit problem er at der skal en løkke ind som sikre at filer der allerede ligger i db ikke én gang mere registreres.
Derfor en eller anden kontrol:
if InStr(1, "gif,jpg,jpeg,png", LCase(objFSO.GetExtensionName(objFileItem.name))) > 0 then
strSQL = "Select * From bildArkiv"
Set rs = Conn.Execute(strSQL)
if rs("filNavn")=objFileItem.name Then
Response.Write rs("Filen findes allerede")
rs.MoveNext
End if
Else
Response.Write ("Der indsættes følgende nye filer")
...men som ikke virker. Nogen som kan hjælpe med dette?
