Her er første side med formularen som bliver sendt til imod.asp
<html>
<head>
<Title>Er du for eller imod</title>
</head>
<body>
<form name="imod" method="post" action="imod.asp" >
<table align="center" border="1" >
<tr>
<td>Er du for eller imod </td>
<td><select name="imod" >
<option value="for">For</option>
<option value="imod">Imod</option>
</select> </td>
</tr>
<tr>
<td>Navn: </td>
<td> <input type="text" name="navn" > </td>
</tr>
<tr>
<td> Adresse: </td>
<td> <input type="text" name="adresse" > </td>
</tr>
<tr>
<td> Email: </td>
<td> <input type="text" name="email" > </td>
</tr>
<tr>
<td> Land: </td>
<td><input type="text" name="land" > </td>
</tr>
<tr>
<td> Alder: </td>
<td><input type="text" name="alder" ></td>
</tr>
<tr>
<td colspan="2">
<input type="submit" value="ok">
</td>
</tr>
</table>
</form>
</body>
**************imod.asp********************
<html>
<head>
</head>
<body>
<%
set connect=server.createobject("adodb.connection")
connect.open"provider=microsoft.jet.oledb.4.0;data source=sti til databasen som her hedder imod.mdb \imod.mdb"
SQL = "INSERT INTO tabel1 (imod, navn, adresse, email, land, alder) VALUES ('" & Request("imod")& "','" & Request("navn")& "','" & Request("adresse")& "','" & Request("email")& "','" & Request("land")& "','" & Request("alder")& "')"
Set RS = Connect.Execute( SQL )
Connect.Close
Set Connect = nothing
response.redirect("imod1.asp")
%>
</body>
</html>
**********slut på imod.asp***********
**************imod1.asp***********
Her bliver det hentet fra databasen og vist frem.
<html>
<head>
</head>
<body>
<%
set connect=server.createobject("adodb.connection")
connect.open"provider=microsoft.jet.oledb.4.0;data source=sti til databasen her \imod.mdb"
Set RS = Server.CreateObject("ADODB.Recordset")
set RS=connect.execute("SELECT * From tabel1 ")
If RS.eof then
%>
<table align="center" bgcolor="white">
<tr>
<td> Ingen poster fundet
</td>
</tr>
</table>
<%
Else
%>
<%
do until RS.EOF
'**************her skifter du farverne i tablel***********
If blnBGColor = True Then
strBGColor = "#F1F7D5"
blnBGColor = False
Else
strBGColor = "#D5F7F2"
blnBGColor = True
End If
%>
'****************************farve slut***********
'**************Bemærk ="<%=strBGColor%> i tabeltoppen
<table align="center" width="300px" bgcolor="<%=strBGColor%>" >
<tr>
<td>Standpunkt: <%=RS("imod")%> </td>
</tr>
<tr>
<td>Navn: <%=RS("navn")%> </td>
</tr>
<tr>
<td>Adresse:<%=RS("adresse")%> </td>
</tr>
<tr>
<td>Email: <%=RS("email")%> </td>
</tr>
<tr>
<td>Land: <%=RS("land")%> </td>
</tr>
<tr>
<td>Alder: <%=RS("alder")%></td>
</tr>
</table>
<%
RS.movenext
loop
end if
RS.Close 'her slukker og lukker du til databasen
Connect.Close
Set RS = Nothing
Set Connect = nothing
%>
</body>
</html>
