The_LMedlem sedan okt. 2001154 inlägg Jag håller på med en shop som kanske flera av er här inne redan vet. Jag vill att efter man valt att ta bort alla varor i kundvagnen ska det stå att "Kundvagnen är tom" Jag får det inte att fungera. Har skrivit följande:
%>
Du tog bort <%=sBesk%>
<%
If rs2.RecordCount = 0 Then
%>
<table><tr><td>Tomt i kundvagnen</td></tr></table>
<%
End If
rs2.Close
MinCon.close
End Sub
%>
När jag skrivit så här skrivs inte "Kundvagnen är tom " in. När jag sätter If rs2.RecordCount = 1 så skrivs
"kundvagnen är tom" ut när det det är ett plagg kvar.
Nån som har en lösning? Tycker att jag har testat alla kombinationer med <,>,=,>= osv. Nu börjar tålamodet tryta.
RinaldoMedlem sedan mars 20014 214 inlägg Kan du visa hur du räknar?
------------------
Den som inte vet att tiga vet inte att tala
The_LMedlem sedan okt. 2001154 inlägg Jag kan väl lägga in hela koden för den suben. Tänkte att det kanske inte var så poppis men nu kommer den då:
Sub TaBort() 'Här böjar suben TaBort-------------------------------
set MinCon = Server.CreateObject("ADODB.Connection")
MinCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:/inl.mdb"
sql2 = "Select * FROM Temporder"
sql = "DELETE FROM Temporder WHERE ArtID = "& iArtNr &" and SessionID = "& sSession &""
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.open sql2, MinCon,adOpenStatic,adLockOptimistic
MinCon.execute(sql)
%>
Du tog bort <%=sBesk%>
<%
If rs2.RecordCount = 0 Then
%>
<table><tr><td>Tomt i kundvagnen</td></tr></table>
<%
End If
rs2.Close
MinCon.close
End Sub
VideMedlem sedan dec. 19998 577 inlägg Du hämtar ju recordsettet innan du tar bort posterna... flytta upp "MinCon.execute(sql)" ovanför "rs2.open sql2, MinCon,adOpenStatic,adLockOptimistic"
------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu
The_LMedlem sedan okt. 2001154 inlägg Tack för det.
Nu funkar det perfekt.