Hvor er fejlen
Så er den gal igen. Det som dette scipt skal udfører er at den viser en dropdownbox og når man har valgt en punkt i boksen så bliver den slettet fra db'en Indlæsningen til dropdownbkosen virker ´men ved sletningen går det galt<HTML>
<HEAD>
<script>
function show(list) {
if (list.options[list.selectedIndex].value == "none") {
valueting = ""
} else {
valueting = list.options[list.selectedIndex].value
}
eks.innerHTML = valueting
}
</script>
</HEAD>
<BODY>
<%
Set tempConn = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("tutorial")
tempConn.Open strDSN
strSQL = "SELECT * FROM Telefontavle ORDER BY Navn"
Set rs = tempConn.Execute(strSQL)
%>
<select size="1" OnClick="show(this);">
<option SELECTED value="none">Klik her....</option>
<%
if NOT rs.EOF then
Do While NOT rs.EOF
' variabel2 = 5
' variabel = 0
' Do While varibael < variabel2
%>
<option value="<%= rs("Id")%>"><%= rs("Navn") %></option>
<%
'variabel = variabel + 1
rs.MoveNext
Loop
Else
Response.Write "EOF!"
ENd if
************Her er fejlen nok***********
strSQL = "Delete from personer where Id =" & "<% rs("ID")%>"
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</select>
<br><br><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><font SIZE="2" face="Verdana"><b><SPAN ID="eks"></SPAN></b></font></td>
</tr>
</table>
</BODY>
</HTML>
