<% response.expires = -5000 form_method = Request.ServerVariables("REQUEST_METHOD") IF form_method = "POST" THEN 'De POST methode wordt altijd gebruikt wanneer er een formulier wordt gesubmit. 'Elk element van het formulier moet opgehaald worden met de name. u_name = request.form("u_name") u_adres = request.form("u_adres") u_plaats = request.form("u_plaats") u_zipcode = request.form("u_zipcode") u_email = request.form("u_email") FormSubmit = request.form("FormSubmit") ELSEIF form_method = "GET" THEN 'De GET methode wordt gebruikt wanneer iemand de pagina benaderd middels een querystring. END IF IF FormSubmit = "1" AND FormSubmit <> "" THEN dbConFlag = fn_db_con("sp", "Dbase/mailing.mdb") IF dbConFlag THEN DbCon.Open DbConStr sql = "SELECT naw_id " sql = sql & "FROM naw_gegevens " sql = sql & "WHERE naw_email = '" & u_email & "';" set RecSet = DbCon.Execute (sql) IF NOT RecSet.Eof THEN errMsg = "Dit email adres is reeds geregistreerd." ELSE 'SQL insert statement!! call CleanUp(RecSet, "Stay Open") sql = "INSERT INTO naw_gegevens " sql = sql & "(" sql = sql & "naw_naam, " sql = sql & "naw_adres, " sql = sql & "naw_plaats, " sql = sql & "naw_postcode, " sql = sql & "naw_email " sql = sql & ")" sql = sql & "VALUES (" sql = sql & "'" & u_name & "'," sql = sql & "'" & u_adres & "'," sql = sql & "'" & u_plaats & "'," sql = sql & "'" & u_zipcode & "'," sql = sql & "'" & u_email & "'" sql = sql & ")" RecSet.Open sql, DbCon session("mailinglist_flag") = 1 END IF call CleanUp(RecSet, "") call CleanUp(DbCon, "") END IF END IF %> Geenen Web Design

Contact


<% IF session("mailinglist_flag") = "" THEN %>
"> <% IF errMsg <> "" THEN %> <% END IF %>
Naam:*
Adres:*
Woonplaats:*
Postcode:*
 
<%= errMsg %>
Email:*
* Velden die verplicht zijn.
<% ELSEIF FormSubmit = 1 THEN %> Uw email adres is al bekend bij ons. <% 'Getting (Requesting) the Session variables from Form on previous page Session("u_name") = Request("u_name") Session("u_adres") = Request("u_adres") Session("u_plaats") = Request("u_plaats") Session("u_zipcode ") = Request("u_zipcode ") Session("u_email") = Request("u_email") Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 'Setting variables Mailer.FromName = Session("u_name") Mailer.FromAddress = Session("u_email") Mailer.RemoteHost = "smtpmail.activeisp.com" Mailer.AddRecipient "Webmaster Active ISP", "info@geenenwebdesign.com" Mailer.Subject = Session("Subject") Mailer.BodyText = Session("u_name") Mailer.BodyText = Session("u_adres") Mailer.BodyText = Session("u_plaats") Mailer.BodyText = Session("u_zipcode ") Mailer.BodyText = Session("u_email") 'Checking if mail sent ok, if not display error message if Mailer.SendMail then Response.Write "Thank you! Your email has been sent succesfully. We will contact you as soon as possible." else Response.Write "Mail send failure. Error was " & Mailer.Response end if 'Abandoning session variables Session.Abandon %>

Click here to return to the Home page. <% ELSE %> U bent al toegevoegd aan de mailinglijst. <% END IF %>
Portfolio
Profile Heeft u vragen, opmerkingen of suggesties? Neem dan contact met ons op.