QueryString hur?

2 svar · 241 visningar · startad av tank82 11 apr. 2003

tank82Medlem sedan feb. 2003210 inlägg

11 apr. 2003 01:32#1

Hejsan,
Jag har försökt att klura ut detta själv men det går bara inte.

Jag vill ha funktionen QueryString, så man kan Tex. skriva lankar.asp?sortlank=bilar så kommer alla billänkar upp, och om man skriver lankar.asp?sortlank=datorer så kommer alla datorlänkar fram osv. (4 kategorier totalt) Kolumnen som jag sorterar länkarna heter ”sortlank” och där har jag 4st kategorier bilar, dator, media och vapen

Jag har provat en massa olika varianter med inget funkar, jag tror det har något att göra med "Connect, adOpenStatic," ? men vad vet jag, jag är ju bara en nybörjare =)

Så är det någon som kan hjälpa mig med detta, så vore det kanon.

Tack på förhand!

<!-- #include file = "adovbs.inc" -->
<html>

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("lankar.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
	SQLsats = "SELECT * FROM lankar WHERE sortlank = '"&"bilar"&"' ORDER by namn"
	RecSet.Open SQLsats, Connect, adOpenStatic, adLockOptimistic
%>
<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="0">
  <% Do Until RecSet.EOF %>
  <tr> 
    <td width="5%" valign="top"><p align="center"><a href="lankar/rakna.asp?id=<% = RecSet("id") %>" target="_blank"><img src="lankar/lank.gif" width="27" height="26" border="0" alt="<% = RecSet("namn") %>"></a></td>
    <td width="95%" valign="top"><a href="lankar/rakna.asp?id=<% = RecSet("id") %>" target="_blank"><% = RecSet("namn") %></a></font><font color="#000000"><br><% = RecSet("medd") %></td>
  </tr>
  <tr>
    <td colspan="2" width="757"><hr color="#E9E9E9" size="1">
    </td>
  </tr>
  <%
Recset.MoveNext
Loop
Recset.Close
Connect.Close

Set Recset = Nothing
Set Connect = Nothing
%></table>

voigtann1Medlem sedan juni 20019 519 inlägg

11 apr. 2003 04:41#2

<html>

<%[b]
dim vad
vad = request.querystring("sortlank")
if vad = "" then
vad = "Bilar"
end if
[/b]
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("lankar.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
	SQLsats = "SELECT * FROM lankar WHERE sortlank = '"& [b]vad[/b] &"' ORDER by namn"
	RecSet.Open SQLsats, Connect, [b]3, 3[/b]
%>
<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="0">
  <% Do Until RecSet.EOF %>
  <tr> 
    <td width="5%" valign="top"><p align="center"><a href="lankar/rakna.asp?id=<% = RecSet("id") %>" target="_blank"><img src="lankar/lank.gif" width="27" height="26" border="0" alt="<% = RecSet("namn") %>"></a></td>
    <td width="95%" valign="top"><a href="lankar/rakna.asp?id=<% = RecSet("id") %>" target="_blank"><% = RecSet("namn") %></a></font><font color="#000000"><br><% = RecSet("medd") %></td>
  </tr>
  <tr>
    <td colspan="2" width="757"><hr color="#E9E9E9" size="1">
    </td>
  </tr>
  <%
Recset.MoveNext
Loop
Recset.Close
Connect.Close

Set Recset = Nothing
Set Connect = Nothing
%></table>

så eller?
Jag tog bort:

<!-- #include file = "adovbs.inc" -->

och ändrade :adOpenStatic, adLockOptimistic till 3,3 så slipper du ladda många variabler och gör sidan snabbare :e

tank82Medlem sedan feb. 2003210 inlägg

11 apr. 2003 09:33#3

Tack som fan voigtann1 =) Det funka kanon!