Putte ASP ind i tabeller på hjemmeside

This makes o table with th efirst five records (if there are 5 !) and you are using a recordset named oRSc


for i = 1 to 5

  Response.write \"<TR><TD> & oRSc(\"DATO\") & \"</TD>\"
  Response.write \"<TD> & oRSc(\"NYHED\") & \"</TD>\"</TR>\"
  oRSc.MoveNext

next

Ooops!
Response.write \"<TD> & oRSc(\"NYHED\") & \"</TD></TR>\"

 

Thanx.. i will give it a try....

øhm... en lidt kluntet kode vil jeg mene, brug istedet denne:

Set rs = Conn.Execute(\"SELECT TOP 5 * FROM dinTabel\")

Do until rs.EOF
response.write \"<tr><td>\" & rs(\"dato\") & \"</td>\"
response.write \"<td>\" & rs(\"nyhed\") & \"</td></tr>\"
rs.MoveNext

Set rs = Nothing

Mvh Mark
www.profiled.org - Get your online signature now!

denne kode vil finde de 5 nyeste records, hvis der er under 5 finder den bare alle sammen. Desuden manglede der et par \"\'er i terry\'s kode.

Mvh Mark
www.profiled.org - Get your online signature now!

orca> I may have forgotten a couple of \" but other than that it isnt much dífferent to yours!
There was NO mention as to how many records fastwriter wanted in the result, I used this as an example only. He wants to see how a table is mad, so I expect him to already know how to open a recordset and loop through the reocrds.
Just to put things right!

Response.write \"<TR><TD>\" & oRSc(\"DATO\") & \"</TD>\"
Response.write \"<TD>\" & oRSc(\"NYHED\") & \"</TD></TR>\"

please let me know if its still not OK orca!

 

hey... i did\'nt mean to attack you or anything. I just thought that fastwriter might want some more code to explain how to do it... Sorry if i made you feel insulted.

No problem orca:o)

thanks :)

Øh - blev der ikke spurgt om to tabeller  Dato og Nyhed ? I er vist lidt hurtige på aftrækkeren.

Fastwrite - hvad hefter de to tabeller sammen ??
Datoen eller er de uafhængige ???

Henrik

og hvilken database bruger du?

hnteknik>that may be the case (2 tables) but I have a prety good feeling that fastwrite does actually mean one table and TWO fields. And if there were two tables then its just a case of joining them into a query and doing exactly what I and orca have suggested.
But the question was how to get the data into a table, nothing more nothing less!!

btw, terry -> How come you understand danish... but write in english? ;O)

Hi again orca! How come you understand English but write (most of the time) in danish?

Well that question has been asked a few times now.

I am English!

I can write, I am told, quite good danish. But it just takes so long, and there is no spelling checker in Ekpspertens editor.
Also danes are generally VERY good at English.
Therefore:)

hehe, ok. reason accepted :).

hehe.. Terry - du har ret.. jeg har ÉN tabel - men med TO felter.. jeg beklager forvirringen.. men det lader ikke til at have skræmt nogen af jer.. jeg takker og bukker og neje.. øh, nej, jeg nejer altså ikke!

Terry - eller Orca - hvad er der galt her?

<%
  Dim con, rst, strSQL

