<% Dim str_Title, str_Menu str_Title = "Formulario de Contacto" str_Menu = "Contactinfo" %>

Adresboek Información dirrecional

User Contacto: Henk Boterenbrood

Big Band Beeg
Dijk 29
6127 AG Grevenbicht
Nederland / Holanda

Telefoon +31 (0)46 - 485 75 36
Email [info AT bigbandbeeg .nl]

Website
User Contacto: Han Smeets
Email [website AT bigbandbeeg .nl]

Email Formulario de contacto

<% Dim err_1, err_2, err_3, err_4, str_CaptchaValid, str_Captcha Dim frm_Naam, frm_Email, frm_Onderwerp, frm_Bericht, str_IP Dim strMyEmailAddress, strCCEmailAddress, strBCCEmailAddress, strReturnEmailAddress, strBody, objCDOMail %> <% Sub Verwerk %> <% If Request.Form("naam") ="" Then err_1=True End If If Request.Form("email") ="" Then err_2=True End If If Request.Form("bericht") ="" Then err_3=True End If If Request.Form("email") <> "" Then If f_EmailField(Request.Form("email")) = 0 Then err_2=True End If End If str_Captcha = Trim(Request.Form("secure_check")) If f_CheckCAPTCHA(str_Captcha) = True Then str_CaptchaValid = "true" Else str_CaptchaValid = "false" err_4=True End If If err_1<>"" Or err_2<>"" Or err_3<>"" Or err_4<>"" Then Formulier Exit Sub End If frm_Naam = Request.Form("naam") 'frm_Naam = Replace(frm_Naam, "'", "''", 1, -1, 1) frm_Naam = Replace(frm_Naam,"<","<", 1, -1, 1) frm_Naam = Replace(frm_Naam,">",">", 1, -1, 1) frm_Email = Request.Form("email") 'frm_Email = Replace(frm_Email, "'", "''", 1, -1, 1) frm_Email = Replace(frm_Email,"<","<", 1, -1, 1) frm_Email = Replace(frm_Email,">",">", 1, -1, 1) frm_Onderwerp = Request.Form("onderwerp") 'frm_Onderwerp = Replace(frm_Onderwerp, "'", "''", 1, -1, 1) frm_Onderwerp = Replace(frm_Onderwerp,"<","<", 1, -1, 1) frm_Onderwerp = Replace(frm_Onderwerp,">",">", 1, -1, 1) frm_Bericht = Request.Form("bericht") 'frm_Bericht = Replace(frm_Bericht, "'", "''", 1, -1, 1) frm_Bericht = Replace(frm_Bericht,"<","<", 1, -1, 1) frm_Bericht = Replace(frm_Bericht,">",">", 1, -1, 1) frm_Bericht = Replace(frm_Bericht,vbCrLf,"
", 1, -1, 1) str_IP = Request.ServerVariables("REMOTE_ADDR") 'Mail opstellen Dim oMail Set oMail = Server.CreateObject("CDO.Message") Dim objCDOConf, Header Set objCDOConf = Server.CreateObject ("CDO.Configuration") Set oMail = Server.CreateObject("CDO.Message") With oMail Set Header = .Fields With Header .Item("urn:schemas:mailheader:X-Instance-ID") = Request.ServerVariables("INSTANCE_ID") .Update End With End With oMail.To = "postmaster@bigbandbeeg.nl" 'oMail.CC = "" 'oMail.BCC = "" oMail.From = frm_Naam & " <" & frm_Email & ">" oMail.Subject = "[BBB ContactFormulier] " & frm_Onderwerp oMail.HTMLBody = "Bericht via BBB Contact-Formulier:

" & Chr(10) & Chr(10) &_ "Naam: " & frm_Naam & Chr(10) &_ "
E-mail: " & frm_Email & Chr(10) &_ "
Onderwerp: " & frm_Onderwerp & Chr(10) &_ "
Tijd: " & Now() & Chr(10) &_ "
IP-adres: " & str_IP & Chr(10) &_ "
--------------------------------------------------------------------

" & Chr(10) & Chr(10) & frm_Bericht oMail.Send Set objCDOConf = Nothing Set oMail = Nothing %>

Hemos recibido su pregunta/reacción!
Le contactaremos, en caso de que sea necesario, lo más rápido possible.

 

<% End Sub %> <% If Request.Form("verwerk") = "true" Then Verwerk Else Formulier End If %> <% Sub Formulier %> <% If err_1 = True Or err_2 = True Or err_3 = True Or err_4 Then %>

Uno ó más caja(s) han sido rellanadas incorrectas.

<% End If %>

<% If err_1 = True Then %> <% End If %> Nombre <% If err_1 = True Then %> <% End If %>

" size="50" maxlength="255" onkeydown="if(event.keyCode==13)event.keyCode=9;" />

<% If err_2 = True Then %> <% End If %> Correo <% If err_2 = True Then %> <% End If %>

" size="50" maxlength="255" onkeydown="if(event.keyCode==13)event.keyCode=9;" />

Sujeto

<%= Request.QueryString("onderwerp") %>" size="50" maxlength="255" onkeydown="if(event.keyCode==13)event.keyCode=9;" />

<% If err_3 = True Then %> <% End If %> Mensaje <% If err_3 = True Then %> <% End If %>

<% If err_4 = True Then %> <% End If %> Escribir código de seguridad. <% If err_4 = True Then %> <% End If %>

Beveiligings-verificatie
 
<% End Sub %>