Ik ben bezig met het creeren van een gegevens formulier waarmee klanten zich moeten registreren. Ik heb 2 pagina's samengevoegd in één en gebruik een If-statement om deze op het goeie moment weer te geven.
Hier zit dus het probleem. Als ik alle velden van het formulier ingevuld heb en het submit krijg ik weer een leeg formulier terug.
Op de volgende pagina zouden de gegevens netjes weergegeven en direct naar een database geschreven moeten worden. Als 1e deel van het If-statement code staat de weergave pagina, als 2e deel het formulier.
De connectie met de database is wel goed en die heb ik in een aparte class staan.
Weet iemand waar de fout zit, want ik heb de code al 100x
nagelopen en niets gevonden. Zelf denk ik dat het If-statement niet klopt maar de GET-methode werkt wel, de data wordt weergegeven in de url....
Tnx, Bobba
Dit is de code:
'Variabelen declareren
Dim naam
Dim voornaam
Dim adres
Dim huisnummer
Dim plaats
Dim telefoon
Dim email
Dim geslacht
Dim password
Dim gebruikersnaam
'Receiving values from Form
naam = Replace((Request.Form("txtNaam")), "'", "''")
voornaam = Replace((Request.Form("txtVoornaam")), "'", "''")
adres = Replace((Request.Form("txtAdres")), "'", "''")
huisnummer = Replace((Request.Form("txtHuisNr")), "'", "''")
plaats = Replace((Request.Form("txtPlaats")), "'", "''")
telefoon = Replace((Request.Form("txtTelefoonNr")), "'", "''")
email = Replace((Request.Form("txtEmail")), "'", "''")
geslacht = Replace((Request.Form("txtGeslacht")), "'", "''")
password = Replace((Request.Form("txtUserPass")), "'", "''")
gebruikersnaam = Replace((Request.Form("txtUserName")), "'", "''")
If naam<>"" AND voornaam<>"" AND adres<>"" AND huisnummer<>"" AND plaats<>"" AND telefoon<>"" AND email<>"" AND geslacht<>"" AND password<>"" AND gebruikersnaam<>"" Then
strQRY = "INSERT INTO Klanten(Naam, Voornaam, Adres, HuisNr, Plaats, TelefoonNr, Email, Geslacht, Password, Gebruikersnaam)"
strQRY = strQRY & " VALUES ('" & voornaam & "','" & naam & "','" & adres & "','" & huisnummer & "','" & plaats & "','" & telefoon & "','" & email & "','" & geslacht & "','" & password & "','" & gebruikersnaam & "')"
Response.Write(strQRY)
ExecuteQuery(strQRY)
Hier zit dus het probleem. Als ik alle velden van het formulier ingevuld heb en het submit krijg ik weer een leeg formulier terug.
De connectie met de database is wel goed en die heb ik in een aparte class staan.
Weet iemand waar de fout zit, want ik heb de code al 100x
Tnx, Bobba
Dit is de code:
'Variabelen declareren
Dim naam
Dim voornaam
Dim adres
Dim huisnummer
Dim plaats
Dim telefoon
Dim email
Dim geslacht
Dim password
Dim gebruikersnaam
'Receiving values from Form
naam = Replace((Request.Form("txtNaam")), "'", "''")
voornaam = Replace((Request.Form("txtVoornaam")), "'", "''")
adres = Replace((Request.Form("txtAdres")), "'", "''")
huisnummer = Replace((Request.Form("txtHuisNr")), "'", "''")
plaats = Replace((Request.Form("txtPlaats")), "'", "''")
telefoon = Replace((Request.Form("txtTelefoonNr")), "'", "''")
email = Replace((Request.Form("txtEmail")), "'", "''")
geslacht = Replace((Request.Form("txtGeslacht")), "'", "''")
password = Replace((Request.Form("txtUserPass")), "'", "''")
gebruikersnaam = Replace((Request.Form("txtUserName")), "'", "''")
If naam<>"" AND voornaam<>"" AND adres<>"" AND huisnummer<>"" AND plaats<>"" AND telefoon<>"" AND email<>"" AND geslacht<>"" AND password<>"" AND gebruikersnaam<>"" Then
strQRY = "INSERT INTO Klanten(Naam, Voornaam, Adres, HuisNr, Plaats, TelefoonNr, Email, Geslacht, Password, Gebruikersnaam)"
strQRY = strQRY & " VALUES ('" & voornaam & "','" & naam & "','" & adres & "','" & huisnummer & "','" & plaats & "','" & telefoon & "','" & email & "','" & geslacht & "','" & password & "','" & gebruikersnaam & "')"
Response.Write(strQRY)
ExecuteQuery(strQRY)