<%@ 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:\inetpub\wwwleen\db\klantenLTanghe.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 klanten" 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("adres") 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 "resultform.htm" else %> Argenta kantoor - Leen Tanghe

NIEUWS !

Nieuwsbrief Argenta

Thuisbankieren

 

 

Wenst u geregeld informatie van ons te ontvangen,
mail ons dan onderstaand formulier terug.
Naam
Voornaam
Adres
Postcode
Gemeente
E-mail adres
Opmerkingen

 

 


Site Design : 2Trees 2Trees

<%end if%>