we hebben voor ptoject een database onwikkeld waarin via een form gegevens aan worden ingevoerd. nu gaat alles geod behalve de datums... het eerste probleem is dat de geboortedatum ingevoerd wordt in 3 velden maar hoe voeg ik die 3 velden in één veld in de database als zijnde datum. en het 2e probleem is dat hij de aankomstdatum en vertrekdatum verkeer in de database zet, hij zet het erin als 0:00:00 ipv dd/mm/yyyy
het form is te vinden op www25.brinkster.com/project2b
en de asp code is:
<html>
<head>
<title>Gast Toevoegen</title>
</head>
<body bgcolor="#FFFFCC" text="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td align="left" valign="top" bgcolor="#FFFFCC">
<FONT SIZE="2">
<%
Gast_Voorletters = request.form("voorletters")
Gast_Tussenvoegsel = request.form("tussenvoegsel")
Gast_Achternaam = request.form("achternaam")
Gast_Adres = request.form("adres")
Gast_Postcode = request.form("postcode")
Gast_Plaats = request.form("plaats")
Gast_Telefoonnr = request.form("telefoon")
Gast_TelefoonnrMobiel = request.form("telefoonmobiel")
Gast_Email = request.form("email")
Gast_Fax = request.form("fax")
Gast_GebDatum = CDate( request.form("gebdatjaar") )
Gast_AantalGasten = request.form("aantalgasten")
Aankomst_Datum = CDate( request.form("date_arrivee") )
Aantal_Dagen = request.form("nb_nuit")
Vertrek_Datum = CDate( request.form("date_depart") )
Dim Conn, sConnString
Set Conn = Server.CreateObject("ADODB.Connection")
sConnString = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("db\klanten.mdb") & ";"
Conn.Open(sConnString)
SQLstmt = "INSERT INTO [ReserveringAanvraag] (Gast_Voorletters, Gast_Tussenvoegsel, Gast_Achternaam, Gast_Adres, Gast_Postcode, Gast_Plaats, Gast_Telefoonnr, Gast_TelefoonnrMobiel, Gast_Email, Gast_Fax, Gast_GebDatum, Gast_AantalGasten, Aankomst_Datum, Aantal_Dagen, Vertrek_Datum)"
SQLstmt = SQLstmt & " VALUES ("
SQLstmt = SQLstmt & "'" & Gast_Voorletters & "',"
SQLstmt = SQLstmt & "'" & Gast_Tussenvoegsel & "',"
SQLstmt = SQLstmt & "'" & Gast_Achternaam & "',"
SQLstmt = SQLstmt & "'" & Gast_Adres & "',"
SQLstmt = SQLstmt & "'" & Gast_Postcode & "',"
SQLstmt = SQLstmt & "'" & Gast_Plaats & "',"
SQLstmt = SQLstmt & "'" & Gast_Telefoonnr & "',"
SQLstmt = SQLstmt & "'" & Gast_TelefoonnrMobiel & "',"
SQLstmt = SQLstmt & "'" & Gast_Email & "',"
SQLstmt = SQLstmt & "'" & Gast_Fax & "',"
SQLstmt = SQLstmt & "#" & Gast_GebDatum & "#,"
SQLstmt = SQLstmt & "'" & Gast_AantalGasten & "',"
SQLstmt = SQLstmt & "#" & Aankomst_Datum & "#,"
SQLstmt = SQLstmt & "'" & Aantal_Dagen & "',"
SQLstmt = SQLstmt & "#" & Vertrek_Datum & "#)"
Set RS = conn.execute(SQLstmt)
If err.number>0 then
response.write "Er hebben zich VBScript fouten voorgedaan:" & "<P>"
response.write "Fout Nummer =" & err.number & "<P>"
response.write "Fout omschrijving =" & err.description & "<P>"
response.write "Help Context =" & err.helpcontext & "<P>"
response.write "Help Pad =" & err.helppath & "<P>"
response.write "Fout voortgekomen uit " & err.nativeerror & "<P>"
response.write "Bron =" & err.source & "<P>"
response.write "SQLState =" & err.sqlstate & "<P>"
end if
IF conn.errors.count> 0 then
response.write "Er hebben zich Database Fouten voorgedaan" & "<P>"
response.write SQLstmt & "<P>"
for counter= 0 to conn.errors.count
response.write "Fout nummer" & conn.errors(counter).number & "<P>"
response.write "Fout omschrijving" & conn.errors(counter).description & "<P>"
next
else
response.write "<br><br><br><center>Uw reserveringsgegevens zijn ontvangen en verwerkt.</center></font>"
end if
Conn.Close
%>
</body>
</html>
alvast bedankt
het form is te vinden op www25.brinkster.com/project2b
en de asp code is:
<html>
<head>
<title>Gast Toevoegen</title>
</head>
<body bgcolor="#FFFFCC" text="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td align="left" valign="top" bgcolor="#FFFFCC">
<FONT SIZE="2">
<%
Gast_Voorletters = request.form("voorletters")
Gast_Tussenvoegsel = request.form("tussenvoegsel")
Gast_Achternaam = request.form("achternaam")
Gast_Adres = request.form("adres")
Gast_Postcode = request.form("postcode")
Gast_Plaats = request.form("plaats")
Gast_Telefoonnr = request.form("telefoon")
Gast_TelefoonnrMobiel = request.form("telefoonmobiel")
Gast_Email = request.form("email")
Gast_Fax = request.form("fax")
Gast_GebDatum = CDate( request.form("gebdatjaar") )
Gast_AantalGasten = request.form("aantalgasten")
Aankomst_Datum = CDate( request.form("date_arrivee") )
Aantal_Dagen = request.form("nb_nuit")
Vertrek_Datum = CDate( request.form("date_depart") )
Dim Conn, sConnString
Set Conn = Server.CreateObject("ADODB.Connection")
sConnString = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("db\klanten.mdb") & ";"
Conn.Open(sConnString)
SQLstmt = "INSERT INTO [ReserveringAanvraag] (Gast_Voorletters, Gast_Tussenvoegsel, Gast_Achternaam, Gast_Adres, Gast_Postcode, Gast_Plaats, Gast_Telefoonnr, Gast_TelefoonnrMobiel, Gast_Email, Gast_Fax, Gast_GebDatum, Gast_AantalGasten, Aankomst_Datum, Aantal_Dagen, Vertrek_Datum)"
SQLstmt = SQLstmt & " VALUES ("
SQLstmt = SQLstmt & "'" & Gast_Voorletters & "',"
SQLstmt = SQLstmt & "'" & Gast_Tussenvoegsel & "',"
SQLstmt = SQLstmt & "'" & Gast_Achternaam & "',"
SQLstmt = SQLstmt & "'" & Gast_Adres & "',"
SQLstmt = SQLstmt & "'" & Gast_Postcode & "',"
SQLstmt = SQLstmt & "'" & Gast_Plaats & "',"
SQLstmt = SQLstmt & "'" & Gast_Telefoonnr & "',"
SQLstmt = SQLstmt & "'" & Gast_TelefoonnrMobiel & "',"
SQLstmt = SQLstmt & "'" & Gast_Email & "',"
SQLstmt = SQLstmt & "'" & Gast_Fax & "',"
SQLstmt = SQLstmt & "#" & Gast_GebDatum & "#,"
SQLstmt = SQLstmt & "'" & Gast_AantalGasten & "',"
SQLstmt = SQLstmt & "#" & Aankomst_Datum & "#,"
SQLstmt = SQLstmt & "'" & Aantal_Dagen & "',"
SQLstmt = SQLstmt & "#" & Vertrek_Datum & "#)"
Set RS = conn.execute(SQLstmt)
If err.number>0 then
response.write "Er hebben zich VBScript fouten voorgedaan:" & "<P>"
response.write "Fout Nummer =" & err.number & "<P>"
response.write "Fout omschrijving =" & err.description & "<P>"
response.write "Help Context =" & err.helpcontext & "<P>"
response.write "Help Pad =" & err.helppath & "<P>"
response.write "Fout voortgekomen uit " & err.nativeerror & "<P>"
response.write "Bron =" & err.source & "<P>"
response.write "SQLState =" & err.sqlstate & "<P>"
end if
IF conn.errors.count> 0 then
response.write "Er hebben zich Database Fouten voorgedaan" & "<P>"
response.write SQLstmt & "<P>"
for counter= 0 to conn.errors.count
response.write "Fout nummer" & conn.errors(counter).number & "<P>"
response.write "Fout omschrijving" & conn.errors(counter).description & "<P>"
next
else
response.write "<br><br><br><center>Uw reserveringsgegevens zijn ontvangen en verwerkt.</center></font>"
end if
Conn.Close
%>
</body>
</html>
alvast bedankt
Never eat yellow snow...