Notifikationer

Markér alle som læst Log ud

fastpoint Nybegynder

15. december 2004 - 17:53 Der er 31 kommentarer og
1 løsning

vise bestemte poster

hvordan kan jeg gøre så hvis der ikke står noget i branche at den viser alt i databasen? og hvordan får jeg det til fungere med mit alfa? hvordan kommer mit link til at skulle se ud?

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM brancher WHERE branche='" & request.querystring("type") & "'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
If Request("alfa") > "" Then strSQL = strSQL & " AND instr('" & LCase(Request("alfa")) & "',lcase(left(virksomhed,1)))>0"
strSQL = StrSQL & " ORDER BY virksomhed"
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 20
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
%>

Synes godt om

fastpoint Nybegynder

15. december 2004 - 18:09 #1

kan denne linie

WHERE branche='" & request.querystring("type") & "'"

evt sættes sammen med denne istedet

If Request("alfa") > "" Then strSQL = strSQL & " AND instr('" & LCase(Request("alfa")) & "',lcase(left(virksomhed,1)))>0"
strSQL = StrSQL & " ORDER BY virksomhed"

for så tror jeg godt jeg kan få det til at virke... nogen som kan hjælpe?

Synes godt om

fastpoint Nybegynder

15. december 2004 - 18:59 #2

http://url.dk/index.asp?branche=resturation

vil gerne have man kan skrive

http://url.dk/index.asp?branche=

og alt så bliver vist.. og så inden for den bestemte branche.. ved hjælp af alfa

Synes godt om

tjaz Nybegynder

16. december 2004 - 00:53 #3

if request.querystring("type") = "" then
strSQL = "SELECT * FROM brancher"
else
strSQL = "SELECT * FROM brancher WHERE branche='" & request.querystring("type") & "'"
end if

Synes godt om

fastpoint Nybegynder

17. december 2004 - 09:07 #4

hvor skal jeg indsætte de linier?

Set rs = Server.CreateObject("ADODB.RecordSet")
if request.querystring("type") = "" then
strSQL = "SELECT * FROM brancher"
else
strSQL = "SELECT * FROM brancher WHERE branche='" & request.querystring("type") & "'"
end if
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
If Request("alfa") > "" Then strSQL = strSQL & " AND instr('" & LCase(Request("alfa")) & "',lcase(left(virksomhed,1)))>0"
strSQL = StrSQL & " ORDER BY virksomhed"
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 20
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
%>

sådan ? kan ikke lige teste her

Synes godt om

tjaz Nybegynder

17. december 2004 - 09:36 #5

jep

Synes godt om

fastpoint Nybegynder

24. december 2004 - 01:25 #6

perfekt virker næsten!

kan nu skrive

http://www.url.dk/branche.asp?type=Biler
og
http://www.url.dk/branche.asp

det godt! meen

hvorfor virker min alfa ikke nu? skulle gerne kunne sige under biler fx... at den kun skal vise dem som starter med B....

er det nogen flere else sætninger? håber du kan hjælpe

Synes godt om

tjaz Nybegynder

24. december 2004 - 02:12 #7

Kan man gå ud fra at alfa kommer fra en form ?

Synes godt om

fastpoint Nybegynder

24. december 2004 - 02:23 #8

alfa kommer også fra url'en.. mine links plejede at se sådan her ud

http://www.url.dk/branche.asp?alfa=A

for alle med A.

Synes godt om

tjaz Nybegynder

24. december 2004 - 02:28 #9

Prøv den her:

<%
typen = request.querystring("type")
alfa = request.querystring("alfa")

Set rs = Server.CreateObject("ADODB.RecordSet")
if typen = "" AND alfa = "" then
strSQL = "SELECT * FROM brancher"
elseif typen <> "" AND alfa = "" then
strSQL = "SELECT * FROM brancher WHERE branche = '"& typen &"'"
end if
if alfa <> "" Then
strSQL = strSQL & " AND LCase(left(virksomhed,1)) = '" & LCase(alfa) & "'"
end if
strSQL = StrSQL & " ORDER BY virksomhed"
rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 20
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
%>

Synes godt om

fastpoint Nybegynder

24. december 2004 - 02:36 #10

får denne fejl

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

kan det have noget at gøre med du manglede toppen af min kode? du får det samlede her for en sikkerheds skyld som det ser ud nu.

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

typen = request.querystring("type")
alfa = request.querystring("alfa")

Set rs = Server.CreateObject("ADODB.RecordSet")
if typen = "" AND alfa = "" then
strSQL = "SELECT * FROM brancher"
elseif typen <> "" AND alfa = "" then
strSQL = "SELECT * FROM brancher WHERE branche = '"& typen &"'"
end if
if alfa <> "" Then
strSQL = strSQL & " AND LCase(left(virksomhed,1)) = '" & LCase(alfa) & "'"
end if
strSQL = StrSQL & " ORDER BY virksomhed"
rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 20
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
%>

Synes godt om

tjaz Nybegynder

24. december 2004 - 02:39 #11

Jeg har da stadig ikke hele koden ?

Synes godt om

fastpoint Nybegynder

