default.asp
<html>
<head>
<title>Spelare</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<style type="text/css">
table { a: none; color: black }
a:visited { text-decoration: none; color: #000090 }
a:link { text-decoration: none; color: #000095 }
a:hover { text-decoration: underline; color: #5E61CC }
</style>
<body bgcolor="#FFFFFF" text="#000000">
<table width="45%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> <table width="45%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="-3">
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("spel.mdb")&";"
SQL = "SELECT TOP 20 * FROM tabell ORDER BY ID DESC"
Set RecSet = Connect.Execute(SQL)
If RecSet.EOF Then
Response.Write "Databasen är tom"
Else
Do Until RecSet.EOF
Response.Write "<a href=spelare.asp?ID="& RecSet("ID") &"> "& RecSet ("nr")&" - "& RecSet("namn") &"</a><br><br>"
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = Nothing
Set Connect = Nothing
END IF
%></font></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
spelare.asp
<table width="45%" border="0" cellspacing="0" cellpadding="0" align="center">
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("spel.mdb")&";"
SQL = "SELECT * FROM tabell WHERE ID = "& Request.Querystring("ID")
Set RecSet = Connect.Execute(SQL)
%>
<tr>
<td rowspan="8" width="26%">
<table width="100%" border="1" cellspacing="0" cellpadding="0" height="101" bordercolor="#333333">
<tr>
<td> </td>
</tr>
</table>
<font face="Verdana, Arial, Helvetica, sans-serif" size="-3"></font></td>
<td rowspan="9" width="2%"><font face="Verdana, Arial, Helvetica, sans-serif" size="-3"></font></td>
<td width="72%"><font face="Verdana, Arial, Helvetica, sans-serif" size="-3"><b>Namn:
</b>
<% Response.Write RecSet("namn") %>
</font></td>
</tr>
<tr>
<td width="72%"><font face="Verdana, Arial, Helvetica, sans-serif" size="-3"><b>Ålder:
</b>
<% Response.Write RecSet("alder") %>
</font></td>
</tr>
<tr>
<td width="72%"><font face="Verdana, Arial, Helvetica, sans-serif" size="-3">
<b>Längd: </b>
<% Response.Write RecSet("langd") %>
cm</font></td>
</tr>
<tr>
<td width="72%"><font face="Verdana, Arial, Helvetica, sans-serif" size="-3"><b>Vikt:
</b>
<% Response.Write RecSet("vikt") %>
kg </font></td>
</tr>
<tr>
<td width="72%"><font face="Verdana, Arial, Helvetica, sans-serif" size="-3" color="#000000"><b>Position:
</b><% Response.Write RecSet("pos")%></font></td>
</tr>
<tr>
<td width="72%"><font face="Verdana, Arial, Helvetica, sans-serif" size="-3"><b>Yrke:
</b>
<% Response.Write RecSet("yrke") %>
</font></td>
</tr>
<tr>
<td width="72%"><font face="Verdana, Arial, Helvetica, sans-serif" size="-3"><b>Moderklubb:
</b>
<% Response.Write RecSet("moder") %>
</font></td>
</tr>
<tr>
<td width="72%"><font face="Verdana, Arial, Helvetica, sans-serif" size="-3"><b>Idol:
</b>
<% Response.Write RecSet("idol") %>
</font></td>
</tr>
<tr>
<td width="26%">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="+6">#
<% Response.Write RecSet("nr") %>
</font></div>
</td>
<td width="72%" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="-3"><b>Tycker
bäst om:</b>
<% Response.Write RecSet("com") %>
</font></td>
<%
RecSet.Close
Connect.Close
%>
add.asp
<!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("spel.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From tabell"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<%
RecSet.AddNew
RecSet("namn") = Request.Form("namn")
RecSet("alder") = Request.Form("alder")
RecSet("langd") = Request.Form("langd")
RecSet("moder") = Request.Form("moder")
Recset("vikt") = Request.Form("vikt")
RecSet("pos") = Request.Form("pos")
RecSet("idol") = Request.Form("idol")
RecSet("com") = Request.Form("com")
RecSet("nr") = Request.Form("nr")
RecSet("yrke") = Request.Form("yrke")
RecSet.Update
RecSet.Close
Connect.Close
%>
------------------
aka Lexmarc