40 svar · 487 visningar · startad av mhedda · sida 2 av 3
Hej! Var in på ditt forum Vide. Lägger nu in frågan och svaren även här. Hej! Jag undrar hur man visar poster 1-10 sedan tex Nästa-Föregående vid en sökning som denna. Koden: Set MinCon = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") MinCon.Open "DSN=accmhedda;UID=;PWD=" %\> \<% If Request.Form("knapp") = "Sök" Then SQL = "SELECT \ FROM Katalog WHERE Bi
Läs frågan i sin helhet →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 & "<br>"
Next
Med den koden ser du allt som kommer med i Request.Form, även knappar och hidden fält.
cya,
PatrikB
------------------
=================================
** ZWGdesign **
=================================
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
------------------
Hedda
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) & "<br>"
Next
//PatrikB
------------------
=================================
** ZWGdesign **
=================================
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
------------------
Hedda
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
------------------
Hedda
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 <a href='/katalog/Katal.asp?Foretagsnamn=webbkonturen&Lan=Gävleborg&whichpage=1&pagesize=10'>01</a>
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å:
<FORM ACTION = "Katal.asp" METHOD="POST" name="" Target="right">
<center>
<table width="100%" border="0" cellspacing="0" cellpadding="5" height="5%" align="center" vspace="0" hspace="0">
<tr bgcolor="#FFFFFF" valign="middle" align="left">
<td bgcolor="#FFFFFF" rowspan="2" colspan="5">
<div align="left"></div>
</td>
<td bgcolor="#FFFFFF" rowspan="2" valign="top" width="20%">
<p align="left"><font color="#396CA1" face="Verdana, Arial, Helvetica, sans-serif"><b><font size="1"><font color="#000000">Sök
på Företag</font></font><font size="1" color="#000000">
/Bokstav</font><font size="1"><br>
<input type = "TEXT" name = "Foretagsnamn">
</font><font color="#396CA1" face="Verdana, Arial, Helvetica, sans-serif"><b><font size="1">
</font></b></font><font size="1"> </font></b></font></p>
</td>
<td bgcolor="#FFFFFF" rowspan="2" valign="top" width="18%">
<div align="left"><font color="#396CA1" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#396CA1" face="Verdana, Arial, Helvetica, sans-serif"><b><font size="1"><font color="#000000">Sök
på Län</font></font></b></font><font size="1"><br>
<select name="Lan">
<option value= "<%=Lan%>">Hela Sverige</option>
<option value="Blekinge">Blekinge</option>
<option value="Dalarna">Dalarna</option>
<option value="Gotland">Gotland</option>
<option value="Gävleborg">Gävleborg</option>
<option value="Halland">Halland</option>
<option value="Jämtland">Jämtland</option>
<option value="Jönköping">Jönköping</option>
<option value="Kalmar">Kalmar</option>
<option value="Kronoberg">Kronoberg</option>
<option value="Norrbotten">Norrbotten</option>
<option value="Skåne">Skåne</option>
<option value="Stockholm">Stockholm</option>
<option value="Södermanland">Södermanland</option>
<option value="Uppsala">Uppsala</option>
<option value="Värmland">Värmland</option>
<option value="Västerbotten">Västerbotten</option>
<option value="Västernorrland">Västernorrland</option>
<option value="Västmanland">Västmanland</option>
<option value="Västra Götaland">Västra Götaland</option>
<option value="Örebro ">Örebro </option>
<option value="Östergötland">Östergötland</option>
</select>
</font><font color="#396CA1" face="Verdana, Arial, Helvetica, sans-serif"><b><font size="1">
<input type = "SUBMIT" name = "knapp" value = "Sök">
Om det kan vara till någon nytta.
ByByHedda
------------------
Hedda
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 "<b>Sökningen gav inga träffar</b>" & 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
%>
<tr bgcolor="<%=color%>">
<td width="68%" height="22"><A HREF=<%=Replace(rs("Hemsida")," ","+")%> target="blank"><%=Replace(rs("Foretagsnamn")," ","_")%></A>
</td>
<td width="32%" height="22"><%=rs("Lan")%> <%rs.movenext
howmanyrecs = howmanyrecs + 1
Loop
rs.close
Set rs = nothing
%></td>
<tr>
<td width="68%" align="left" valign="bottom" ><br><%
If maxcount <> 0 then
response.write "<b>sida</b>" &mypage& "<b>av</b>" &maxcount& "<br>"
pad = "0"
scriptname = request.Servervariables("script_name")
for counter = 1 to maxcount
If counter >= 10 then
pad = ""
End If
ref = "<a href='" & scriptname & "?Foretagsnamn=" & request("Foretagsnamn") & "&Lan=" & request("Lan") & "&whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
response.write ref & " "
if counter mod 10 = 0 then
response.write "<br>"
End If
Next
End If
End if
End if
%>
MedMycketVänligaHälsningar Hedda
------------------
Hedda
Det skulle underlätta rejält om du sa vad som var fel, och eventuella felmeddelanden... :)
------------------
Kom hem till mig...
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
<a href='/katalog/Katal.asp?Foretagsnamn=&Lan=&whichpage=2&pagesize=10'>02</a>
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
------------------
Hedda
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
<%
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
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
' 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()
%>
</BODY>
</HTML>
<%
' 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="<a href='" & ScriptName
ref=ref & "?Foretagsnamn=" & strForetagsnamn & "&Lan=" & strLan & _
"&whichpage=" & (myPage - 1)
ref=ref & "&pagesize=" & myPageSize
ref=ref & "&SQLquery=" & server.URLencode(strSQL)
ref=ref & "'>Föregående</a> "
Response.Write ref
End If
Response.Write "[ "
For counter=1 To MaxPages
If CInt(counter) <> CInt(myPage) Then
ref="<a href='" & ScriptName
ref=ref & "?Foretagsnamn=" & strForetagsnamn & "&Lan=" & strLan & _
"&whichpage=" & counter
ref=ref & "&lastpage=" & MaxPages & "&pagesize=" & myPageSize
ref=ref & "&SQLquery=" & server.URLencode(strSQL)
ref=ref & "'>" & counter & "</a>"
Else
ref="<b>" & counter & "</b>"
End If
response.write ref
If counter <> counterend Then response.write " "
Next
Response.Write " ]"
If mypage = Request.QueryString("lastpage") Then
Response.Write " "
Else
ref=" <a href='" & ScriptName
ref=ref & "?Foretagsnamn=" & strForetagsnamn & "&Lan=" & strLan & _
"&whichpage=" & (mypage + 1)
ref=ref & "&lastpage=" & MaxPages & "&pagesize=" & mypagesize
ref=ref & "&SQLquery=" & server.URLencode(strSQL)
ref=ref & "'>Nästa</a>"
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
------------------
=================================
** ZWGdesign **
=================================
[Redigerat av PatrikB den 19 sep 2000]
Tackar så mycket jag ska joxa lite med koden så får vi se vad det blir?
MVH Hedda
------------------
Hedda
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
%>
<HTML>
<HEAD>
</HEAD>
<body bgcolor="#FFFFFF">
<table width="29%" border="0" cellspacing="0" cellpadding="0" align="center" height="134" vspace="0" hspace="0">
<tr>
<td width="231"><A HREF=<%=Replace(rs("Hemsida")," ","+")%> target="blank"><%=Replace(rs("Foretagsnamn")," ","_")%></A>
</td>
<td width="226"><%=rs("Lan")%></td>
</tr>
<tr>
<td width="0%" align="left" valign="bottom" colspan="2"> <%
' 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="\<a href='" & ScriptName
ref=ref & "?Foretagsnamn=" & strForetagsnamn & "&Lan=" & strLan & \_
"&whichpage=" & (myPage - 1)
ref=ref & "&pagesize=" & myPageSize
ref=ref & "&SQLquery=" & server.URLencode(strSQL)
ref=ref & "'\>Föregående\</a\> "
Response.Write ref
End If
Response.Write "\[ "
For counter=1 To MaxPages
If CInt(counter) \<\> CInt(myPage) Then
ref="\<a href='" & ScriptName
ref=ref & "?Foretagsnamn=" & strForetagsnamn & "&Lan=" & strLan & \_
"&whichpage=" & counter
ref=ref & "&lastpage=" & MaxPages & "&pagesize=" & myPageSize
ref=ref & "&SQLquery=" & server.URLencode(strSQL)
ref=ref & "'\>" & counter & "\</a\>"
Else
ref="\<b\>" & counter & "\</b\>"
End If
response.write ref
If counter \<\> counterend Then response.write " "
Next
Response.Write " \]"
If mypage = Request.QueryString("lastpage") Then
Response.Write " "
Else
ref=" \<a href='" & ScriptName
ref=ref & "?Foretagsnamn=" & strForetagsnamn & "&Lan=" &strLan & \_
"&whichpage=" & (mypage + 1)
ref=ref & "&lastpage=" & MaxPages & "&pagesize=" & mypagesize
ref=ref & "&SQLquery=" & server.URLencode(strSQL)
ref=ref & "'\>Nästa\</a\>"
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()%\>
</td>
</tr>
</table>
</BODY>
</HTML>
Jag har provat att skriva in <A HREF=<%=Replace(rs("Hemsida")," ","+")%> target="blank"><%=Replace(rs("strForetagsnamn")," ","_")%></A>
<%=rs("strLan")%></ strLan alltså str före Lan och Foretag för visningen men då visar den inget.
Vad kan det vara.
MVH Hedda
------------------
Hedda
Hello igen,
testa denna kod.
--------------------------------------
<%
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
%>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<body bgcolor="#FFFFFF">
<table width="29%" border="0" cellspacing="0" cellpadding="0" align="center" height="134" vspace="0" hspace="0">
<%
' Loopa igenom recordsetet och skriv ut relevant data
'----------------------------------------------------
Do Until rs.EOF or HowManyRecs <= MaxRecs
%>
<tr>
<td width="231"><A HREF="<%=Replace(rs("Hemsida")," ","+")%>" target="blank"><%=Replace(rs("Foretagsnamn")," ","_")%></A>
</td>
<td width="226"><%=rs("Lan")%></td>
</tr>
<tr>
<td width="0%" align="left" valign="bottom" colspan="2">
<%
rs.MoveNext
HowManyRecs = HowManyRecs + 1
Loop
Call GetNavigationBar()%>
</td>
</tr>
</table>
</BODY>
</HTML>
<%
' 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="<a href='" & ScriptName
ref=ref & "?Foretagsnamn=" & strForetagsnamn & "&Lan=" & strLan & _
"&whichpage=" & (myPage - 1)
ref=ref & "&pagesize=" & myPageSize
ref=ref & "&SQLquery=" & server.URLencode(strSQL)
ref=ref & "'>Föregående</a> "
Response.Write ref
End If
Response.Write "[ "
For counter=1 To MaxPages
If CInt(counter) <> CInt(myPage) Then
ref="<a href='" & ScriptName
ref=ref & "?Foretagsnamn=" & strForetagsnamn & "&Lan=" & strLan & _
"&whichpage=" & counter
ref=ref & "&lastpage=" & MaxPages & "&pagesize=" & myPageSize
ref=ref & "&SQLquery=" & server.URLencode(strSQL)
ref=ref & "'>" & counter & "</a>"
Else
ref="<b>" & counter & "</b>"
End If
response.write ref
If counter <> counterend Then response.write " "
Next
Response.Write " ]"
If mypage = Request.QueryString("lastpage") Then
Response.Write " "
Else
ref=" <a href='" & ScriptName
ref=ref & "?Foretagsnamn=" & strForetagsnamn & "&Lan=" &strLan & _
"&whichpage=" & (mypage + 1)
ref=ref & "&lastpage=" & MaxPages & "&pagesize=" & mypagesize
ref=ref & "&SQLquery=" & server.URLencode(strSQL)
ref=ref & "'>Nästa</a>"
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
------------------
=================================
** ZWGdesign **
=================================
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
------------------
Hedda
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
------------------
=================================
** ZWGdesign **
=================================
[Redigerat av PatrikB den 20 sep 2000]
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("<b>ascii nr:</b> " & i & " = " & strChar & "<br>")
Next
End Function
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<% =ListAsciiChar()%>
</BODY>
</HTML>
cya,
PatrikB
------------------
=================================
** ZWGdesign **
=================================
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
------------------
Hedda