24. december 2004 - 02:43 #12

det var bare denne del mere

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

troede den havde betydning: )

Synes godt om

tjaz Nybegynder

24. december 2004 - 02:47 #13

well ...

typen = request.querystring("type")
alfa = request.querystring("alfa")

skal stå som det første efter du starter dit asp tag i toppen af siden:

----------------------------------------------
eks.
----------------------------------------------

<%
typen = request.querystring("type")
alfa = request.querystring("alfa")

osv.

----------------------------------------------

Dernæst skal du indsætte:

Set rs = Server.CreateObject("ADODB.RecordSet")
if typen = "" AND alfa = "" then
strSQL = "SELECT * FROM brancher"
elseif typen <> "" AND alfa = "" then
strSQL = "SELECT * FROM brancher WHERE branche = '"& typen &"'"
end if
if alfa <> "" Then
strSQL = strSQL & " AND LCase(left(virksomhed,1)) = '" & LCase(alfa) & "'"
end if
strSQL = StrSQL & " ORDER BY virksomhed"
rs.Open strSQL, strDSN, 1

Der hvor det plener at stå.

Dette betyder, at hvis jeg har fået hele koden kommer det til at se sådan her ud:

<%
typen = request.querystring("type")
alfa = request.querystring("alfa")

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
if typen = "" AND alfa = "" then
strSQL = "SELECT * FROM brancher"
elseif typen <> "" AND alfa = "" then
strSQL = "SELECT * FROM brancher WHERE branche = '"& typen &"'"
end if
if alfa <> "" Then
strSQL = strSQL & " AND LCase(left(virksomhed,1)) = '" & LCase(alfa) & "'"
end if
strSQL = StrSQL & " ORDER BY virksomhed"
rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 20
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
%>

Synes godt om

fastpoint Nybegynder

24. december 2004 - 02:51 #14

det er hele koden.. med html... men får samme fejl som før:(

<table width="730" height="0" cellspacing="1" align="center" cellpadding="2" border="0" bgcolor="#000000">
<tr bgcolor="#FFFFFF">
<td width="40%">
<table width="730" height="8" cellspacing="1" align="center" cellpadding="2" border="0">
<tr>
<td valign="top" colspan="2">
<div align="center"><font size="2" face="Courier New, Courier, mono"><b>Branche
Index : <a href="branche.asp?alfa=A">A</a>|<a href="branche.asp?alfa=B">B</a>|<a href="branche.asp?alfa=C">C</a>|<a href="branche.asp?alfa=D">D</a>|<a href="branche.asp?alfa=E">E</a>|<a href="branche.asp?alfa=F">F</a>|<a href="branche.asp?alfa=G">G</a>|<a href="branche.asp?alfa=H">H</a>|<a href="branche.asp?alfa=I">I</a>|<a href="branche.asp?alfa=J">J</a>|<a href="branche.asp?alfa=K">K</a>|<a href="branche.asp?alfa=L">L</a>|<a href="branche.asp?alfa=M">M</a>|<a href="branche.asp?alfa=N">N</a>|<a href="branche.asp?alfa=O">O</a>|<a href="branche.asp?alfa=P">P</a>|<a href="branche.asp?alfa=Q">Q</a>|<a href="branche.asp?alfa=R">R</a>|<a href="branche.asp?alfa=S">S</a>|<a href="branche.asp?alfa=T">T</a>|<a href="branche.asp?alfa=U">U</a>|<a href="branche.asp?alfa=V">V</a>|<a href="branche.asp?alfa=W">W</a>|<a href="branche.asp?alfa=X">X</a>|<a href="branche.asp?alfa=Z">Z</a>|<a href="branche.asp?alfa=ZY%C6%C5%D80123456789">0-9</a>|</b></font>
<font face="Courier New, Courier, mono"></font><font face="Courier New, Courier, mono"><br>
<br>
</font>
<div align="center"><font face="Courier New, Courier, mono"><br>
</font> <font face="Verdana, Arial, Helvetica, sans-serif"><br>
</font>
<div align="center">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%
typen = request.querystring("type")
alfa = request.querystring("alfa")

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
if typen = "" AND alfa = "" then
strSQL = "SELECT * FROM brancher"
elseif typen <> "" AND alfa = "" then
strSQL = "SELECT * FROM brancher WHERE branche = '"& typen &"'"
end if
if alfa <> "" Then
strSQL = strSQL & " AND LCase(left(virksomhed,1)) = '" & LCase(alfa) & "'"
end if
strSQL = StrSQL & " ORDER BY virksomhed"
rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 20
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
%>

</font> </div>
<table height="8" cellspacing="1" align="center" cellpadding="2" border="0" bgcolor="#000000" width="700">
<tr bgcolor="#CCCCCC">
<td width="70%">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#333333"><b>Virksomheder</b></font></div>
</td>
</tr>
<%
Do While Not rs.EOF And intRecCount > 0
%>
<tr bgcolor="#E5E5E5">
<td width="70%">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<a href="visvirksomhed.asp?rid=<%= rs("id") %>&sp=<% = rs("virksomhed") %>"><font size="3">
<% = rs("virksomhed") %>
</font></a><font size="3">

<font color="#FF0000"></font></font></font></div>
</td>
</tr>
<%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
%>
<p></p>
</table>
<font face="Courier New, Courier, mono">
<%
Else
%>
</font></div>
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><span class="overskrift"><font color="#FF0000" size="2"><b>Ingen
brancher i denne katagori endnu!</b></font> </span>
<%
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side: "
alfa = request.querystring("alfa")
For intNum = 1 To intPageCount
Response.Write "<a href=branche.asp?page=" & intNum & "&alfa=" & alfa & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=branche.asp?page=" & intPage - 1 & "&alfa=" & alfa & ">" & "<<" & "</a> "
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=branche.asp?page=" & intPage + 1 & "&alfa=" & alfa & ">" & ">>" & "</a> "
Else
Response.Write ">>"
End If
%>
</font></div>
</div>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>

Synes godt om

tjaz Nybegynder

24. december 2004 - 03:05 #15

du bruger access right ?

Synes godt om

fastpoint Nybegynder

24. december 2004 - 03:07 #16

hov! kig øverst i mit spørgsmål... min database mangler jo! og ja det er access! vi har mistet den undervejs hehe

Synes godt om

fastpoint Nybegynder

24. december 2004 - 03:09 #17

tester lige igen.. har smidt databasen på igen

Synes godt om

fastpoint Nybegynder

24. december 2004 - 03:11 #18

hmm hvordan skal mit link se ud?

http://www.url.dk/branche.asp?type=bil?alfa=a

så finder den ikke noget... fjerner jeg ?alfa=a finder den alle biler..

Synes godt om

tjaz Nybegynder

24. december 2004 - 03:12 #19

http://www.url.dk/branche.asp?type=bil&alfa=a

Synes godt om

fastpoint Nybegynder

24. december 2004 - 03:14 #20

så får jeg en fejl:/

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

ODBC driver does not support the requested properties.

Synes godt om

tjaz Nybegynder

24. december 2004 - 03:15 #21

yes ... så langt er jeg også kommet :D ... er ved at løse problemet :)

