Ja, selvgølgelig
<%
'denne funktion sikre at man er logget korrekt på for at få adgang.
if session.contents("login")<> 1 then
response.redirect "login.asp"
end if
%>
<html>
<head>
<!-- #include file="RecToTable.asp" -->
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>New Page 1</title>
</head>
<body>
<%
If Request.Form ("Skjult") <> "" Then
Dim soegestreng, cn, rs, strDSN, strSQL
Soegestreng=Request.Form("Soegenavn")
'Her oprettes et Connection- og Recordset object
Set cn = Server.CreateObject ("ADODB.Connection")
Set rs = Server.CreateObject ("ADODB.Recordset")
'Her oprettes forbindelse til databasen
strDSN = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:\inetpub\wwwroot\database\Hestedata.mdb"
cn.open strDSN
If Request.Form("Skjult") = "soegning" Then
soegestreng = Request.Form("T1")
strSQL = "SELECT * FROM hestedata WHERE navn LIKE '%"&Soegestreng&"%'"
Else
strSQL = "SELECT * FROM hestedata"
End If
rs.open strSQL, cn
Response.write RecToTable(rs)
Else
%><font face="Arial Black" size="2">Velkommen til Øresundskystens Rideskole, på
denne side har du mulighed for at søge på enkelte heste, eller få vist data for
samtlige heste.</font><p><font face="Arial Black" size="2">God fornøjelse!!</font></p>
<p><font face="Arial Black" size="2">Indtast søgeord:</font></p>
<form method="POST" action="forside.asp">
<p><input type="text" name="T1" size="20"><input type="submit" value="Start søgning" name="B1"><input type="hidden" name="Skjult" size="20" value="soegning"></p>
<p> </p>
</form>
<form method="POST" action="forside.asp">
<p><input type="submit" value="Vis data for alle heste" name="B2"><input type="hidden" name="Skjult" size="20" value="vis_tabel"></p>
</form>
<p> </p>
<table border="1" width="100%" id="table1">
</table>
<%End if%>
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>På denne side har du mulighed fo</title>
</head>
<body>
<%
'Her oprettes et Connection- og Recordset object
Dim strDriver, StrPlacering,objCon,objRec
strDriver="{Microsoft Access Driver (*.mbd)}"
strPlacering="c:\inetpub\wwwroot\database\Hestedata.mdb"
set objCon = server.createobject ("ADODB.connection")
objCon.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strPlacering
set objRec=server.createObject("adodb.recordset")
objRec.open "Hestedata", objCon, adOpenStatic, adLockOptimistic, adCmdTable
objRec.AddNew
obj.Rec("navn")="T1"
obj.Rec("Box nummer")="T2"
obj.Rec("Kost")="T3"
obj.Rec.update
obj.Rec.close
Set objRec = Nothing
objCon.close
set objCon = Nothing
%>
