<% Response.Buffer = true Dim V_ValiderEmail, V_Snabler, V_UgyldigeDomaener, V_Domaene, V_GyldigeEndelser, V_GyldigEndelse, V_Endelse, V_Ekskluder, V_i, V_Status Function Valider(V_ValiderEmail) Valider = True V_ValiderEmail = LCase(V_ValiderEmail) ' (1) Check laengde '----------------------------------------------------------------------- If Len(V_ValiderEmail) < 5 Then Valider = False V_Status = "E-mail adressen er for kort." Exit Function End If ' (2) Skal indeholde @ '-------------------------------------------------------------------- If InStr(V_ValiderEmail,"@") = 0 Then Valider = False V_Status = "Der mangler et ""@"" i e-mail adressen." Exit Function End If ' (3) Undgaa "@." og ".@" '----------------------------------------------------------------- If ((InStr(V_ValiderEmail,"@.") <> 0) OR (InStr(V_ValiderEmail,".@") <> 0)) Then Valider = False V_Status = "Der må ikke være et punktum lige op af et ""@"" i e-mail adressen." Exit Function End If ' (4) Check om der er noget foran @ '------------------------------------------------------- If Len(Left(V_ValiderEmail,InStr(V_ValiderEmail,"@") - 1)) = 0 Then Valider = False V_Status = "Der mangler noget foran ""@"" i e-mail adressen." Exit Function End If ' (5) Minimum 1 "." '----------------------------------------------------------------------- If InStr(V_ValiderEmail,".") = 0 Then Valider = False V_Status = "En e-mail adresse indeholder mindst eet punktum." Exit Function End If ' (6) Max 3 tegn efter sidste "." '--------------------------------------------------------- If (Len(V_ValiderEmail) - InStrRev(V_ValiderEmail,".") > 3) Then Valider = False V_Status = "Der er for mange tegn efter sidste punktum i e-mail adressen." Exit Function End If ' (7) Undgaa ".." '------------------------------------------------------------------------- If InStr(V_ValiderEmail,"..") <> 0 Then Valider = False V_Status = "Der mŒ ikke være to punktummer lige op af hinanden i e-mail adressen." Exit Function End If ' (8) Min 2 tegn efter sidste "." '--------------------------------------------------------- If (Len(V_ValiderEmail) - InStrRev(V_ValiderEmail,".") < 2) Then Valider = False V_Status = "Der skal være mindst to tegn efter sidste punktum i e-mail adressen." Exit Function End If ' (9) Ingen "_" efter "@" '----------------------------------------------------------------- If ((InStr(V_ValiderEmail,"_") <> 0) AND (InStrRev(V_ValiderEmail,"_") > InStrRev(V_ValiderEmail,"@"))) Then Valider = False V_Status = "Der må ikke være en underscore (_) efter ""@""." Exit Function End If ' (10) Tjek for flere "@" '----------------------------------------------------------------- V_Snabler = 0 For V_i = 1 TO Len(V_ValiderEmail) If Mid(V_ValiderEmail,V_i,1) = "@" Then V_Snabler = V_Snabler + 1 End If Next If V_Snabler > 1 Then Valider = False V_Status = "E-mail adressen indeholder for mange ""@""." Exit Function End If ' (11) Check V_Domaene ud fra array '------------------------------------------------------- V_UgyldigeDomaener = Array("hotmai.com","yahho.dk","hotmaile.com","mail1stofanet.dk","ofri.dk","post1.dk","post2.dk","post3.dk","post4.dk","post5.dk","post6.dk","post7.dk","post8.dk","fc.skolekom.dk","post9.dk","hommail.com","jupiipost.dk","forom.dk","furom.dk","frorum.dk","mail.forum.dk","mailforum.dk","forum.mail.dk","sol.ak","guld.dk","hormail.com","wanacoo.dk","sol.mail.dk","mail.tel.dk") V_Domaene = Right(V_ValiderEmail,(Len(V_ValiderEmail) - InStrRev(V_ValiderEmail,"@"))) For V_i = 0 TO UBound(V_UgyldigeDomaener) If V_Domaene = V_UgyldigeDomaener(V_i) Then Valider = False V_Status = "E-mail adressens domæne er ugyldigt." Exit Function End If Next ' (12) Tjek om TLD'en er korrekt '---------------------------------------------------------- V_GyldigEndelse = False V_GyldigeEndelser = Array("dk","com","edu","gov","int","mil","net","org","af","al","dz","as","ad","ao","ai","aq","ag","ar","am","aw","ac","au","at","az","bs","bh","bd","bb","by","be","bz","bj","bm","bt","bo","ba","bw","bv","br","io","bn","bg","bf","bi","kh","cm","ca","cv","ky","cf","td","cs","cl","cn","cx","cc","co","km","cg","ck","cr","ci","hr","cu","cy","cz","dj","dm","do","tp","ec","eg","sv","gq","er","ee","et","fk","fo","fj","fi","fr","gf","pf","tf","ga","gm","ge","de","gh","gi","gr","gl","gd","gp","gu","gt","gg","gn","gw","gy","ht","hm","va","hn","hk","hu","is","in","id","ir","iq","ie","im","il","it","jm","jp","je","jo","kz","ke","ki","kp","kr","kw","kg","la","lv","lb","ls","lr","ly","li","lt","lu","mo","mk","mg","mw","my","mv","ml","mt","mh","mq","mr","mu","yt","mx","fm","md","mc","mn","ms","ma","mz","mm","na","nr","np","nl","an","nc","nz","ni","ne","ng","nu","nf","mp","no","om","pk","pw","ps","pa","pg","py","pe","ph","pn","pl","pt","pr","qa","re","ro","ru","rw","kn","lc","vc","ws","sm","st","sa","sn","sc","sl","sg","sk","si","sb","so","za","gs","es","lk","sh","pm","sd","sr","sj","sz","se","ch","sy","tw","tj","tz","th","tg","tk","to","tt","tn","tr","tm","tc","tv","ug","ua","ae","gb","uk","us","um","uy","su","uz","vu","ve","vn","vg","vi","wf","eh","ye","yu","cd","zm","zr","zw") V_Endelse = Right(V_ValiderEmail,(Len(V_ValiderEmail) - InStrRev(V_ValiderEmail,"."))) For V_i = 0 TO UBound(V_GyldigeEndelser) If V_Endelse = V_GyldigeEndelser(V_i) Then V_GyldigEndelse = True Exit For End If Next If NOT V_GyldigEndelse Then Valider = False V_Status = "Domæne endelsen (f.eks. "".dk"" el. "".com"") er ikke korrekt." Exit Function End If ' (13) Check hver enkelt tegn '------------------------------------------------------------- For V_i = 1 TO Len(V_ValiderEmail) If NOT IsNumeric(Mid(V_ValiderEmail,V_i,1)) AND (LCase(Mid(V_ValiderEmail,V_i,1)) < "a" OR LCase(Mid(V_ValiderEmail,V_i,1)) > "z") AND Mid(V_ValiderEmail,V_i,1) <> "_" AND Mid(V_ValiderEmail,V_i,1) <> "." AND Mid(V_ValiderEmail,V_i,1) <> "@" AND Mid(V_ValiderEmail,V_i,1) <> "-" Then Valider = False V_Status = "E-mail adressen indeholder et eller flere ugyldige tegn." Exit Function End If Next ' (14) Adresser der skal ekskluderes (grundet SPAM el. lign.) '----------------------------- V_Ekskluder = Array("JanEmil@.hotmail.com") For V_i = 0 TO UBound(V_Ekskluder) If V_ValiderEmail = V_Ekskluder(V_i) Then Valider = False V_Status = "Der kan ikke sendes til den valgte adresse da den er ekskluderet pga. misbrug." Exit Function End If Next End Function %> <% if Request.Form("email") <> "" then email = Request.Form("email") If Valider(email) Then set conn = Server.CreateObject("ADODB.Connection") conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb") If Request.Form("RADIO") = "false" Then conn.Execute("DELETE * FROM maillingliste WHERE email='" & email & "'") V_Status = "E-mail adressen er nu slettet fra databasen" else on Error Resume Next conn.Execute("insert into maillingliste (email) values ('" & email & "')") On Error GoTo 0 V_Status = "E-mail adressen er nu tilføjet fra databasen" end if conn.Close set conn = nothing end if end if %> Velkommen til ABLO
ABLO.dk officielle e-portal. Alle rettigheder forbeholdes ©2005
   

