<%@ Language="Vbscript" %> <% Option Explicit %> <% 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 Msgbox("Toegevoegd!") End if End Sub %>

Naam:
Geslacht:
Sexuele Oriëntatie:
Woonplaats:
EmailAdres:
Homepage:
ICQ nummer:
Geboortedatum:
Commentaar:
Status: