Det är meningen att man ska ändra antalet.Men blir det nått fel så Felet är ju i "kassan_error.asp", inte "kassan_andra.asp" jo det är ja medveten om... inget...det finns ingen kod i kassan_error.asp... Hmm, typ såhär?kassan_error.asp
ska felmeddelandet komma till kassan_error.asp så jag har skapat
den sidan utan något innehåll, så jag undrar hur den ska se ut. Här är
felmeddelandet ja får nu när jag inte har nått på sidan.
Feltyp:
Active Server Pages, ASP 0202 (0x80004005)
Ogiltig parameter för teckentabell.
/dn/shop1/privat/kassan_error.asp, line 1
här nere kommer koden till kassan_andra.asp
<!--#Include File="dbcon.asp" -->
<%
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
%> Sv: kassan_error.asp
<code>
/dn/shop1/privat/kassan_error.asp, line 1
</code>Sv: kassan_error.asp
men det var inte det ja fråga...utan
jag fråga vad det ska vara för kod för att
felet inte ska vara just fel..Sv: kassan_error.asp
det är det som jag undrar över....va är det för
kod som ska vara i kassan_error.aspSv: kassan_error.asp
<code>
Select Case Request.Querystring("Fel")
Case "1"
Response.Write "Fel ett uppstod"
Case "2"
Response.Write "Fel två uppstod"
Case Else
Response.Write "Ett fel uppstod"
End Select
</code>