Hente records udfra select Rank

kan ikke lige se noget langt nogen steder.. måske min forbindelse loade din side hurtigt.. men hvis du mener den kun skal hvis alle 2 ranks på en side og alle 3 ranks på en anden side så er det let nok... går ud fra du har en række i din tabel der angiver rank.. så er det bare at lave en sql sætning som hedder Select from blah where rank blah

databasen indeholder kun 56medlemmer PT.
den skulle jo gerne komme flere til.. ;-)

også er det en fordel for nogle af medlemmer at kunne identificere rank
på andre medlemmer.

Alt det jeg har lavet indtil nu er hva en bog, om database, sådan en af
de blade i nok kender, men nu kan jeg ikke finde den. så jeg er lost når
jeg skal lave noget jeg ikke har prøvet før..  ;-(

sådan her starter siden..
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="nyheder/forbindelse.asp"-->
  <% set news = server.CreateObject("ADODB.Recordset")
      news.open "select * from Members Order by ID Asc", database %>

Skal * så udskiftes, og hvis ja, hvadså hvis jeg ønsker at gøre dette ved
2 ranks, skal jeg så bare lave det hele igen (copy-paste) i bunden så den faktisk
starter forfra?

strSQL = "SELECT * FROM Members WHERE DinRankRækkeIDinTablesNavnHehe = '"& request.querystring("rank") &"'"


så mener jeg du bare kan skrive dine links sådan her

http://www.evisystems.org/Members/memberslist.asp?rank=Unit Members

så vil den kun vise unit members

ok Rækken hedder Rankname så jeg skal skrive

strSQL = "SELECT * FROM Members where Rankname = "& request-querystring("Rank")& "'"

hmm kender nada til sql  hehe.. men det virker da temmelig smart.

hvor skal jeg placere min sql sætning så..

præcis.. du kan lige teste.. kan være den skal tilpasses lidt for at det virker.. har aldrig skrevet en sql sætning som din

news.open "select * from Members Order by ID Asc", database %>

men prøv.. det skulle virke.. så slipper du også for at lave flere ASP sider og kan nøjes med at lave 6 links eller hvor mange du skal bruge: )

jeg bruger dreamweaver,,  og ' laver rod, for den ignorere data efter '
skal lige spise, er tilbage derefter.

    <% set news = server.CreateObject("ADODB.Recordset")
      news.open "strSQL = "SELECT * FROM Members where Rankname = "'& request-querystring("Rankname")& "'"", database %>

ja eller prøv sådan istedet... må indrømme jeg bare er forvirret over der hvor du skriver database.. men test med det du skrev og ellers denne 

<%


Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM members WHERE Rankname = "'& request-querystring("Rankname")& "'""
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("DINDATABASE.mdb")
strSQL = StrSQL & " Order by ID Asc "
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
 
    %>

det med database er hvis en information til serveren,  når jeg skal skrive til
en db hedder den til sidst  database % 1,1) eller % 2,2) osv, alt efter hvor
mang etabels jeg åbner.

jeg prøver lige

Den sidste med den nye connection giver bare fejl 500.

http://www.evisystems.org/Members/memberslist2.asp

http://www.evisystems.org/temp/memberslist2.zip her er asp filen

kigger lige

cool

prøv

    <%


Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM members WHERE Rankname='" & request.querystring("Rankname") & "'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/evidb.mdb")
strSQL = StrSQL & " Order by ID Asc "
strSQL = StrSQL & " ORDER BY title "
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
 
    %>

<%


Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM members WHERE Rankname='" & request.querystring("Rankname") & "'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/evidb.mdb")
strSQL = StrSQL & " Order by ID Asc "
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
 
    %>

den

har prøvet begge  http://www.evisystems.org/Members/memberslist2.asp  giver begge
fejl 500,  begynder måske at tro det er serveren.. kunne det værer.

gør lige dette

Funktioner/Internet Indstillinger/ Avanceret / og fjern hakket i "Hvis meddelelser om uskadelig http fejl"

