Jeg arbejder udelukkende i functions med denne side fordi jeg
mener det er nemmest så jeg paster lige hele min delete function
til jer.
>-------------------------------------------------------
<%
Function del()
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/consider.mdb")
Conn.Open DSN
If request.querystring("prev") = "Comments" Then
strSQL = "Delete from " & request.querystring("tabel") & " where
nyhed = " & request.querystring("del")
Else
strSQL = "Delete from " & request.querystring("tabel") & " where
Id = " & request.querystring("del")
End If
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
If request.querystring("prev") = "Home" Then
response.redirect("default.asp?page=Del&del=" &
request.querystring("del") & "&tabel=comments&prev=Comments")
ElseIf request.querystring("prev") = "Comments" Then
response.redirect("default.asp?page=Home")
Else
response.redirect("default.asp?page=" &
request.querystring("prev") & "")
End If
End Function
%>
>-------------------------------------------------------
Den virker fint til at slette alt muligt andet. Det eneste den ik
vil være med til er at slette alle de comments der er skrevet.
Der melder den ud med fejlen:
>Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
>[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in
>criteria expression.
>/consider/code.asp, line 1732
Er der nogen der kan hjælpe mig lidt her?
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials