--- title: "Visa 1-10" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/6649-visa-1-10/page2" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "mhedda" published: "2000-09-08T10:41:00.000Z" updated: "2000-09-21T11:01:00.000Z" replies: 40 views: 558 page: 2 pages: 3 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/6649-visa-1-10" --- # Visa 1-10 _Sida 2 av 3._ ## #21 — PatrikB, 2000-09-15T14:26Z Hello igen, har du kollat så att du inte stavat fel i textboxarnas namn i forumuläret som skickas? Du kan testa och se om det kommer med ngt från formuläret genom att skriva ut det: ``` For Each objItem In Request.Form Response.Write objItem & "
" Next ``` Med den koden ser du allt som kommer med i Request.Form, även knappar och hidden fält. cya, PatrikB Permalänk: https://www.webforum.nu/p/246700 ## #22 — mhedda, 2000-09-15T15:34Z Tjenare! Detta får jag fram Foretagsnamn Lan knapp Så vad kan det vara måntro. För det där att man får upp dom tio första visar väl att sökningen funkar och att den hittar företag och län. Kan man tänka MVH Hedda Permalänk: https://www.webforum.nu/p/246701 ## #23 — PatrikB, 2000-09-16T06:57Z Hello, sorry, tappade bort en grej i koden ovan ;). Nu visar den bara vad fälten heter. Koden ska se ut så här: ``` For Each objItem in Request.Form Response.Write Request.Form(objItem) & "
" Next ``` //PatrikB Permalänk: https://www.webforum.nu/p/246702 ## #24 — mhedda, 2000-09-16T06:57Z Någon sam har den blekaste aning vad det kan vara? Jag är som sagt var inget proffs, än. Så det kan vara en riktigt generalmiss vad vet jag? Men ideérna har sinat. MVH Hedda Permalänk: https://www.webforum.nu/p/246703 ## #25 — mhedda, 2000-09-16T07:10Z Hello PatrikB! Detta fick jag fram när jag sökte på hela sverige: Sök På stockholm: Stockholm Sök På företag tex bilmetro i stockholm: Bilmetro Stockholm Sök ByByHedda Permalänk: https://www.webforum.nu/p/246704 ## #26 — mhedda, 2000-09-16T07:33Z Hej ännu en gång. När jag söker på ett företag ett visst län. Får jag ändå upp en länkad 1 och den länkar ser ut så här \01\ Så då hakar den faktiskt på företagsnamn och län men eftersom sökresultatet redan syns så blir det tomt när jag klickar på 1:an och den borde väl inte visa en 1:a om det bara är ett företag som visas, den ska ju kunna visa 10 st innan ska behöva bläddra. Och söker man på hela sverige ska ju alla län hakas på här är sidan man anger sökning på: \
\ \ \ \ \
\
\ \ \
 \

\\\\Sök på Företag\\\ /Bokstav\\\ \ \\\\ \\\\ \\\\ \ \

 \
