Sv: Uppdatera sidan

Uppdatera sidan

Postades av 2003-04-16 11:38:37 - Edin Tur, i forum asp - allmänt, Tråden har 10 Kommentarer och lästs av 459 personer

vad tror ni kan vara fel..???...

Typblandningsfel i villkorsuttryck.
/dn/shop1/shop1/kassan_andra.asp, line 60



<%Dim DB, RecSet, Andra, Antal, ArtNr, Sessionen, NyttAntal, Tabort, Besk

Antal = Cint(Request.Form("Antal"))

If Antal = "" Then

Response.Redirect "error.asp"

ElseIf Antal < 1 Or Antal > 9999 Then

Response.Redirect "kassan_error.asp?Fel=1"

End If

ArtNr = Cint(Request.Form("ArtNr"))

Besk = Request.Form("Besk")

Sessionen = Session.SessionID

'--------Här kollar vi vilken knapp vi tryckte på----------

If Request.Form("tabort") = "Tabort" Then

Tabort="SELECT * FROM Temptab WHERE AID = " & ArtNr & " AND SID = " & Sessionen

RecSet.Open Tabort, Connect, 3, 3

'----------------------------------------------------------

' Då var det dax att ta bort den valda posten

RecSet.Delete

RecSet.Close

'----------------------------------------------------------

' Då var allt klart.. dax att åka tillbaka till kassan

Response.Redirect "kassan.asp?andra=borttaget&besk=" & Besk

'_____________________Slut på tabort koden____________________

'----------Om man bara ändrade antalet gör så här : ----------

ElseIf Request.Form("Andra") = "Ändra" Then

Rad 60 --->Set RecSet = Connect.Execute("SELECT * FROM Temptab WHERE SID = " & Sessionen & " AND AID = '" & ArtNr)

'-----Tabbellen och allt öppet ---------------------------------

RecSet("Antal") = Antal
RecSet.Update

'-----Posten antal ändrad-------------------------------------

RecSet.Close

DB.Close

Session("From") = "Andra"

'-----Då var det klart, dax å gå tillbaka till kassan---------

Response.Redirect "kassan.asp"

'___________________Slut på koden för att ändra antal_________

Else

Response.Redirect "kassan_error.asp?Fel=3"

End If

'-------Om något gåt fel så kommer vi till error sidan. ------
%>

Svara

Sv: Uppdatera sidan

Postades av 2003-04-16 11:48:06 - Jonas Sjöblom

vilken är rad 60?

Svara

Sv: Uppdatera sidan

Postades av 2003-04-16 12:19:12 - Andreas Hillqvist

<code>

<%
Dim Antal, ArtNr, Sessionen, Besk
Dim strSQL, strRedirect

Antal = "" & Request.Form("Antal")
If IsNumeric(Antal) Then
Antal = CLng(Antal)
If Antal < 1 Or Antal > 9999 Then
Connect.Close
Set Connect = Nothing

Response.Redirect "kassan_error.asp?Fel=1"
Response.End
End If
Else
Connect.Close
Set Connect = Nothing

Response.Redirect "error.asp"
Response.End
End If

ArtNr = CLng(Request.Form("ArtNr"))
Besk = Request.Form("Besk")
Sessionen = Session.SessionID

'--------Här kollar vi vilken knapp vi tryckte på----------

Select Case Request.Form("tabort")
Case "Tabort" 'Då var det dax att ta bort den valda posten
strSQL = "DELETE FROM Temptab WHERE AID = " & ArtNr & " AND SID = " & Sessionen
Connect.Execute strSQL
strRedirect = "kassan.asp?andra=borttaget&besk=" & Besk
Case "Ändra" 'Om man bara ändrade antalet gör så här :
strSQL = "UPDATE Temptab SET Antal = " & Antal & " WHERE AID = " & ArtNr & " AND SID = " & Sessionen
Connect.Execute strSQL
Session("From") = "Andra"
strRedirect = "kassan.asp"
Case Else 'Om något gåt fel så kommer vi till error sidan.
strRedirect = "kassan_error.asp?Fel=3"
End Select

Connect.Close
Set Connect = Nothing

Response.Redirect strRedirect

%>
</code>

Svara

Sv: Uppdatera sidan

Postades av 2003-04-16 14:51:14 - Edin Tur

nu får ja sidan kan inte hittas..??...
alltså den hittar inte sidan kassan_andra.asp...
fattar inte varför..??...här kommer ja med mer kod som kanske kan
lösa gåtan..:P...



<HTML>
<link href="stil.css" rel="stylesheet" type="text/css">
<BODY>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% Session("From") = "kassan" %>
<% Dim DB, RecSet, Andra, Visa, Sessionen %>
<% Set RecSet = Server.CreateObject("ADODB.Recordset") %>
<% Sessionen = Session.SessionID %>
Välkommen till kassan ! </font><font face="Verdana, Arial, Helvetica, sans-serif">
<p><font size="1"> Dessa varor har du valt :
<% Visa = "SELECT * FROM Temptab WHERE SID = " & Sessionen & "" %>
<% RecSet.Open Visa, Connect, 3, 3%>
<% If RecSet.EOF = True Then %>
</font>
<p><font size="1"><b>Det finns inga varor i kundvagnen gå tillbaka
och välja några produkter.</b>
<% Else %>
</font></font>
<table width=97%>
<TR>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Vara</font></td>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Antal</font></td>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Pris</font></td>
<td align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Ändra
/ Ta bort från kundvagnen</font></td>
</TR>
<% Do Until RecSet.EOF %>
<% ant = RecSet("Antal")

prs = RecSet("Pris")

Summa = ant * prs %>
<form method="post" action="kassan_andra.asp">
<tr>
<td align="Left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% =RecSet("Besk")%>
</font></td>
<td align="Left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" value="<%=RecSet("Antal")%>" name=Antal maxlength=4 size=3>
</font></td>
<td align="Left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% =Summa %>
kr</font></td>
<td align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<input type="submit" value="Ändra" name=andra>
 
<Input type="submit" Value="Tabort" name=tabort>
</font></td>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<Input type="hidden" value="<% =RecSet("Besk") %>" name="besk">
</font></td>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<Input type="hidden" value="<% =RecSet("AID") %>" name="ArtNr">
</font></td>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<Input type="hidden" value="<% =Sessionen %>" name="Sessionen">
</font></td>
</form>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif"></tr></font>
<% TotSumma = TotSumma + Summa %>
<% RecSet.MoveNext %>
<% Loop %>
</table>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Summa köp :
<% =TotSumma%>
 Inkl moms.
<% =TotSumma * 0.8%>
 Exkl moms.</b> <br>
Tillbaka till produkterna </font>
<form method=post action=bestall.asp>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<Input type="hidden" value="<% =Sessionen%>" name="Sessionen">
<input type="Submit" Value="SKICKA BESTÄLLNING" name=Bestall>
</font>
</form>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% End If %>
<% RecSet.Close %>
</font>

Svara

Sv: Uppdatera sidan

Postades av 2003-04-17 09:46:54 - Edin Tur

ingen som kan..??.:(

Svara

Sv: Uppdatera sidan

Postades av 2003-04-17 10:48:59 - Edin Tur

när ja trycker på ta bort knappen så får jag felmesset..

Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Drivrutin för ODBC Microsoft Access] Typblandningsfel i villkorsuttryck.
/dn/shop1/shop1/kassan_andra.asp, line 33

här kommer rad 31,32,33 och 34

Case "Tabort" 'Då var det dax att ta bort den valda posten
strSQL = "DELETE FROM Temptab WHERE AID = " & ArtNr & " AND SID = " & Sessionen
Connect.Execute strSQL
strRedirect = "kassan.asp?andra=borttaget&besk=" & Besk

Svara

Sv: Uppdatera sidan

Postades av 2003-04-17 11:00:02 - Andreas Hillqvist

Vilken datatyp är AID? Om det är text får du istället skriva:

<code>
strSQL = "DELETE FROM Temptab WHERE AID = '" & Replace(ArtNr,"'","''") & "' AND SID = " & Sessionen
</code>

Svara

Sv: Uppdatera sidan

Postades av 2003-04-17 11:41:38 - Edin Tur

tack...det funkade utmärkt...:D...

nu till mitt andra prob...
det är så att ja kan inte ändra antalet varor....det kommer fram sidan finns inte
kolla så att du har skrivit in rätt adress...:S....

