Ta ut första bokstaven

Med referering till denna tråden så borde denna kod fungera:

Dim Cn, objADOX

Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")

Set objADOX = Server.CreateObject("ADOX.Catalog")
objADOX.ActiveConnection = Cn

For Each table in objADOX.Tables
	If table.Type = "TABLE" Then
		response.write Left(table.Name,1) & ", "
	End If
Next

Cn.Close : Set Cn = Nothing
objADOX.Close : Set objADOX = Nothing

Tack Söderlund!

Tack för hjälpen Söderlund! :birp

Jorå, det var så lite så. ;)

Men du - man kan svara i sin egen tidigare tråd, bättre än att skapa en ny tråd för att enbart tacka mig (även om man känner sig hedrad ;)) ;)