<% @LANGUAGE="VBSCRIPT" %> <% Option Explicit %> <% ' ------------------------------------------------------------------------- ' Description : Contact Page ' Author : L. Smeets ' Company : Bogey Webdesign ' ------------------------------------------------------------------------- %> <% Dim naam, contact, email Dim title, keywords, description, copyright, publisher Dim FromName, FromAdres, FromPostcode, FromStad, FromLand, FromTelefoon, FromFax, FromEmail Dim FromOpmerkingen, FromCheck Dim Mailer, strBody %> <% cmdTemp.CommandText = "SELECT * FROM meta" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DB RS.Open cmdTemp, , 0, 1 If Not (RS.EOF or RS.BOF) Then title = RS("Title") keywords = RS("Keywords") description = RS("Description") copyright = RS("Copyright") publisher = RS("Publisher") End If RS.Close %> <% cmdTemp.CommandText = "SELECT * FROM bedrijf" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DB RS.Open cmdTemp, , 0, 1 If Not (RS.EOF or RS.BOF) Then naam = RS("Naam") contact = RS("Contact") email = RS("Email") End If RS.Close %> <% FromName = Request.Form("txtFromName") FromAdres = Request.Form("txtFromAdres") FromPostcode = Request.Form("txtFromPostcode") FromStad = Request.Form("txtFromStad") FromLand = Request.Form("txtFromLand") FromTelefoon = Request.Form("txtFromTelefoon") FromFax = Request.Form("txtFromFax") FromEmail = Request.Form("txtFromEmail") FromOpmerkingen = Request.Form("txtOpmerkingen") FromCheck = Request.Form("txtCheck") If FromCheck = "on" Then FromCheck = "Ja" Else FromCheck = "Nee" End If set Mailer = Server.CreateObject("CDONTS.NewMail") Mailer.From = FromEmail Mailer.To = email Mailer.Subject = "Reactie op " & naam & " Website" strBody = "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "

Reactie op Website " & Day(Date) & "-" & Month(Date)& "-" & Year(Date) & " " & FormatDateTime(Time,4) & "
*****************************************
Naam	: " & FromName & "
Adres	: " & FromAdres & "
Postcode	: " & FromPostcode & "
Plaats	: " & FromStad & "
Tel.	: " & FromTelefoon & "
Fax	: " & FromFax & "
E-mail	: " & FromEmail & "
Contact	: " & FromCheck & "
Opmerkingen :
" & FromOpmerkingen & "
*****************************************

" Mailer.Body = strBody Mailer.BodyFormat = 0 Mailer.MailFormat = 0 If FromName <> "" OR FromAdres <> "" OR FromPostcode <> "" OR FromStad <> "" OR FromTelefoon <> "" OR FromOpmerkingen <> "" Then Mailer.Send End If Set Mailer = nothing %>

<% If Request.ServerVariables("HTTP_METHOD")="POST" and Request("mode")="thanks" Then %>   <%=GetText(13)%>,   <%=GetText(14)%> <%=GetText(15)%>   <%=GetText(16)%>, <%=contact%>   <%=GetText(17)%> <% Else %>
Contact
<%=GetText(1)%>
<%=GetText(2)%>
<%=GetText(3)%>
<%=GetText(4)%>
<%=GetText(5)%>
<%=GetText(6)%>
<%=GetText(7)%>
<%=GetText(8)%> :
<%=GetText(9)%>

<% End If %>