<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
conTest = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "dbtest2.mdb"
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="
http://www.w3.org/1999/xhtml"><head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>
<body>
<% If request.QueryString("sys") = "" then %>
<table cellpadding="5" border="1">
<%
Set rsTest = Server.CreateObject("AdoDB.RecordSet")
rsTest.Open "Select * From tbltest Order by tblNavn Desc", conTest
While NOT rsTest.EOF
%>
<tr>
<td><%Response.Write rsTest.Fields("tblNavn")%></td>
<td><a href="samlet.asp?sys=slet&id=<%Response.Write rsTest.Fields("tblId")%>" onclick="return confirm('sikker ?')">Slet</a></td>
<td><a href="samlet.asp?sys=edit&id=<%Response.Write rsTest.Fields("tblId")%>">Rediger</a></td>
</tr>
<% rsTest.MoveNext
Wend
rsTest.Close
Set rsTest = Nothing
%>
</table>
<%End If%>
<% if request.QueryString("sys") = "form" then %>
<a href="samlet.asp">Tilbage</a><br /><br />
<form action="samlet.asp?sys=skriv" method="post">
Navn:
<input type="text" name="frmNavn" /><br />
Adresse:
<input type="text" name="frmAdresse" /><br />
E-Mail:
<input type="text" name="frmEmail" /><br />
Alder:
<input type="text" name="frmAlder" /><br />
<input type="submit" value="Send" />
</form>
<% End If %>
<% if request.QueryString("sys") = "skriv" then
Set rsSkrivTest = Server.CreateObject("ADODB.RecordSet")
rsSkrivTest.Open "tbltest", conTest, 2, 2
rsSkrivTest.AddNew
rsSkrivTest("tblNavn") = Request.Form("frmNavn")
rsSkrivTest("tblAdresse") = Request.Form("frmAdresse")
rsSkrivTest("tblEmail") = Request.Form("frmEmail")
rsSkrivTest("tblAlder") = Request.Form("frmAlder")
rsSkrivTest.Update
rsSkrivTest.close
Set rsSkrivTest = Nothing
Response.Redirect("samlet.asp")
End If
if request.QueryString("sys") = "slet" then
Set rsTestSlet = Server.CreateObject("AdoDb.RecordSet")
rsTestSlet.Open "Select * from tblTest where tblId =" & Request.QueryString("id"), conTest, 2, 2
rsTestSlet.Delete
Response.Redirect("samlet.asp")
End If
If request.QueryString("sys") = "edit" then
Set rsTestEdit = Server.CreateObject("AdoDb.RecordSet")
rsTestEdit.Open "Select * from tblTest where tblId =" & Request.QueryString("id"), conTest
%>
<form action="samlet.asp?sys=save" method="post">
<input type="hidden" value="<%Response.Write rsTestEdit.Fields("tblId")%>" name="frmId" />
Navn:
<input type="text" value="<%Response.Write rsTestEdit.Fields("tblNavn")%>" name="frmNavn" /><br />
Adresse:
<input type="text" value="<%Response.Write rsTestEdit.Fields("tblAdresse")%>" name="frmAdresse" /><br />
E-Mail:
<input type="text" value="<%Response.Write rsTestEdit.Fields("tblEmail")%>" name="frmEmail" /><br />
Alder:
<input type="text" value="<%Response.Write rsTestEdit.Fields("tblAlder")%>" name="frmAlder" /><br />
<input type="submit" value="Send" />
</form>
<%End If
If request.QueryString("sys") = "save" then
Set rsTestSave = Server.CreateObject("AdoDb.RecordSet")
rsTestSave.Open "Select * from tblTest where tblId =" & request.Form("frmId"), conTest, 2, 2
rsTestSave("tblNavn") = Request.Form("frmNavn")
rsTestSave("tblAdresse") = Request.Form("frmAdresse")
rsTestSave("tblEmail") = Request.Form("frmEmail")
rsTestSave("tblAlder") = Request.Form("frmAlder")
rsTestSave.Update
rsTestSave.Close
Set rsTestSave = Nothing
Response.Redirect("samlet.asp")
End If
%>
</body>
</html>
???