--- title: "redirect" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/13167-redirect" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "satchmo" published: "2001-12-13T15:30:00.000Z" updated: "2001-12-13T16:44:00.000Z" replies: 2 views: 169 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13167-redirect" --- # redirect ## #1 — satchmo, 2001-12-13T15:30Z Goddag har ett litet problem. Har en sida med paging när man väljer att den ska visa nästa 25 produkter så går det åt pipan. den skickar honom till main. Om användern listar ett gruppnummrer som inte finnsa ska han skickas till main, annars ska den lista de 25 nästa produkterna. Felmedelandet: Körningsfel i Microsoft VBScript fel '800a000d' Inkompatibla typer: '\[string: ""\]' Koden: Dim GruppNum, GruppNamn GruppNum = Request.Form("varugrupp") & Request.Querystring("varugrupp") If GruppNum = "" Then Response.Redirect("main.asp") GruppNum = Int(GruppNum) Hoppas nu guru's kan lösa detta. Mvh Satchmo the man the myth the one who didnt solvew the problem. Permalänk: https://www.webforum.nu/p/13167 ## #2 — LarsG, 2001-12-13T15:45Z Vilken rad får du fel på? Du kan ju lägga till en kontroll på att värdet i GruppNum är numeriskt. ``` Dim GruppNum, GruppNamn GruppNum = Request.Form("varugrupp") & Request.Querystring("varugrupp") If GruppNum = "" Then Response.Redirect("main.asp") if not isnumeric(Gruppnum) then Then Response.Redirect("main.asp") GruppNum = Clng(GruppNum) ``` red: hur ser gruppnum ut? Borde du inte använda clng i stället? Permalänk: https://www.webforum.nu/p/300685 ## #3 — satchmo, 2001-12-13T16:44Z Det slår fel på denna raden när jag ska bläddra till via pagingen och visa nästa 25 produkter. Den återgår nämligen till main sidan då. osv. om någor försöker ta sig till en tabell som inte finns ex ska den återgå till mainsidan. För 38 är tom Hela Koden: \<% const adOpenForwardOnly = 0 const adOpenKeyset = 1 const adOpenDynamic = 2 const adOpenStatic = 3 const adLockReadOnly = 1 const adLockPessimistic = 2 const adLockOptimistic = 3 const adLockBatchOptimistic = 4 session.LCID=1053 Dim GruppNum, GruppNamn GruppNum = Request.Form("varugrupp") & Request.Querystring("varugrupp") 'If GruppNum = "" Then Response.Redirect("main.asp") 'Om ovanstående är avmarkerad så slår det fel på raden under denna. GruppNum = Int(GruppNum) Set Connect=server.CreateObject("adodb.connection") Set RS = Server.CreateObject("ADODB.Recordset") Connect.Open "DRIVER={Microsoft Access Driver (\*.mdb)}; DBQ=" & server.mappath("prodx5.mdb") RS.open "SELECT Produkter.Varugrupp AS GruppNum, Produkter.Titel AS Titel, Produkter.Titel2 AS Titel2, Produkter.Pris AS Pris, Produkter.ID AS Prod_ID, Varugrupper.Namn AS GruppNamn FROM Produkter, Varugrupper WHERE Produkter.Varugrupp = Varugrupper.ID AND Produkter.Varugrupp = " & GruppNum & " ORDER BY Produkter.Titel", Connect, adopenkeyset, adlockoptimistic %\> \\\ A:Link {color:000000;text-decoration:none;} A:Visited {color:000000;text-decoration:none;} A:Hover {color:#6666CC;text-decoration:underline;} \\ \ \\\\\Produkter under: \<%=RS("GruppNamn")%\>\\\\ \ \\

\\ \

\\\<% = RS("GruppNamn")%\>\\\ \\\Titel\\\ \\\Pris\\\\ \<% '\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* 'Här ställer du in hur många varor du vill ha per sida perpage = 25 For n = 1 to RS.recordcount step perpage If n \<\> 1 then response.write " | " if n \<\> cint (request("start")) then response.write "\" else response.write "\" end if response.write n & " till " if n + perpage \<= RS.recordcount then response.write n + (perpage) - 1 else response.write RS.recordcount end if if n \<\> cint (request("start")) then response.write "\" else response.write "\" end if next response.write "\\" if request("start") = "" then start = 1 else start = cint (request("start")) end if RS.move start - 1 response.write "\Varunummer mellan " & start & " och " & start + perpage -1 & "\\

\\" .Write RS("Titel2") .Write "\\\\

\" .Write FormatCurrency(RS("Pris")) .Write "\\\\" RS.MoveNext End With Next RS.Close Connect.Close Set RS = Nothing Set Connect = Nothing %\>\\\

\ \| \Varukorg\ | \Till kassan\ |\\\\\\ Mvh Satchmo the man the myth the man who needs a brainscan. Permalänk: https://www.webforum.nu/p/300686 --- Tråden på webben: https://www.webforum.nu/amne/asp/13167-redirect