Kan andelsboligen blive Ejerbolig ??

 

Spørgsmålet er specielt aktuelt i nybyggede andelsboligforeninger, idet tiden nu nærmer sig, hvor Kreditforeningslånene synger på sidste vers
Der har været rigtigt mange forespørgsler omkring dette problem, det må retfærdigvis bemærkes, at mange andelshavere har haft en idé om, at når lånene var betalt, ja så måtte boligerne automatisk tilhøre dem, der på det tidspunkt bebor dem.

Helt så enkelt er det imidlertid ikke, når der er tale om nybyggede andelsboliger ( fra 1980 og frem ) vil hovedparten være opført, som støttet byggeri, det betyder at Stat & Kommune har udbetalt Rentesikring løbende. Rentesikringen har været udbetalt helt fra andelsboligforeningens start, uden dette rentetilskud havde kun meget få mulighed for, at erhverve og bo i andelsbolig.

Den udbetalte Rentesikring vil, for de fleste andelsboligforeninger, løbe op i et flercifferet millionbeløb, det er rimeligt sjældent, at man har tænkt på, at dette beløb muligvis skulle betales tilbage. I Lov om Boligbyggeri af 26 – 2 – 1998 ( Schultz Lov-katalog nr. 46, § 160,k ) her gøres op med usikkerheden, Rentesikringen skal tilbagebetales ( helt eller delvist ) Boligministeren tager nærmere bestemmelse omkring spørgsmålet.

