<%@ Language=VBScript %>
<%Response.Buffer = true
if not IsEmpty (Request.Form("testfield")) then
'connectiestring aanmaken
'Hier moet je de dataconnectie invullen voor je databank
connectie1 = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\dekesel\dbase\klantennieuwsbrief.mdb"
'dataconnectie aanmaken + openen
Set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.Open connectie1
'recordset aanmaken + openen
'In mysql vul je de tabel en de kolommen die je wenst in te vullen. (* selecteert automatisch alle kolommen))
mysql = "Select * from nieuwsbrief"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open mysql, Conn1, 1, 3
'nieuwe recordset toevoegen + invullen
'het eerste deel moet overeen komen met de naam van een kolom.
'het tweede deel met de naam van het overeenkomstige invulveld in je formulier
rs.AddNew
rs("voornaam")= Request.Form("voornaam")
rs("naam")= Request.Form("naam")
rs("straat")= Request.Form("straat_en_nr")
rs("woonplaats")= Request.Form("gemeente")
rs("postcode")= Request.Form("postcode")
rs("email")= Request.Form("email")
'rs("opmerkingen")= Request.Form("opmerkingen")
rs("datum") = date()
rs.Update
'recordset + dataconnectie sluiten
rs.close
set rs = nothing
Conn1.close
set Conn1 = nothing
'resultform laten verschijnen
response.redirect "nieuwsbrief_ok.html"
else
%>
Full Service verzekering Dekesel, Weytens & Debako De Pinte
