Slette fra database
HejJeg er ved at lave en funktion så jeg kan slette nogle ting fra min database. Jeg kan ikke helt se hvad der er galt med dette script.
<--tilfoj.asp---> Filen hvor man skal vælge hvad der skal slettes
<form action"slet.asp">
<%
Set my_conn = Server.CreateObject("ADODB.Connection")
my_conn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=miniklub_mv_dk; UID=miniklub_mv_dk; PWD=midtvest;"
strSQL = "SELECT * FROM kalender"
Set rs = my_conn.Execute(strSQL)
if rs.eof then
response.write "Der er ikke noget i databasen"
end if
Do while not rs.eof
%>
<table border="1" class="kalender" cellspacing="1" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td width="80px">
<%Response.Write " " & rs("dato") & "<br>"%>
<%Response.Write " " & rs("id")%>
<input name="slet" type="checkbox" value="<% rs("id") %>">
</td>
<td width="250px">
<% Response.Write " "& rs("tekst") & "<br>" %>
</td>
</tr>
<% rs.MoveNext
loop %>
</table>
<%
my_conn.close ' Close database connection
Set my_conn = nothing 'obj variable released
%>
<input name="submit" type="submit" value="Slet">
</form>
<---slet.asp---->
<body>
<%
Set my_conn = Server.CreateObject("ADODB.Connection")
my_conn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=miniklub_mv_dk; UID=miniklub_mv_dk; PWD=midtvest;"
SQLstmt = "DELETE * FROM kalender WHERE ID=" & Request.Form("id")
Conn.Execute (SQLstmt)
conn.Close
Set conn = nothing
Set SQLstmt = nothing
response.redirect ("kalender.asp")
%>
</body>
Problemet er når jeg har valgt hvilken en jeg vil slette, loop'er den bare til den samme side som man er på.
Du kan se det på www.miniklub-mv.dk/kalender/tilfoj.asp
Håber i kan hjælpe
Mvh Morten