så skriver den hvad fejlen er.. skulle den gerne

LOL.. ok cool takker for tippet...

line 79 kigger lige.

hmmm ikke så godt...

77    <%
78    news.movenext
79    wend                      <--- aner ik hvad den gør, men er det ikke løkken?
80    %>

jeg prøver at fjerne den og ser hvad der sker

hmm.. hvad siger den af fejl? selve fejlmeddelelsen?

lol..

Expected 'Wend'

/Members/memberslist2.asp, line 78

har set den i igen nu siger den..

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/Members/memberslist2.asp, line 79

<%


Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM members WHERE Rankname='" & request.querystring("Rankname") & "'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/evidb.mdb")
strSQL = StrSQL & " Order by ID Asc "
rs.Open strSQL, strDSN, 1
 
    %>

prøv den der før du fjernet noget.. du har jo brug for din løkke: ) men tror det fordi jeg laver en betingelse  med denne linie som den ikke forstår..

If Not (rs.BOF Or rs.EOF) Then

så den har jeg fjernet

har faktisk mange forslag for kan se mange grunde til fejlen.. så hav tålmodighed så kommer jeg med forslag;)

<%


Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM members WHERE Rankname='" & request.querystring("Rankname") & "'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/evidb.mdb")
strSQL = StrSQL & " Order by ID Asc "
news.Open strSQL, strDSN, 1
If Not (news.EOF) Then

    %>

<%


Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM members WHERE Rankname='" & request.querystring("Rankname") & "'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/evidb.mdb")
strSQL = StrSQL & " Order by ID Asc "
news.Open strSQL, strDSN, 1
    %>


to forslag mere.. fejlen ligger her i hvertfald

det gav -->>

Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x600 Thread 0xa20 DBC 0x96cd024 Jet'.

/Members/memberslist2.asp, line 9


Og linie 9 ser sådan ud rs.Open strSQL, strDSN, 1

hehe den har jeg rettet i min sidste kommentar;)

Object required: 'news'

/Members/memberslist2.asp, line 9

skal man nu til at difinere sine objects ligsom i C eller VB ?

hvad sagde den til forslag

Kommentar: kalp
21/11-2004 21:07:10

sorry.. stener prøv disse

Set news = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM members WHERE Rankname='" & request.querystring("Rankname") & "'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/evidb.mdb")
strSQL = StrSQL & " Order by ID Asc "
news.Open strSQL, strDSN, 1
If Not (news.EOF) Then

    %>

og

Set news = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM members WHERE Rankname='" & request.querystring("Rankname") & "'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/evidb.mdb")
strSQL = StrSQL & " Order by ID Asc "
news.Open strSQL, strDSN, 1
    %>

de mangler lige en <% i starten

yes fik <% med..  men den skaber sig konstant over samme linie..
http://www.evisystems.org/Members/memberslist2.asp

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x600 Thread 0xe18 DBC 0xb6aca7c Jet'.

/Members/memberslist2.asp, line 7

Linie 7 : news.Open strSQL, strDSN, 1

Prøver lige den øverste af de 2.

og ved den øverste vender fejlen tilbage ved linie 75, exspects End ved Wend

hvis den siger expected end så skal du ned og ændre her

  <%
    news.movenext
    wend
   
    end if
    %>

ændre
    <%
    news.movenext
    wend
    %>

til
  <%
    news.movenext
    wend
   
    end if
    %>

korrekt.. prøv det

ok det hjalp på den, så hoppede fejlen op på linie 7 igen..

news.Open strSQL, strDSN, 1

okay vis mig lige hele den kode du har der oppe nu bare så jeg er med igen: )

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set news = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM members WHERE Rankname='" & request.querystring("Rankname") & "'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/evidb.mdb")
strSQL = StrSQL & " Order by ID Asc "
news.Open strSQL, strDSN, 1
If Not (news.EOF) Then
    %>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../css/eviscss.css" rel="stylesheet" type="text/css">