då undrar ja att kan det vara kassan_error.asp
som spökar....för jag har ingen sån sida...??...
så villken del av koden ska ja ta bort....för att den inte
ska gå till kassan_error.asp när det blir nått fel...fö
det finns ingen så sida....:(..:S...

hoppas på hjälp...
ni kan se koden längra upp......men för säkerhetsskull...


<%
Dim Antal, ArtNr, Sessionen, Besk
Dim strSQL, strRedirect

Antal = "" & Request.Form("Antal")
If IsNumeric(Antal) Then
Antal = CLng(Antal)
If Antal < 1 Or Antal > 9999 Then
Connect.Close
Set Connect = Nothing

Response.Redirect "kassan_error.asp?Fel=1"
Response.End
End If
Else
Connect.Close
Set Connect = Nothing

Response.Redirect "error.asp"
Response.End
End If

ArtNr = CLng(Request.Form("ArtNr"))
Besk = Request.Form("Besk")
Sessionen = Session.SessionID

'--------Här kollar vi vilken knapp vi tryckte på----------

Select Case Request.Form("tabort")
Case "Tabort" 'Då var det dax att ta bort den valda posten
strSQL = "DELETE FROM Temptab WHERE AID = '" & Replace(ArtNr,"'","''") & "' AND SID = " & Sessionen
Connect.Execute strSQL
strRedirect = "kassan.asp?andra=borttaget&besk=" & Besk
Case "Ändra" 'Om man bara ändrade antalet gör så här :
strSQL = "DELETE FROM Temptab WHERE AID = '" & ArtNr & "' AND SID = " & Sessionen
Connect.Execute strSQL
Session("From") = "Andra"
strRedirect = "kassan.asp"
Case Else 'Om något gåt fel så kommer vi till error sidan.
strRedirect = "kassan_error.asp?Fel=3"
End Select

Connect.Close
Set Connect = Nothing

Response.Redirect strRedirect

%>

Svara

Sv: Uppdatera sidan

Postades av 2003-04-17 12:36:44 - Andreas Hillqvist

Du ska inte ha en delet sats i ändra. Testa med:
<code>

<%
Dim Antal, ArtNr, Sessionen, Besk
Dim strSQL, strRedirect

Antal = "" & Request.Form("Antal")
If IsNumeric(Antal) Then
Antal = CLng(Antal)
If Antal < 1 Or Antal > 9999 Then
Connect.Close
Set Connect = Nothing

Response.Redirect "kassan_error.asp?Fel=1"
Response.End
End If
Else
Connect.Close
Set Connect = Nothing

Response.Redirect "error.asp"
Response.End
End If

ArtNr = CLng(Request.Form("ArtNr"))
Besk = Request.Form("Besk")
Sessionen = Session.SessionID

'--------Här kollar vi vilken knapp vi tryckte på----------

Select Case Request.Form("tabort")
Case "Tabort" 'Då var det dax att ta bort den valda posten
strSQL = "DELETE FROM Temptab WHERE AID = '" & Replace(ArtNr,"'","''") & "' AND SID = " & Sessionen
Connect.Execute strSQL
strRedirect = "kassan.asp?andra=borttaget&besk=" & Besk
Case "Ändra" 'Om man bara ändrade antalet gör så här :
strSQL = "UPDATE Temptab SET Antal = " & Antal & " WHERE AID = '" & Replace(ArtNr,"'","''") & "' AND SID = " & Sessionen
Connect.Execute strSQL
Session("From") = "Andra"
strRedirect = "kassan.asp"
Case Else 'Om något gåt fel så kommer vi till error sidan.
strRedirect = "kassan_error.asp?Fel=3"
End Select

Connect.Close
Set Connect = Nothing

Response.Redirect strRedirect

%>
</code>

Svara

Sv: Uppdatera sidan

Postades av 2003-04-17 13:11:34 - Edin Tur

nope...det händer samma sak....:(...
men vet du kanske villken del av koden ja
ska ta bort för att den inte ska komma till kassan_error.asp
för den sidan finns inte...:(...

Svara

Sv: Uppdatera sidan

Postades av 2003-04-17 22:52:32 - Edin Tur

någon....
please

Svara

Uppdatera sidan

Sv: Uppdatera sidan

Sv: Uppdatera sidan

Sv: Uppdatera sidan

Sv: Uppdatera sidan

Sv: Uppdatera sidan

Sv: Uppdatera sidan

Sv: Uppdatera sidan

Sv: Uppdatera sidan

Sv: Uppdatera sidan

Sv: Uppdatera sidan

Nyligen

Sidor

Statistik

Kontakta oss