<%@ Language="Vbscript" %> <% Option Explicit %> <% Dim action action = Request.QueryString("action") If action <> "" Then CmdUitvoeren_onclick Else LaatFormZien End If Sub CmdUitvoeren_onclick Dim strSQL Dim StrConString Dim cnnDB Dim StrGeboorteDatum If not Request.Form("txtnaam") = "" then Set CnnDb=server.createobject("ADODB.connection") StrConstring="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.mappath("DB.mdb") cnnDB.Mode=3 CnnDB.open StrConstring strGeboortedatum = Request.Form("txtdag") & "/" & Request.Form("txtmaand") & "/" & Request.Form("txtJaar") strSQL = "INSERT INTO TblGebruikers (Naam, Geslacht, Orientatie, Stad, EmailAdres, Homepage, ICQ, Geboortedatum, Commentaar, Status) VALUES ('" & Request.Form("txtnaam") & "','" & Request.Form("TxtGeslacht") & "','" & Request.Form("TxtOrientatie") & "','" & Request.Form("TxtStad") & "','" & Request.Form("TxtEmailAdres") & "','" & Request.Form("TxtHomepage") & "','" & Request.Form("TxtICQ") & "','" & StrGeboorteDatum & "','" & Request.Form("TxtCommentaar") & "','" & Request.Form("TxtStatus") & "')" cnnDB.Execute strSQL cnnDB.Close Set cnnDB = nothing Response.Write("Toegevoegd!") End if End Sub Sub LaatFormZien %>

?action=verander" NAME="FrmAanpassen" METHOD="post"> Naam:
Geslacht:
Sexuele Oriëntatie:
Woonplaats:
EmailAdres:
Homepage:
ICQ nummer:
Geboortedatum:
Commentaar:
Status:

<% End Sub %>