<%
option Explicit

const adopenforwardonly=0
const adlockreadonly=1
const adcmdtext=1

dim cn,cnstr
Set cn = Server.CreateObject("ADODB.Connection")
cnstr="provider=microsoft.jet.oledb.4.0;"
cnstr=cnstr & "data source=c:\inetpub\wwwroot\stud_asp_example\sem6_2002\c208\kim.mdb;"
cn.connectionstring=cnstr
cn.Open

dim rs, sql
set rs=Server.CreateObject("ADODB.recordset")
sql="select*from data order by id;"
rs.open sql, cn,adopenforwardonly,adlockreadonly,adcmdtext
%>

<html>
<head>
<SCRIPT LANGUAGE=JAVASCRIPT>
		<!-- Skjuler scriptet for ældre browsere
// Er dette et tal?
		function erTal(afgivetVaerdi) {
			if (afgivetVaerdi == "") {
				return false
			}
			for (i=0; i<afgivetVaerdi.length; i++) {
				if (afgivetVaerdi.charAt(i) < "0") {
					return false
				}
				if (afgivetVaerdi.charAt(i) > "9") {
					return false
				}
			}
			return true
		}
	
function afsendelse(form) {

if (!erTal(form.slet.value)) {
				alert("Det skal være et tal")
				form.slet.focus()
				form.slet.select()
				return false
			}

// Hvis vi er kommet hertil, er alt gyldigt, så returner "true"
			return true
		}
// Slut på kommentar, der skjuler scriptet for ældre browsere -->
	</SCRIPT>
</head>
<body background="baggrund.jpg">

<table>
<tr><th>nummer</th><th>navne</th><th>efternavn</th></tr>

<%
do until rs.eof
response.write"<tr>"
response.write"<td>"& rs.fields("id") & "</td>"
response.write"<td>"& rs.fields("navn") & "</td>"
response.write"<td>"& rs.fields("efternavn") & "</td>"
response.write"<td>"&"<a href=mailto:"& rs.fields("mail") &">"& rs.fields("mail")&"</a>"&"</td>"
response.write"</tr>"
rs.movenext
loop
rs.close
set rs=nothing
cn.close
set cn=nothing
%>

<form onSubmit="return afsendelse(this)" action="slet1.asp" method="post">
Hvilken nummer skal rettes eller slettes<br>
<input type="text" name="slet"><br>
slet
<input type="radio" name="sletbo" value="sl">
<input type="submit" name="submit" value="Next">
</form><br>

</table>
<br><a href="gestebog.html"><img src="tilbage2.gif"></a>
</body>
</html>