<% Dim MODE, MSG, FE, FN, YN, MESSAGE, EXT, DONE ' MODE = Request.Form("mode") IF MODE = "send" THEN With Request FE = Trim(.Form("ToAddress")) FN = Trim(.Form("toname")) YN = Trim(.Form("FromName")) 'RESPONSE.WRITE FE&FN&YN End With Call CHECK_INP() 'RESPONSE.WRITE "message"&MESSAGE IF MESSAGE = "" THEN EXT = APO(Trim(Mid(FE,InStrRev(FE,".")+1,Len(FE)))) Call OPEN_DB() SQL = "SELECT ID FROM taf_tbl_ext WHERE fldEXT = '" & Lcase(EXT) & "' AND fldENABLE = 1" 'RESPONSE.WRITE SQL Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQL, MyConn IF NOT RS.EOF THEN 'RESPONSE.WRITE "FUNDET NOGET" MESSAGE = MESSAGE & "

Desværre denne email addresse har en adresse, som ikke tillader uopfordrede emails (" & EXT & ")." Call ADD_LOG_LIN("Disallowed Extension: " & EXT, False) END IF RS.Close Set RS = Nothing MSG = RETURN_MESSAGE(False) MSG = Replace(MSG,"%F_NAME%", FN) MSG = Replace(MSG,"%Y_N%", YN) MyConn.Close Set MyConn = Nothing IF MESSAGE = "" THEN Call SEND_EMAIL_OUT(MSG, "En mail fra: " & YN, FE, SYS_EMAIL) Call ADD_LOG_LIN("Din mail er blevet sendt! domain:" & EXT, True) DONE = True END IF ELSE MSG = RETURN_MESSAGE(True) END IF ELSE MSG = RETURN_MESSAGE(True) MSG = Replace(MSG,"%F_NAME%","din vens navn") MSG = Replace(MSG,"%Y_N%","dit navn") END IF PRIVATE SUB CHECK_INP() IF (FE = "") OR (IsNull(FE)) THEN MESSAGE = MESSAGE & "

Skriv venligst din vens email-adresse." IF (FN = "") OR (IsNull(FN)) THEN MESSAGE = MESSAGE & "

Skriv venligst din vens navn." IF (YN = "") OR (IsNull(YN)) THEN MESSAGE = MESSAGE & "

Skriv venligst dit navn" IF IsEmailValid(FE) = False THEN MESSAGE = MESSAGE & "

Skriv en fuld email-adresse." END SUB ' %>

Vil du fortælle en ven om KulturLollandFalster.dk ? Det er meget simpelt. Udfyld dette skema og tryk send-knappen, og din ven vil modtage nedenstaaende email fra dig. <% IF NOT MESSAGE = "" THEN %> <%= MESSAGE %><% END IF %> <% IF DONE = True THEN %> Tak <%= YN %>, mailen til <%= FN %> er blevet afsendt - succesfuldt. Send gerne en mere til en anden ven ?<% END IF %>

Din vens email adresse: 25<% Else%>18<%End If%>" maxlength="50" /> Din vens navn: 25<% Else%>18<%End If%>" maxlength="50" /> Dit navn: 25<% Else%>18<%End If%>" maxlength="50" /> Besked som vil blive sendt til din ven: <%=MSG%> Vi gemmer ingen af de informationer som du skriver ind her.