nån som har en aning om varför förljande kod inte funkar till att ta bort en post ur en databas? Denna rad förstår jag inte. hm.. med den koden får jag följande felmeddelande... Sorry. Glömde en lite sak tack så mkt nu verkar de fungera! men när ja går till inbox.asp så får jag fortfarande upp de här felet.. men nu går det ta bort posterna i alla fall! löste det med följande kod: Ok. Då är jag med. Alla koder ligger på samma sida.ta bort ur databas...
koden som ska ta bort posten är: Ta bort
och mailid är kopplad till ID i tblmail, fattar inte varför de inte funkar??
<%
if Request.QueryString("radera") = "& mailid &" then
Set Connect = CreateObject("ADODB.connection")
Connect.open db
rsSQL = "DELETE * FROM tblmail WHERE ID = " & Request.QueryString("mailid")
Set rs = Connect.Execute(rsSQL)
end if
%>
//J.ESv: ta bort ur databas...
if Request.QueryString("radera") = "& mailid &" then
Är det spå att det kommer ett tal med i Request.QueryString("radera") så skulle jag nog skriva så här istället.
<%
if IsNumeric(Request.QueryString("radera")) then
Set Connect = CreateObject("ADODB.connection")
Connect.open db
rsSQL = "DELETE * FROM tblmail WHERE ID = " & Request.QueryString("mailid")
Set rs = Connect.Execute(rsSQL)
end if
%>
/JanneSv: ta bort ur databas...
Microsoft OLE DB Provider for ODBC Drivers fel '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'ID ='.
/sork/sorkmail/inbox.asp, rad 84
//J.ESv: ta bort ur databas...
Detta borde fungera....
<%
if IsNumeric(Request.QueryString("radera")) then
Set Connect = CreateObject("ADODB.connection")
Connect.open db
rsSQL = "DELETE * FROM tblmail WHERE ID = " & Request.QueryString("radera")
Set rs = Connect.Execute(rsSQL)
end if
%>
/JanneSv: ta bort ur databas...
Microsoft OLE DB Provider for ODBC Drivers fel '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'ID ='.
/sork/sorkmail/inbox.asp, rad 84
<%
if IsNumeric(Request.QueryString("radera")) then
Set Connect = CreateObject("ADODB.connection")
Connect.open db
rsSQL = "DELETE * FROM tblmail WHERE ID = " & Request.QueryString("radera")
rad 84 -> Set rs = Connect.Execute(rsSQL)
end if
%>Sv: ta bort ur databas...
<%
if isnumeric(Request.QueryString("radera")) then
Set Connect = CreateObject("ADODB.connection")
Connect.open db
rsSQL = connect.execute("DELETE * FROM tblmail WHERE ID " & Request.QueryString("mailid"))
end if
%>
//J.ESv: ta bort ur databas...
Gör om If-satsen:
Denna kollar så att det är ett tal och att Request.QueryString("radera") inte är tomt.
if IsNumeric(Request.QueryString("radera")) And Not IsEmpty(Request.QueryString("radera")) then
Du kan ju strycka IsNumeric ifall du är säker på att det alltid är ett tal som kommer med QueryString("radera").
/Janne