Hjælp til opdatering af flere poster

Jeg skal bruge et script der kan gå ind og hente alle de poster hvor et bestemt felt ikke er udfyldt.

Ved alle de poster den finder skal der bl.a. laves nogle thumbnails af en fil (hvor der for filnavnet fra et andet feltnavn i tabellen), samt der skal opdateres nogle felter mm...

Jeg har hele den del der skal ske i scriptet men mangler en forbindelse til min db som finder de poster det drejer sig om og tillader at jeg kan opdatere posterne.

Opret forbindelse til db
find de poster der skal opdateres

-------

' tilføj data til db
Set rs =  Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM billeder"
rs.open sql, conn, 1, 3
mappenavn = rs("mappenavn")
' omdøb fil
'Dim objFileSystem, objFile
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile("F:\Home\billeder\mapper\" & mappenavn & "\orginaler\" & rs("billede_org"))
objFile.Name = "" & rs("upload") & "_" & rs("id") & "_org.jpg"
Set Jpeg = Server.CreateObject("Persits.Jpeg")
'orginal fil
Path = "F:\Home\billeder\mapper\" & mappenavn & "\orginaler\" & rs("upload") & "_" & rs("id") & "_org.jpg"
Jpeg.Open Path

' opret preview
Path = "F:\Home\billeder\mapper\" & mappenavn & "\orginaler\" & rs("upload") & "_" & rs("id") & "_org.jpg"
Jpeg.Open Path
L = 700
jpeg.PreserveAspectRatio = True
If jpeg.OriginalWidth > jpeg.OriginalHeight Then
jpeg.Width = L
Else
jpeg.Height = L
End If
Jpeg.ResolutionX = 72
Jpeg.ResolutionY = 72
' ny lille fil
Jpeg.Save "F:\Home\billeder\mapper\" & mappenavn & "\prevs\" & rs("upload") & "_" & rs("id") & "_prev.jpg"

' opret thumbnail
L = 200
jpeg.PreserveAspectRatio = True
If jpeg.OriginalWidth > jpeg.OriginalHeight Then
jpeg.Width = L
Else
jpeg.Height = L
End If
' ny lille fil
Jpeg.Save "F:\Home\billeder\mapper\" & mappenavn & "\thumbs\" & rs("upload") & "_" & rs("id") & "_thumb.jpg"
Set Info = Jpeg.OpenInfo(Path)

rs("billede_prev") = rs("upload") & "_" & rs("id") & "_prev.jpg"
rs("billede_thumb") = rs("upload") & "_" & rs("id") & "_thumb.jpg"
rs("billede_org") = rs("upload") & "_" & rs("id") & "_org.jpg"
rs("titel") = Session("titel")
rs("exit_kamera") = info("Model")
rs("exit_kamera_producent") = info("Make")
rs("exit_hojde") = info("PixelYDimension")
rs("exit_bredde") = info("PixelXDimension")
rs("exit_oplosning") = info("XResolution")
rs("exit_datetime") = info("DateTimeOriginal")
rs("exit_iso") = info("ISOSpeedRatings")
rs("exit_shutter") = info("ShutterSpeedValue")
rs("exit_exposure") = info("ExposureTime")
rs("exit_flash") = info("Flash")
rs("exit_braendvidde") = info("FocalLength")
rs.update
rs.Close
Set rs = Nothing

---------
videre til næste post
afslut forbindelse