Synes godt om

fastpoint Nybegynder

24. december 2004 - 03:15 #22

elseif typen <> "" AND alfa <> "" then

der... en rettelse nu trorjeg det virker

Synes godt om

fastpoint Nybegynder

24. december 2004 - 03:16 #23

wuhuu yep! Det var det..!

Synes godt om

fastpoint Nybegynder

24. december 2004 - 03:17 #24

Du får point nu som tak for hjælpen! Tror vist ikke der var mere angående opdeling af katagori ellers håber jeg det er i orden hvis jeg vender tilbage:)

Synes godt om

tjaz Nybegynder

24. december 2004 - 03:21 #25

takker :) ... det gør du bare :)

Synes godt om

fastpoint Nybegynder

24. december 2004 - 03:29 #26

der er en lille ting endnu... når jeg skriver

http://www.url.dk/branche.asp?type=mad

i IE og trykker enter virker det fint... men hvis jeg laver et link fra en af mine andre siger som det der så får jeg denne fejl

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

ODBC driver does not support the requested properties.

men hvis jeg laver linket sådan her

http://www.url.dk/branche.asp?type=mad&alfa=ETELLERANDET

så virker det..! hvad skal jeg gøre anderledes?

Synes godt om

fastpoint Nybegynder

24. december 2004 - 04:03 #27

jeg fandt ud af den:)

det var mere disse link her hvordan laver jeg dem om?

branche.asp?alfa=A

nu er det jo type som er først.. og det skal vel requestes?

Synes godt om

tjaz Nybegynder

24. december 2004 - 05:14 #28

Prøv og smid koden så kigger jeg på det ... tror det er noget med at der skal indsættes:

AND alfa = ""

et sted.

Vil tro du har et sted hvor der står:

if type <> "" then

som skal rettes til

id type <> "" AND alfa = "" then

Synes godt om

tjaz Nybegynder

24. december 2004 - 05:15 #29

im off ... go jul :D

Synes godt om

fastpoint Nybegynder

24. december 2004 - 11:27 #30

Synes godt om

fastpoint Nybegynder

25. december 2004 - 00:57 #31

fandt selv ud af det:) smed denne kode over det der <%typen = request.querystring("type")%>

og ændrede mine links til det der

<a href="branche.asp?type=<%=typen%>&alfa=A">A</a>

Synes godt om

thesurfer Nybegynder

25. december 2004 - 01:04 #32

Når en variabel skal have en bestemt værdi, baseret på en anden parameter, kan man sætte dens værdi, og derefter lave et check..

Dvs, i stedet for:

if request.querystring("type") = "" then
strSQL = "SELECT * FROM brancher"
else
strSQL = "SELECT * FROM brancher WHERE branche='" & request.querystring("type") & "'"
end if

kan man nøjes med:

strSQL = "SELECT * FROM brancher"

if request.querystring("type") <> "" then strSQL = "SELECT * FROM brancher WHERE branche='" & request.querystring("type") & "'"

Det kan også bruges i anden situationer... bare et lille hint :-)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS