---

Hej

Jeg har en form, som før data bliver gemt, checker om der allerede findes de
nødvendige kolonner... og hvis ikke de findes, så skal den oprette dem.

Jeg har prøvet med nedenstående kode, som ikke giver fejl, men som heller
ikke opretter kolonnerne.

Hvad gør jeg galt ??

Jon

**************************
for x = 1 to 99
if form_ind(x,0) <> "" then
strResult = ""

set rsafregn = server.createobject("ADODB.RecordSet")
queryafregn = "SELECT * from afregninger"
rsafregn.open queryafregn, database, 3, 2
for i = 0 to CInt(rsafregn.recordCount)
if lcase(rsafregn.fields.item(i).name) = lcase(form_ind(x,0)) then
strResult = "The field, " & lcase(form_ind(x,0)) & " exists...<br>"
response.write (strResult)
exit for
end if
next
rsafregn.close
set rsafregn = nothing

if strResult = "" then
'strResult = "The field, " & form_ind(x,0) & " does not exist... - "
'response.write (strResult)


Set objCat = Server.CreateObject("ADOX.Catalog")
Set objTable = Server.CreateObject("ADOX.Table")
objCat.ActiveConnection = database
Set objTable.ParentCatalog = objCat
objTable.name = "afregninger"
objTable.columns.append (lcase(form_ind(x,0)))
Set objCat = nothing
Set objTable = nothing
response.write(lcase(form_ind(x,0)) & " column created!<br>")

end if
end if
next
********************************