QueryString hur?

tank82 · 2003-04-11, 02:32

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!

Kod:

<!-- #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>

voigtann1 · 2003-04-11, 05:41

Kod:

<html>

<%
dim vad
vad = request.querystring("sortlank")
if vad = "" then
vad = "Bilar"
end if

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 = '"& vad &"' ORDER by namn"
	RecSet.Open SQLsats, Connect, 3, 3
%>
<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:

Kod:

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

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

tank82 · 2003-04-11, 10:33

Tack som fan voigtann1 =) Det funka kanon!

Trådverktyg
Visa utskriftsvänlig version E-posta den här sidan
Visningsalternativ
Linjär visning Växla till hybrid-visning Växla till trådad visning

2003-04-11, 10:33	#3
tank82 Medlem Registrerad: 2003-02-26 Inlägg: 215 Lösningar: 0	Tack som fan voigtann1 =) Det funka kanon!