733F
Legacy Member
Ik zit op mn stage en ik heb de opdracht gekregen een bestelformulier te maken voor abonnementen.
De website is in asp wat ik nooit kreeg op school, maar ik zou deze opdracht toch tot een goed eind willen brengen om er van bij te leren en omdat ze hier volgens mij toch niet weten welke opdracht ze mij anders moeten geven.
Deze code is mij deels gegeven.
Voor de rest heb ik al dingen toegevoegd waardoor een groot deel van mn werk gedaan is, natuurlijk weet ik niet of deze een beetje goed is, het is dan ook nog maar voorlopig.
Nu zou ik de prijs van al deze voorstellingen willen laten optellen op een of ander manier, maar ik heb geen idee hoe dit kan.
Als het nodig is wil ik de database + code wel uploaden maar ik hoop dat ik zo al een eindje verder geholpen kan worden.
Ik vraag voor alle duidelijkheid niet om mn opdracht af te werken maar ik heb er al een hele tijd op zitten zoeken en ik ben een beetje teneinde raad om eerlijk te zijn.
De website is in asp wat ik nooit kreeg op school, maar ik zou deze opdracht toch tot een goed eind willen brengen om er van bij te leren en omdat ze hier volgens mij toch niet weten welke opdracht ze mij anders moeten geven.
Deze code is mij deels gegeven.
PHP:
<% Option Explicit
Session.LCID = 2067
Response.Expires = 0
Function GetPodiumConnection()
Dim oRet
Dim strDSN
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/") & "/stage/podium.mdb"
Set oRet = Server.CreateObject("ADODB.Connection")
oRet.Open strDSN
Set GetPodiumConnection = oRet
End Function
dim rs, rsConn, SQL, Prijs
Set rsConn = GetPodiumConnection()
SQL = "SELECT * FROM tData INNER JOIN tEvents ON tData.tEvent_ID = tEvents.Event_ID WHERE datum >= now() AND Prijs <> 0 ORDER BY Datum"
Set rs = rsConn.execute(SQL)
%>
<SELECT id="lijst" onchange="voorstelling()">
<option></option>
<% do while not rs.EOF
Response.Write("<OPTION value='" & rs("event_id") & "'>" & rs("Datum") & ": " & rs("Gezelschap") & " - " & rs("Titel") & " " & rs("Prijs") & "</OPTION>")
rs.movenext
loop
%>
</SELECT>
<br>
<% rs.Close()
Set rs = Nothing
rsConn.Close()
Set rsConn = Nothing
%>
Voor de rest heb ik al dingen toegevoegd waardoor een groot deel van mn werk gedaan is, natuurlijk weet ik niet of deze een beetje goed is, het is dan ook nog maar voorlopig.
PHP:
<head>
<% Option Explicit
Session.LCID = 2067
Response.Expires = 0
Function GetPodiumConnection()
Dim oRet
Dim strDSN
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/") & "/stage/podium.mdb"
Set oRet = Server.CreateObject("ADODB.Connection")
oRet.Open strDSN
Set GetPodiumConnection = oRet
End Function
dim rs, rsConn, SQL, Prijs
Set rsConn = GetPodiumConnection()
SQL = "SELECT * FROM tData INNER JOIN tEvents ON tData.tEvent_ID = tEvents.Event_ID WHERE datum >= now() AND Prijs <> 0 ORDER BY Datum"
Set rs = rsConn.execute(SQL)
%>
<SELECT id="lijst" onchange="voorstelling()">
<option></option>
<% do while not rs.EOF
Response.Write("<OPTION value='" & rs("event_id") & "'>" & rs("Datum") & ": " & rs("Gezelschap") & " - " & rs("Titel") & " " & rs("Prijs") & "</OPTION>")
rs.movenext
loop
%>
</SELECT>
<br>
<% rs.Close()
Set rs = Nothing
rsConn.Close()
Set rsConn = Nothing
%>
<script language="javascript">
var inti = 0;
var favorite
function delRow(button)
{
var row = button.parentNode.parentNode;
var tbody = document.getElementById('table1').getElementsByTagName('tbody')[0];
tbody.removeChild(row);
inti--;
document.getElementById("inti").innerHTML = inti;
}
function addRow()
{
var selected = document.getElementById("favorite").value;
var tbody = document.getElementById('table1').getElementsByTagName('tbody')[0];
var row = document.createElement('TR');
var cell1 = document.createElement('TD');
var cell2 = document.createElement('TD');
var inp2 = document.createElement('INPUT')
inp2.setAttribute('type','button');
inp2.setAttribute('value','Delete');
inp2.onclick=function(){delRow(this);}
cell1.innerHTML = selected;
cell2.appendChild(inp2);
row.appendChild(cell1);
row.appendChild(cell2);
tbody.appendChild(row);
inti++;
document.getElementById("inti").innerHTML = inti;
}
function voorstelling()
{
var lijst=document.getElementById("lijst");
document.getElementById("favorite").value=lijst.options[lijst.selectedIndex].text;
}
</script>
</head>
<body>
<input type="hidden" id="favorite">
<form method="get">
<input type="button" value="Selecteer" onclick="addRow()">
</form>
<br><br>
<table id="table1" border="0" bgcolor="#EEEEEE" cellspacing="0" cellpadding="1" width="70%">
<tbody>
<tr bgcolor="#AAAAAA">
<th width="700px" align="left">Voorstelling</th>
<th> </th>
</tr>
</tbody>
</table>
<br><br>
<table id="gegevens" width="70%" bgcolor="#EEEEEE" cellspacing="0">
<tr>
<td> Voornaam </td>
<td> <input type="text" id="voornaam" size="50"> </td>
</tr>
<tr>
<td> Naam </td>
<td> <input type="text" id="voornaam" size="50"> </td>
</tr>
<tr>
<td> Mail </td>
<td> <input type="text" id="mail" size="50"> </td>
</tr>
<tr>
<td> Telefoon </td>
<td> <input type="text" id="tel" size="50"> </td>
</tr>
<tr>
<td> Geboortedatum </td>
<td> <input type="text" id="datum" size="50"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td> </td>
<td> </td>
</tr>
<tr>
<td> <B>Aantal</B> </td>
<td id="inti">   </td>
</tr>
</table>
</body>
</html>
Nu zou ik de prijs van al deze voorstellingen willen laten optellen op een of ander manier, maar ik heb geen idee hoe dit kan.
Als het nodig is wil ik de database + code wel uploaden maar ik hoop dat ik zo al een eindje verder geholpen kan worden.
Ik vraag voor alle duidelijkheid niet om mn opdracht af te werken maar ik heb er al een hele tijd op zitten zoeken en ik ben een beetje teneinde raad om eerlijk te zijn.