Det betyder, at de berørte andelsboligforeninger nødvendigvis skal på låne markedet og derved starter det hele forfra, med afdrag og renter over flere år ( denne gang uden rentetilskud ) så allerede her er der lukket af for mulighederne, for overgang til Ejerboliger.

 

Men : har andelsboligforeningen mulighed for, uden optagelse af nyt lån, at betale rentetilskuddet tilbage, så melder der sig yderligere vanskeligheder, som kan vise sig at være nok så problematiske. Normalt er en andelsboligforening registreret som én ejendom ( et Skøde på bebyggelsen ) dette skal ændres således at hver bolig får sit særskilte Skøde, her tages der så hensyn til om det til boligen hørende areal, har et omfang der svarer til Lovens krav herom

Kan man ikke, på grund af ovenstående, opnå at få boligerne registreret som Ejerboliger, så er der en anden mulighed, idet man kan søge om at få boligerne registreret som værende Ejerlejligheder, her er der intet krav om areal størrelse, om denne mulighed er attraktiv, skal jeg lade være usagt, men den er der.

Efter Eksperternes opfattelse, vil der ikke blive tale om tilbagebetaling af Rentetilskuddet, såfremt andelsboligforeningen fortsætter som A/B forening, denne konklusion må muligvis tages med et lille forbehold, men holder den stik, vil andelsboligforeningen være betydeligt bedre stillet, rent økonomisk, en del af besparelsen, når afdrag og renter på Kreditforeningslånene er væk, kan sættes hen til vedligeholdelse og der skulle også blive plads til en nedsættelse af boligafgiften.

I det store hele må man nok mene, at andelsboligen som boligform er uovertruffen, her er fællesskab som ikke ses i andre boligformer – et lille socialt netværk – hjælp når der er behov og yderligere må det nok bemærkes, at boligafgifterne er rimelige i forhold til gængse lejeboliger.

Ole Nielsen