%
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
%>
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.