\\\\\\Sök på Län\\\\\\ \ Om det kan vara till någon nytta. ByByHedda Permalänk: https://www.webforum.nu/p/246705 ## #27 — mhedda, 2000-09-18T11:14Z Hej igen! Nu känner jag mig riktigt tjatig men jag får inte detta att funka jag fattar inte vad det är. Har kört fast skulle man kunna säga utan att överdriva. Koden är denna nu och om ni kan se vad det är för fel så är jag för evigt tacksam. \<% mypage = Request("whichpage") If mypage = "" then mypage = 1 End If mypagesize = 10 Set MinCon = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") rs.cursorlocation = 3 rs.cachesize = 5 MinCon.Open "DSN=webbkonturen2;UID=;PWD=" If Request("knapp") = "Sök" Then SQL = "SELECT \* FROM Katalog WHERE Foretagsnamn LIKE '"& Request("Foretagsnamn") &"%' AND Lan LIKE '"& Request("Lan") &"%'ORDER BY Foretagsnamn " rs.Open SQL, MinCon If rs.EOF then Response.write "\Sökningen gav inga träffar\" & sok Else rs.movefirst rs.pagesize = mypagesize maxcount = Cint(rs.pagecount) rs.absolutepage = mypage howmanyrecs = 0 howmanyfields = rs.fields.count -1 Do While Not RS.EOF AND howmanyrecs \< rs.pagesize counter = counter + 1 If counter mod 2 = 0 then color = "FFFFFF" Else color = "FFF0C8" End If %\> \
\ target="blank"\>\<%=Replace(rs("Foretagsnamn")," ","\_")%\>\ \ \\<%=rs("Lan")%\> \<%rs.movenext howmanyrecs = howmanyrecs + 1 Loop rs.close Set rs = nothing %\>\ \ \\\<% If maxcount \<\> 0 then response.write "\sida\" &mypage& "\av\" &maxcount& "\" pad = "0" scriptname = request.Servervariables("script_name") for counter = 1 to maxcount If counter \>= 10 then pad = "" End If ref = "\" & pad & counter & "\ " response.write ref & " " if counter mod 10 = 0 then response.write "\" End If Next End If End if End if %\> MedMycketVänligaHälsningar Hedda Permalänk: https://www.webforum.nu/p/246706 ## #28 — Vide, 2000-09-18T14:47Z Det skulle underlätta rejält om du sa vad som var fel, och eventuella felmeddelanden... :) Permalänk: https://www.webforum.nu/p/246707 ## #29 — mhedda, 2000-09-18T20:06Z Hej! Det börjar bra när jag söker tex på företag i hela sverige så får jag upp dom första 10 företagen sedan skrivs sida 1 av 2 och det kommer upp två länkade siffror 1 och 2 men när jag trycker på tvåan så kommer sökresultat sidan upp men utan resultat. Länken ser ut så här \02\ Vad jag förstår av tidigare svar skall den haka på Foretagsnamn och Lan efter = tecknet. eller? Den hittar inte nästa 10 företag iallafall. MVH Hedda Permalänk: https://www.webforum.nu/p/246708 ## #30 — Vide, 2000-09-19T06:30Z Vad är fälten döpta till i formuläret? Permalänk: https://www.webforum.nu/p/246709 ## #31 — mhedda, 2000-09-19T06:50Z Dom är döpta till Foretagsnamn och Lan MVH Hedda Permalänk: https://www.webforum.nu/p/246710 ## #32 — PatrikB, 2000-09-19T07:07Z Hello, du kan testa och pickla med denna kod. Det är det enda jag känner att jag kan göra just nu. Denna pagebar är densamma som jag använder på den gästboken som ligger på [www.vasterviksbk.nu](http://www.vasterviksbk.nu) ``` <% Option Explicit ' use only buffer = true if not server is set to buffer ' if server is set to buffer, then remove next line '------------------------------------------------------ Response.Buffer = True Dim strSQL Dim MaxPages Dim MaxRecs Dim RecCount Dim myPageSize Dim myPage Dim HowManyRecs ' As Integer Dim RowColor ' As String Dim i ' As Integer Dim rs ' as adodb.recordset Dim strForetagsnamn ' As String Dim strLan ' As String strForetagsnamn = Server.URLEncode(Request("Foretagsnamn")) strLan = Server.URLEncode(Request("Lan") HowManyRecs = 0 ' SQL fråga för att hämta sökt data '---------------------------------- strSQL = Request("SQLquery") If strSQL = "" Then strSQL = "SELECT * FROM Katalog WHERE Foretagsnamn LIKE '" & _ strForetagsnamn & "%' " & _ "AND Lan LIKE '" & strLan & "%' ORDER BY Foretagsnamn" End If ' Vilken sida besökaren är på just nu '------------------------------------ myPage = Request("whichpage") If myPage = "" then myPage = 1 End If ' Hur många recs ska visas på varje sida '--------------------------------------- myPageSize = Request("pagesize") If myPageSize = "" then myPageSize = 10 End If ' Öpnna databasen '---------------- Set MinCon = Server.CreateObject("ADODB.Connection") MinCon.Open "DSN=webbkonturen2;UID=;PWD=" 'Hämta all relevant data '----------------------- Set rs = Server.CreateObject("ADODB.Recordset") On Error Resume Next rs.ActiveConnection = gbConn rs.Source = strSQL rs.CursorLocation = 3 rs.CacheSize = 5 rs.Open rs.MoveFirst rs.PageSize = myPageSize rs.AbsolutePage = myPage MaxPages = CInt(rs.PageCount) MaxRecs = CInt(rs.PageSize) 'RecCount = rs.RecordCount %> <% ' Loopa igenom recordsetet och skriv ut relevant data '---------------------------------------------------- Do Until rs.EOF or HowManyRecs >= MaxRecs %> Presentera datan här på det sätt du vill att det ska. <% rs.MoveNext HowManyRecs = HowManyRecs + 1 Loop Call GetNavigationBar() %> <% ' Denna sub bygger upp sidnavigeringen '------------------------------------- Public Sub GetNavigationBar() Dim pad ' As String Dim scriptname ' As String Dim counter ' As String Dim ref ' As String Dim counterend ' As String If RecCount < MaxRecs Then Response.Write " " Else pad="" ScriptName = Request.ServerVariables("SCRIPT_NAME") If myPage > 1 Then ref="Föregående " Response.Write ref End If Response.Write "[ " For counter=1 To MaxPages If CInt(counter) <> CInt(myPage) Then ref="" & counter & "" Else ref="" & counter & "" End If response.write ref If counter <> counterend Then response.write " " Next Response.Write " ]" If mypage = Request.QueryString("lastpage") Then Response.Write " " Else ref=" Nästa" Response.Write ref End If End If End Sub %> ``` Som du ser får du lov att lägga till en del som tex hur datan ska presenteras. //PatrikB Permalänk: https://www.webforum.nu/p/246711 ## #33 — mhedda, 2000-09-19T07:32Z Tackar så mycket jag ska joxa lite med koden så får vi se vad det blir? MVH Hedda Permalänk: https://www.webforum.nu/p/246712 ## #34 — mhedda, 2000-09-19T20:12Z Tackar så mycket än en gång för koden. Nu funkar det nästan :( Det är så att jag får upp Ett företag som börjar på A på första sidan. Ett företag som börjar på K på andra sidan. Ett företag som börjar på Ö på tredje sidan. också \[ 1 2 3 \] Nästa Så det är ganska bra so far men den vill inte plocka med sig dom andra nio på varje sida. Koden ser ut så här nu: \<% Option Explicit ' use only buffer = true if not server is set to buffer ' if server is set to buffer, then remove next line '------------------------------------------------------ Dim strSQL Dim MaxPages Dim MaxRecs Dim RecCount Dim myPageSize Dim myPage Dim HowManyRecs ' As Integer Dim RowColor ' As String Dim i ' As Integer Dim rs ' as adodb.recordset Dim MinCon ' as adodb.connection Dim strForetagsnamn ' As String Dim strLan ' As String Dim strHemsida ' As String strForetagsnamn = Server.URLEncode(Request("Foretagsnamn")) strLan = Server.URLEncode(Request("Lan")) strHemsida = Server.URLEncode(Request("Hemsida")) HowManyRecs = 0 ' SQL fråga för att hämta sökt data '---------------------------------- strSQL = Request("SQLquery") If strSQL = "" Then strSQL = "SELECT \* FROM Katalog WHERE Foretagsnamn LIKE '" & \_ strForetagsnamn & "%' " & \_ "AND Lan LIKE '" & strLan & "%' ORDER BY Foretagsnamn" End If ' Vilken sida besökaren är på just nu '------------------------------------ myPage = Request("whichpage") If myPage = "" then myPage = 1 End If ' Hur många recs ska visas på varje sida '--------------------------------------- myPageSize = Request("pagesize") If myPageSize = "" then myPageSize = 10 End If ' Öpnna databasen '---------------- Set MinCon = Server.CreateObject("ADODB.Connection") MinCon.Open "DSN=webbkonturen2;UID=;PWD=" 'Hämta all relevant data '----------------------- Set rs = Server.CreateObject("ADODB.Recordset") On Error Resume Next rs.ActiveConnection = MinCon rs.Source = strSQL rs.CursorLocation = 3 rs.CacheSize = 5 rs.Open rs.MoveFirst rs.PageSize = myPageSize rs.AbsolutePage = myPage MaxPages = CInt(rs.PageCount) MaxRecs = CInt(rs.PageSize) RecCount = rs.RecordCount %\> \ \ \ \ \ \ \
\ target="blank"\>\<%=Replace(rs("Foretagsnamn")," ","\_")%\>\ \ \\<%=rs("Lan")%\>\ \ \ \ \<% ' Denna sub bygger upp sidnavigeringen '------------------------------------- Public Sub GetNavigationBar() Dim pad ' As String Dim scriptname ' As String Dim counter ' As String Dim ref ' As String Dim counterend ' As String If RecCount \< MaxRecs Then Response.Write " " Else pad="" ScriptName = Request.ServerVariables("SCRIPT_NAME") If myPage \> 1 Then ref="\Föregående\ " Response.Write ref End If Response.Write "\[ " For counter=1 To MaxPages If CInt(counter) \<\> CInt(myPage) Then ref="\" & counter & "\" Else ref="\" & counter & "\" End If response.write ref If counter \<\> counterend Then response.write " " Next Response.Write " \]" If mypage = Request.QueryString("lastpage") Then Response.Write " " Else ref=" \Nästa\" Response.Write ref End If End If End Sub %\> \<% ' Loopa igenom recordsetet och skriv ut relevant data '---------------------------------------------------- Do Until rs.EOF or HowManyRecs \<= MaxRecs %\> \<% rs.MoveNext HowManyRecs = HowManyRecs + 1 Loop Call GetNavigationBar()%\> \ \ \ \ \ Jag har provat att skriva in \ target="blank"\>\<%=Replace(rs("strForetagsnamn")," ","\_")%\>\ \<%=rs("strLan")%\>\ \ \ \\ \ \ \ \<% ' Loopa igenom recordsetet och skriv ut relevant data '---------------------------------------------------- Do Until rs.EOF or HowManyRecs \<= MaxRecs %\> \ \
\" target="blank"\>\<%=Replace(rs("Foretagsnamn")," ","\_")%\>\ \ \\<%=rs("Lan")%\>\ \ \ \ \<% rs.MoveNext HowManyRecs = HowManyRecs + 1 Loop Call GetNavigationBar()%\> \ \ \ \ \ \<% ' Denna sub bygger upp sidnavigeringen '------------------------------------- Public Sub GetNavigationBar() Dim pad ' As String Dim scriptname ' As String Dim counter ' As String Dim ref ' As String Dim counterend ' As String If RecCount \< MaxRecs Then Response.Write " " Else pad="" ScriptName = Request.ServerVariables("SCRIPT_NAME") If myPage \> 1 Then ref="\Föregående\ " Response.Write ref End If Response.Write "\[ " For counter=1 To MaxPages If CInt(counter) \<\> CInt(myPage) Then ref="\" & counter & "\" Else ref="\" & counter & "\" End If response.write ref If counter \<\> counterend Then response.write " " Next Response.Write " \]" If mypage = Request.QueryString("lastpage") Then Response.Write " " Else ref=" \Nästa\" Response.Write ref End If End If End Sub %\> \-------------------------------------- Jämför den med din gamla kod så ser du att du inte "loopade" igenom recordsetet utan hämtade bara första "raden" i recordsetet. cya, PatrikB Permalänk: https://www.webforum.nu/p/246714 ## #36 — mhedda, 2000-09-20T11:10Z Tackar du är en klippa nu funkar det jätte bra fick dock ändra på Do Until rs.EOF or HowManyRecs \<= MaxRecs Do Until rs.EOF or HowManyRecs \>= MaxRecs En liten fråga till innan jag slutar tjata om det här vad göra när man inte får upp sökresultat på Gävleborg och skåne anar att det är åäö som spökar har försökt med denna kod men vet inte riktigt hur den ska placeras eller om den är rätt strLan=request("Lan") strLan=replace(strLan,"å","å") strLan=replace(strLan,"ä","ä") strLan=replace(strLan,"ö","ö") strSQL = "UPDATE Katalog FIELDS (" strSQL = strSQL & "strLan) " strSQL = strSQL & "VALUES ('" & strLan& "'," strSQL = strSQL & "'" & strLan & "'," Stort tack till er alla ifrån Hedda Permalänk: https://www.webforum.nu/p/246715 ## #37 — PatrikB, 2000-09-20T14:10Z Hello, antar att du kört Server.HTMLEncode eller dylikt när du sparat info i databasen. Då har alla "special" tecken fått sina ascii koder, tex å etc. och kommer således inte att hitta de bokstäverna och läns namnen blir ej "matchande". Om du Hämtar listboxarnas innehåll ifrån databasen så kan du göra så att när man valt tex län så "söker" den på länets Id istället för på läns namnet så slipper du problemet med å, ä eller ö. och sökningarna blir snabbare oxå ... lite, lite ;) cya, //PatrikB Permalänk: https://www.webforum.nu/p/246716 ## #38 — PatrikB, 2000-09-20T14:34Z Hello, en liten funktion jag har som listar alla ascii nr med vilket tecken de motsvarar. Bra att ha emellanåt: Spara all kod som - ascii.asp - eller ngt annat lämpligt filnamn. sedan e det bara att rada upp alla ascii nr och få fram bokstav/tecken. ``` <% Option Explicit Response.Buffer = True Function ListAsciiChar() Dim strChar ' As String Dim i ' As Integer For i = 1 To 255 strChar = Chr(i) Response.Write("ascii nr: " & i & " = " & strChar & "
") Next End Function %> <% =ListAsciiChar()%> ``` cya, PatrikB Permalänk: https://www.webforum.nu/p/246717 ## #39 — mhedda, 2000-09-20T19:03Z Tackar så mycket sjysst med en liten ascii nr lista som man fick med på köpet. Ha det så bra och tack så mycket för den här gången. ByByHedda Permalänk: https://www.webforum.nu/p/246718 ## #40 — PatrikB, 2000-09-20T22:02Z Your Welcome! //PatrikB Permalänk: https://www.webforum.nu/p/246719 --- Tråden på webben: https://www.webforum.nu/amne/asp/6649-visa-1-10/page2 Föregående sida: https://www.webforum.nu/amne/asp/6649-visa-1-10.md Nästa sida: https://www.webforum.nu/amne/asp/6649-visa-1-10/page3.md