[ASP] 1 veld wel herhalen maar URL zelfde

[Verwijderd]

hallo ik heb een probleem
ik heb een overzicht gemaakt van klanten,

bedrijfsnaam: bedrijf
url: http://www.bedrijf.nl

bedrijfsnaam: bedrijf
url: http://www.bedrijf.nl
----------------------------------------
-klik hier- om een klant toe te voegen

nou krijg ik wel alle bedrijfnamen te zien, die vult hij wel
allemaal in,
maar bij de URL herhaalt hij steeds de eerste,
dus alle 4 de links krijgen dan b.v http://www.kpn.nl

dit is mijn code

ASP:

   dim Conn, RS 
   Set Conn = Server.CreateObject("ADODB.Connection")
   Set Rs = Server.CreateObject("ADODB.Recordset")


Set objConn = Server.CreateObject("ADODB.Connection")

Dim strConnect
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& _
              Server.MapPath("priconmedewerkers.mdb")



objConn.open strConnect
Set rs = objConn.execute("SELECT * FROM klantgegevens  ORDER by bedrijfsnaam;")



DO WHILE NOT rs.EOF 

%>


<table border=0 cellpadding=0 cellspacing=0>
 <tr>
  <td class=bn>
    <b>Bedrijfnaam:</b>&nbsp;&nbsp;<% =rs("bedrijfsnaam") %>
  </td>
   <tr>
    <td class=td>
        <a href=<% =rs("url") %> target=new>Website  
<br>
<br> 

<%
rs.movenext
loop

%>

heeft iemand een oplossing?

[SWfreak]

Je HTML code is een beetje een rommel. Je sluit de helft van de tags niet af, waaronder de <a> tag niet. Dus dan krijg je ook troep.

[Verwijderd]

ja het is ff snel gemaakt wou f testen,
maar pas het wel aan.
en wat een domme fout, dat ik dat niet zag
zit er al weer te lang achter, ik ben alweer aardig
bedankt voor de correctie,

[ Voor 4% gewijzigd door Verwijderd op 03-04-2003 15:05 ]

[Noork]

Is dit al je asp code? Sluit je ook je connectie en rs weer af? En is het nu opgelost door </a> toe te voegen? Dat lijkt me toch niet.

[gorgi_19]

* gorgi_19 wil dit toch wel kwalificeren tot de meest ranzige code die ik de afgelopen week heb gezien.. Over de HTML is al wat gezegd, maarobjecten worden niet afgesloten, alle declaraties staan dwars door elkaar heen, indenten gebeurd volledig willekeurig.. Hier is over 2 maanden volgens mij niet meer uit te komen.... :x

[Noork]

Heb trouwens nog ergere code gezien, in dit topic [rml][ asp] Wel database Connecten geen gevens tonen.[/rml]
ook van de heer sunsplash

Er zijn zoveel mooie voorbeelden van scripts te vinden op internet. Waarom ga je niet daar even kijken hoe het precies zit.

[ Voor 29% gewijzigd door Noork op 03-04-2003 15:22 ]

[Verwijderd]

maak aan gast!
ben nog maar 3 dagen met ASP bezig,
dat was na een paar tutorials doorlezen
mijn eerste gebakken code.

en ik wel mijn hele code plaatsen maar dat is niet van toepassing

[ Voor 23% gewijzigd door Verwijderd op 03-04-2003 15:17 ]

[Eskimootje]

Lama dat stond al ergens in de code

[ Voor 68% gewijzigd door Eskimootje op 03-04-2003 15:17 ]

[Verwijderd]

in iedergeval thnx voor normale reply,
integenstelling tot Dork, die hier volgens mij is om mensen te zieken.

(*teveel gepest vroeger ?*)

[TeeDee]

Staat in de database voor elke klant wel een aparte URL?

/edit:
nevermind

[ Voor 86% gewijzigd door TeeDee op 03-04-2003 15:23 ]

[Verwijderd]

ja die staat er, maar het enige probleem was dat ik </a> vergeten was
heel dom
maar werkt nu wel

[gorgi_19]

Verwijderd schreef op 03 April 2003 @ 15:16:
maak aan gast!
ben nog maar 3 dagen met ASP bezig,
dat was na een paar tutorials doorlezen
mijn eerste gebakken code.

en ik wel mijn hele code plaatsen maar dat is niet van toepassing

Ik zou zeggen, doe er je voordeel mee. Ik vind het best dat als je op deze manier wilt doorgaan met coden en alles kris kras door elkaar gooien. Je moet dan alleen niet over een maand aankomen met dat bepaalde dingen niet werken omdat je het niet meer goed kan terugvinden.

Wat ik aangeef, heeft eik nog niets met ASP te maken, maar eerder met netjes coden in het algemeen, en desnoods ben je nog maar 10 minuten bezig, lijkt me een van de dingen waar je niet vroeg genoeg mee kan beginnen. Dat je drie dagen bent is imho geen excuus om een bende van je code te maken.

[ Voor 22% gewijzigd door gorgi_19 op 03-04-2003 15:39 ]

[whoami]

Verwijderd schreef op 03 April 2003 @ 15:20:

integenstelling tot Dork, die hier volgens mij is om mensen te zieken.

(*teveel gepest vroeger ?*)

Laten we het hier een beetje gezellig houden.
Als iemand (gefundeerd) commentaar heeft op je code, dan is het aan jou om te kiezen wat je ermee doet. Of je bent bereid om bij te leren en kijkt eens mbhv de opmerkingen kritisch naar je code, of je bekt iemand af omdat hij het aandurft om jouw code te bekritiseren.
Jij hebt duidelijk voor het laatste gekozen en dat is een beetje jammer.

[Verwijderd]

die reactie was alleen bedoeld voor noork,
met die andere reacties kan ik tenminste wat.

[Verwijderd]

Noork schreef op 03 April 2003 @ 15:14:
Heb trouwens nog ergere code gezien, in dit topic [rml][ asp] Wel database Connecten geen gevens tonen.[/rml]
ook van de heer sunsplash

Er zijn zoveel mooie voorbeelden van scripts te vinden op internet. Waarom ga je niet daar even kijken hoe het precies zit.

sorry ik had ook trouwens alleen het eerste deel gelezen en niet de rest, ik lees het nu pas, had niet gezien dat het een goed bedoelde reactie was,
mijn excuses hiervoor
;'(

[Korben]

Om even schappelijk te zijn, ik ben in een goede bui, hier is je code, maar dan zoals ie wel zou moeten:

ASP:

<%
   Dim RS, objConn, strConnect

   Set RS = Server.CreateObject("ADODB.Recordset")
   Set objConn = Server.CreateObject("ADODB.Connection")

   strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("priconmedewerkers.mdb")

   objConn.Open strConnect
   Set RS = objConn.Execute("SELECT * FROM klantgegevens ORDER BY bedrijfsnaam;")

   Do While Not RS.EOF 

      %>
      <table border=0 cellpadding=0 cellspacing=0>
         <tr>
            <td class="bn">
               <b>Bedrijfnaam:</b>&nbsp;&nbsp;<%=RS("bedrijfsnaam")%>
            </td>
         </tr>
         <tr>
            <td class=td>
               <a href="<%=RS("url")%>" target="_blank">Website</a>
               <br><br>
            </td>
         </tr>
      </table>
      <%

      RS.MoveNext
   Loop

   Set RS = Nothing
   Set objConn = Nothing

%>

Er zullen ongetwijfeld fouten in zitten maar dit maakt het al een stuk leesbaarder.

[Verwijderd]

bedankt