</head>

<body>
<div align="center">
<%
  tal = 0
  while not news.eof
  tal = tal + 1
  %>
  <table width="240" height="131" border="0" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr bgcolor="#FFFF00">
      <td height="21" colspan="4" valign="top" class="newstop"><font size="2">Nickname<strong>
        <% response.Write news.fields("Nickname")%>
        <em>- </em>ID :
        <% response.write news.fields("ID") %>
        </strong> </font> </td>
    </tr>
    <tr>
      <td width="91" height="19" valign="top"> <div align="left"><font size="2">
          <% response.Write news.fields("Proffession") %>
          </font> </div></td>
      <td colspan="3" valign="top"> <div align="right"> <strong>
          <% response.Write news.fields("Rankname") %>
          <font color="#FFFFFF"> . </font></strong> </div></td>
    </tr>
    <tr>
      <td height="18" colspan="3" valign="top" bgcolor="#FFFF00" class="newscenter">
        <div align="left"><font size="2"> Name :
          <% response.Write news.fields("Firstname") %>
          ,
          <% response.Write news.fields("Lastname") %>
          </font> </div></td>
      <td width="69" rowspan="5" valign="top" bgcolor="#FFFFFF" class="newsicon">
        <div align="center"><Img Src="<%=news("Smallphoto")%>" width="60" height="90"></div></td>
    </tr>
    <tr>
      <td height="22"></td>
      <td width="28"></td>
      <td width="52">&nbsp;</td>
    </tr>
    <tr>
      <td height="18"></td>
      <td></td>
      <td valign="top"> <% response.Write news.fields("Breed") %> </td>
    </tr>
    <tr>
      <td height="18"></td>
      <td></td>
      <td valign="top"> <% response.Write news.fields("Gender") %> </td>
    </tr>
    <tr>
      <td height="15"></td>
      <td></td>
      <td></td>
    </tr>
  </table>
  <p>
  <%
    news.movenext
    wend
   
    end if
    %>
  </p>
</div>
</body>
</html>

det fordi den ikke kan finde din database tror jeg... er du sikker på du peger rigtig på den? prøv for sjovt at kopire databasen i samme mappe og skriv dette istedet

<%
Set news = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM members WHERE Rankname='" & request.querystring("Rankname") & "'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("evidb.mdb")
strSQL = StrSQL & " Order by ID Asc "
news.Open strSQL, strDSN, 1
If Not (news.EOF) Then
    %>

db ligger under roden

rod
-->db/db
-->www/index.asp
      /members/memberslist2.asp

så det skulle jo give ../../db/ hehe 2 sec.

ok prøv i hvertfald lige og ellers se om denne database kald er bedre

<%
Set news = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM members WHERE Rankname='" & request.querystring("Rankname") & "'"
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= " & Server.MapPath("../db/evidb.mdb")
strSQL = StrSQL & " Order by ID Asc "
news.Open strSQL, strDSN, 1
If Not (news.EOF) Then
    %>

aaargggggggggghhhhhhhhhh  det virkeede.... LOL 

DOH.!!!  200pts til dig.

Wohuuu seriøst.. hvilket forslag? må lige vide det.. sidder her og kæmper hehe .. og test lige det med URL'en først om du også kan skrive som jeg sagde du skal kunne nu...

bare sig til, hvis du vil have en mere.. en grafik fejl i asp/vb og lidt sql.. hehe
så er den her..  kig nederst selve db fejlen er ok ..

http://eksperten.dk/spm/563622

http://www.evisystems.org/Members/memberslist2.asp?Rankname=Applicant

http://www.evisystems.org/Members/memberslist2.asp?Rankname=general


yep linket virker hehe

Nej jeg skal ikke have flere point det var da fedt at kunne løse problemet uden andre blandede sig hehe

yes,, cool nok.. nu kan jeg komme lidt vidre.. 

woooot..  totalt über...  hehe

jeg kigger lige på det andet spørgsmål du har stillet