This is the code I have so far. I know it is not much but...
<%@ language="vbscript" %>
<% option explicit
dim cnn
dim rst
dim strconnstring
dim strnaam
'verbinding
Set Cnn = Server.CreateObject("ADODB.Connection"
strConnString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("\samcampus\db\adf.mdb" & ";"
Cnn.Open(strConnString)
set rst = cnn.execute("SELECT * FROM sponsors"
%>
<html>
<head>
<script language="vbscript">
public sub gegweergeven
msgbox("test"
loop
end sub
</script>
<title>sponsorgegevens aanpassen</title>
</head>
<body>
<center><h1>sponsorgegevens aanpassen</h1></center>
<hr><br>
<form method="post">
<%
'keuzelijst
rst.movefirst
Response.Write "<select name='Keuze' onchange='gegweergeven'>"
Do until rst.EOF
Response.Write "<option>" & rst("Naam" & "</option>"
rst.movenext
Loop
response.write "</select><p>"
'aanmaken tekstvakken
response.write "<table border='1'><tr><td>naam:</td><td><input type='text' name='txtnaam'></td></tr>"
response.write "<tr><td>contact:</td><td><input type='text' name='txtcontact'></td></tr>"
response.write "<tr><td>straat:</td><td><input type='text' name='txtstraat'></td></tr>"
response.write "<tr><td>postcode:</td><td><input type='text' name='txtpostcode'></td></tr>"
response.write "<tr><td>gemeente:</td><td><input type='text' name='txtgemeente'></td></tr>"
response.write "<tr><td>telefoon nummer:</td><td><input type='text' name='txttel'></td></tr>"
response.write "<tr><td>fax nummer:</td><td><input type='text' name='txtfax'></td></tr>"
response.write "<tr><td>gsm:</td><td><input type='text' name='txtgsm'></td></tr>"
response.write "<tr><td>jaar:</td><td><input type='text' name='txtjaar'></td></tr>"
response.write "<tr><td>bedrag:</td><td><input type='text' name='txtbedrag'></td></tr></table>"
response.write "<p>"
response.write "<input type='button' name='cmdopslaan' value='opslaan'>"
%>
</form>
</body>
</html>
please If somebody could help me with this problem?!?
thx
<%@ language="vbscript" %>
<% option explicit
dim cnn
dim rst
dim strconnstring
dim strnaam
'verbinding
Set Cnn = Server.CreateObject("ADODB.Connection"
strConnString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("\samcampus\db\adf.mdb"
& ";"Cnn.Open(strConnString)
set rst = cnn.execute("SELECT * FROM sponsors"
%>
<html>
<head>
<script language="vbscript">
public sub gegweergeven
msgbox("test"
loop
end sub
</script>
<title>sponsorgegevens aanpassen</title>
</head>
<body>
<center><h1>sponsorgegevens aanpassen</h1></center>
<hr><br>
<form method="post">
<%
'keuzelijst
rst.movefirst
Response.Write "<select name='Keuze' onchange='gegweergeven'>"
Do until rst.EOF
Response.Write "<option>" & rst("Naam"
& "</option>"rst.movenext
Loop
response.write "</select><p>"
'aanmaken tekstvakken
response.write "<table border='1'><tr><td>naam:</td><td><input type='text' name='txtnaam'></td></tr>"
response.write "<tr><td>contact:</td><td><input type='text' name='txtcontact'></td></tr>"
response.write "<tr><td>straat:</td><td><input type='text' name='txtstraat'></td></tr>"
response.write "<tr><td>postcode:</td><td><input type='text' name='txtpostcode'></td></tr>"
response.write "<tr><td>gemeente:</td><td><input type='text' name='txtgemeente'></td></tr>"
response.write "<tr><td>telefoon nummer:</td><td><input type='text' name='txttel'></td></tr>"
response.write "<tr><td>fax nummer:</td><td><input type='text' name='txtfax'></td></tr>"
response.write "<tr><td>gsm:</td><td><input type='text' name='txtgsm'></td></tr>"
response.write "<tr><td>jaar:</td><td><input type='text' name='txtjaar'></td></tr>"
response.write "<tr><td>bedrag:</td><td><input type='text' name='txtbedrag'></td></tr></table>"
response.write "<p>"
response.write "<input type='button' name='cmdopslaan' value='opslaan'>"
%>
</form>
</body>
</html>
please If somebody could help me with this problem?!?
thx