Set con = Server.CreateObject(\"ADODB.Connection\")

con.Open \"PROVIDER=MSDASQL;\" & _
\"DRIVER={Microsoft Access Driver (*.mdb)};\" & _
\"DBQ=\" & Server.MapPath(\"/database/herognu.mdb\") & \";\" & _
\"DefaultDir=\" & Server.MapPath(\".\") & \";\" & _
\"DriverId=25;\" & _
\"FIL=MS Access;\" & _
\"MaxBufferSize=512;\" & _
\"PageTimeout=5;\"

Set rst = Conn.Execute(\"Select top 5 * FROM tbl_nyhed\")
strSQL = \"SELECT [dato], [nyhed] \" & _
\"FROM [tbl_nyhed] \" & _
\"ORDER BY dato desc;\"

rst.Open strSQL, con, 3, 3, 1

Do until rs.EOF

    response.write \"<tr><td>\" & rst(\"dato\") & \"</td>\"
    Response.write \"<TD>\" & Left(rst(\"NYHED\"),10) & \"...</TD></TR>\"

rs.MoveNext
Loop

Set rs = Nothing

rst.Close
con.Close
%>

Jeg kan ikke få det til at virke med at at den skal skrive de første 5 linier. Siden virker slet ikke.. hvad skal jeg ændre i?

fastwrite> In the other question which I quess is the same program, does it work here.

http://www.eksperten.dk/spm/111972

I mean does your connect string work. If you remove the Do until loop does it work?

Jeg prøver lige...

Nix... hvad gør jeg galt?!

Altså - en tabel med to felter DATO og NYHED - den skal vise de første 5 records.

Jeg bruger RST og ikke RS.

Jeg skriver følgende :\"

<%
  Dim con, rst, strSQL

Set con = Server.CreateObject(\"ADODB.Connection\")

con.Open \"PROVIDER=MSDASQL;\" & _
\"DRIVER={Microsoft Access Driver (*.mdb)};\" & _
\"DBQ=\" & Server.MapPath(\"/database/herognu.mdb\") & \";\" & _
\"DefaultDir=\" & Server.MapPath(\".\") & \";\" & _
\"DriverId=25;\" & _
\"FIL=MS Access;\" & _
\"MaxBufferSize=512;\" & _
\"PageTimeout=5;\"

strSQL = \"SELECT [dato], [nyhed] \" & _
\"FROM [tbl_nyhed] \" & _
\"ORDER BY dato desc;\"

rst.Open strSQL, con, 3, 3, 1

\' Do until rs.EOF\'

    response.write \"<tr><td>\" & rst(\"dato\") & \"</td>\"
    Response.write \"<TD>\" & Left(rst(\"NYHED\"),10) & \"...</TD></TR>\"

rs.MoveNext
Loop

---- De sidste linier hvor der står resonse.write \"<TD>\" osv, skal vel erstattes med din kode, eller hvad?

prøv følgende:

<%
                              Dim con, rst, strSQL

                            Set con = Server.CreateObject(\"ADODB.Connection\")

                            con.Open \"PROVIDER=MSDASQL;\" & _
                            \"DRIVER={Microsoft Access Driver (*.mdb)};\" & _
                            \"DBQ=\" & Server.MapPath(\"/database/herognu.mdb\") & \";\" & _
                            \"DefaultDir=\" & Server.MapPath(\".\") & \";\" & _
                            \"DriverId=25;\" & _
                            \"FIL=MS Access;\" & _
                            \"MaxBufferSize=512;\" & _
                            \"PageTimeout=5;\"

Set rst = Server.CreateObject(\"ADODB.RecordSet\")
rst.Open \"SELECT TOP 5 * FROM [tbl_nyheder] ORDER BY dato desc;\", conn, 1, 3

Do until rs.EOF

response.write \"<tr><td>\" & rst(\"dato\") & \"</td>\"
response.write \"<td>\" & Left(rst(\"nyhed\"),10) & \"...</td></tr>\"

rs.MoveNext
Loop
%>

terry> jamen så er det jo bare en simpel sag - og igen ser vi en masse korrespondance frem og tilbage, fordi man ikke fra starten tager sig den ulejlighed at udtrykke sig klart. Men det er måske et generelt problem blandt unge idag.

Henrik (+40)

Hi hnteknik> Yes it is quite often a problem getting to the REAL problem. But experience (age) does help to get on th eright track.

Terry (+40)

Terry> Your are quit right

Da jeg var fjorten var min far så dum, at jeg dårligt kunne klare at være sammen med det gamle fjols. Men da jeg nåede de enogtyve var jeg forbløffet over, hvor meget han havde lært på de syv år.

Henrik - Roger and over

:o)

why do i feel kinda stupid being 16 right now? ;O).

Dont worry orca, its a fact of life that we all get older :o)

hehe :)