Ik ben al 20 uur achtereen bezig met een opdracht, die echt AF MOET binnen 2 uur, wie helpt mij uit de stress?????????
maar ik zie hem niet? iemand een suggestie?? opdracht moet af binnen nu en 2 uur..(hbo 2 jaars opdracht) en ik zie het echt niet.........heb vanalles geprobeerd
.......ik word gek! AARHHGGGGHHH
<%option explicit%>
<html>
<head>
<%
Dim Verbinding
Set Verbinding = Server.CreateObject ( "ADODB.Connection" )
Verbinding.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath( "dus.mdb" )
%>
<%
Dim VVoornaam, VAchternaam, VGeslacht, VLeeftijd, VNationaliteit, VLengte, VPostuur, VHuidskleur, VHaarkleur, VHaartype
VVoornaam= Request.Form ( "Voornaam" )
VAchternaam= Request.Form ( "Achternaam" )
VGeslacht= Request.Form ( "Geslacht" )
VLeeftijd= Request.Form ( "Lengte" )
VNationaliteit= Request.Form ( "Nationaliteit" )
VLengte= Request.Form ( "Lengte" )
VPostuur= Request.Form ( "Postuur" )
VHuidskleur= Request.Form ( "Huidskleur" )
VHaarkleur= Request.Form ( "Haarkleur" )
VHaartype= Request.Form ( "Haartype" )
%>
<%
Dim SQLvraag
SQLvraag = INSERT INTO adressenlijst ( Voornaam, Achternaam, Geslacht, Leeftijd, Nationaliteit, Lengte, Postuur, Huidskleur, Haarkleur, Haartype ) VALUES ( " & VVoornaam & ", " & VAchternaam & ", " & VGeslacht & ", " & VLeeftijd & ", "& VNationaliteit & ", " & VLengte & ", " & VPostuur & ", " & VHuidskleur & ", " & VHaarkleur & ", " & VHaartype & " )
%>
<%
Dim VoerUit
Set VoerUit = Verbinding.Execute(SQLvraag)
%>
<%
Verbinding.Close
Set Verbinding = Nothing
%>
<% response.redirect"opvraag.asp" %>
<title>Reactie> </title>
</head>
<body>
De gegevens zijn ingevoerd
</body>
</html>
maar ik zie hem niet? iemand een suggestie?? opdracht moet af binnen nu en 2 uur..(hbo 2 jaars opdracht) en ik zie het echt niet.........heb vanalles geprobeerd
<%option explicit%>
<html>
<head>
<%
Dim Verbinding
Set Verbinding = Server.CreateObject ( "ADODB.Connection" )
Verbinding.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath( "dus.mdb" )
%>
<%
Dim VVoornaam, VAchternaam, VGeslacht, VLeeftijd, VNationaliteit, VLengte, VPostuur, VHuidskleur, VHaarkleur, VHaartype
VVoornaam= Request.Form ( "Voornaam" )
VAchternaam= Request.Form ( "Achternaam" )
VGeslacht= Request.Form ( "Geslacht" )
VLeeftijd= Request.Form ( "Lengte" )
VNationaliteit= Request.Form ( "Nationaliteit" )
VLengte= Request.Form ( "Lengte" )
VPostuur= Request.Form ( "Postuur" )
VHuidskleur= Request.Form ( "Huidskleur" )
VHaarkleur= Request.Form ( "Haarkleur" )
VHaartype= Request.Form ( "Haartype" )
%>
<%
Dim SQLvraag
SQLvraag = INSERT INTO adressenlijst ( Voornaam, Achternaam, Geslacht, Leeftijd, Nationaliteit, Lengte, Postuur, Huidskleur, Haarkleur, Haartype ) VALUES ( " & VVoornaam & ", " & VAchternaam & ", " & VGeslacht & ", " & VLeeftijd & ", "& VNationaliteit & ", " & VLengte & ", " & VPostuur & ", " & VHuidskleur & ", " & VHaarkleur & ", " & VHaartype & " )
%>
<%
Dim VoerUit
Set VoerUit = Verbinding.Execute(SQLvraag)
%>
<%
Verbinding.Close
Set Verbinding = Nothing
%>
<% response.redirect"opvraag.asp" %>
<title>Reactie> </title>
</head>
<body>
De gegevens zijn ingevoerd
</body>
</html>