Notifikationer

Markér alle som læst Log ud

henrikravn.com Nybegynder

10. marts 2003 - 21:05 Der er 42 kommentarer og
1 løsning

de sidste 10 tilmeldte links i en mdb.???

Er der nogle der kan hjælpe med asp kode der gør at f.eks. de sidste 10 tilmeldte links i en mdb vises på f.eks. forsiden??

Synes godt om

medions Nybegynder

10. marts 2003 - 21:06 #1

strSQL = "SELECT TOP 10 * FROM tabelnavn ORDER BY ID DESC"

//>Rune

Synes godt om

medions Nybegynder

10. marts 2003 - 21:06 #2

Hmm ellers var det

strSQL = "SELECT TOP 10 * FROM tabelnavn ORDER BY ID ASC"

Kan sq ik' lige huske det...

//>Rune

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 21:07 #3

hvordan sættes det ind? (jeg er først lige begynd at rode med asp)

Synes godt om

medions Nybegynder

10. marts 2003 - 21:10 #4

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

objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Databasefil.mdb")

strSQL = "SELECT TOP 10 * FROM tabelnavn ORDER BY ID ASC"

While Not objRs.EOF
Response.Write(objRs("Links") & " ")
objRs.MoveNext
Wend

//>Rune

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 21:22 #5

<% Set objRs = Server.CreateObject("ADODB.Recordset")
Set objConn = Server.CreateObject("ADODB.Connection")

objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dbafil.mdb")

strSQL = "SELECT TOP 10 * FROM tabelnavn ORDER BY ID ASC"

While Not objRs.EOF
Response.Write(objRs("Links") & " ")
objRs.MoveNext
Wend %>

der er en fejl:
( ADODB.Recordset error '800a0e78'

Handlingen er ikke tilladt, mens objektet er lukket.)

- har jeg gjort det rigtig?

Synes godt om

burningice Nybegynder

10. marts 2003 - 21:24 #6

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

objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dbafil.mdb")

strSQL = "SELECT TOP 10 * FROM tabelnavn ORDER BY ID ASC"
Set objRS = objConn.Execute(strSQL)

While Not objRs.EOF
Response.Write(objRs("Links") & " ")
objRs.MoveNext
Wend %>

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 21:30 #7

Skal jeg rette andet end "dbafil.mdb"?

Synes godt om

burningice Nybegynder

10. marts 2003 - 21:32 #8

mon ikke du også skal rette tabelnavn til navnet på din tabel?

Synes godt om

medions Nybegynder

10. marts 2003 - 21:32 #9

ja, tabelnavnet og kolonnenavnet (Links)

-Prøv at send mig din database så retter jeg scriptet til efter den...

rune@medions.dk

//>Rune

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 21:48 #10

er sendt

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 21:49 #11

dog stadig ingen links i den endnu (men de kommer til at ligge i linkz)

Synes godt om

medions Nybegynder

10. marts 2003 - 21:52 #12

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 21:58 #13

hmm:

Microsoft VBScript compilation error '800a03f9'

Expected 'Then'

/inde.asp, line 42

If Not objRs.EOF
----------------^

jeg fucker det altså op...sorry - men hvad sker der?

Synes godt om

medions Nybegynder

10. marts 2003 - 22:01 #14

<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")

objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("link.mdb")

strSQL = "SELECT TOP 10 * FROM linkz ORDER BY ID ASC"
Set objRS = objConn.Execute(strSQL)

If Not objRs.EOF Then
While Not objRs.EOF
Response.Write(objRs("namn") & " ")
objRs.MoveNext
Wend
End If
%>

Hvaa kan du overhovedet ikke ASP?
-beklager fejlen, men jeg tror du skal hoppe en tur forbi www.html.dk/tutorials/asp og læse hvordan syntaks osv. er i VB før du går videre med det... Det kunne spare dig en masse tid...

//>Rune

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 22:03 #15

jeg er igang med html.dk...det er faktisk skide godt - hvor lang tid tog dig at lære asp?

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 22:04 #16

(jeg arbejder primært med ideér og grafisk design)

Synes godt om

medions Nybegynder

10. marts 2003 - 22:05 #17

:-) yep, sitet er rigtig godt!

Well man kan ikke sige jeg har færdiglært ASP endnu... Egentlig vil jeg mene man aldrig kan sige man har det, for der sker heletiden noget nyt!

Men en forståelse af ASP/VB blev da skabt på ½ år vil jeg mene... Så var jeg godt rystet...

//>Rune

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 22:08 #18

ok - tak for hjælpen...
Kan det lade sig gøre at få linket klikbar?

Synes godt om

medions Nybegynder

10. marts 2003 - 22:09 #19

Ja...

<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")

objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("link.mdb")

strSQL = "SELECT TOP 10 * FROM linkz ORDER BY ID ASC"
Set objRS = objConn.Execute(strSQL)

If Not objRs.EOF Then
While Not objRs.EOF
Response.Write("<a href=""linknavn.asp"">" & objRs("namn") & "</a> ")
objRs.MoveNext
Wend
End If
%>

//>Rune

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 22:13 #20

lige en sidste ting - det er de sidst tilmeldte links der skal vises (de højeste id nr.) men det er de laveste id der bliver vist?

Synes godt om

medions Nybegynder

10. marts 2003 - 22:14 #21

<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")

objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("link.mdb")

strSQL = "SELECT TOP 10 * FROM linkz ORDER BY ID DESC"
Set objRS = objConn.Execute(strSQL)

If Not objRs.EOF Then
While Not objRs.EOF
Response.Write("<a href=""linknavn.asp"">" & objRs("namn") & "</a> ")
objRs.MoveNext
Wend
End If
%>

//>Rune

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 22:18 #22

("<a href=""linknavn.asp"">" - hvad skal jeg rette det her til?

Synes godt om

medions Nybegynder

10. marts 2003 - 22:20 #23

<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")

objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("link.mdb")

strSQL = "SELECT TOP 10 * FROM linkz ORDER BY ID DESC"
Set objRS = objConn.Execute(strSQL)

If Not objRs.EOF Then
While Not objRs.EOF
Response.Write("<a href=""" & objRs("Link") & """>" & objRs("namn") & "</a> ")
objRs.MoveNext
Wend
End If
%>

//>Rune

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 22:26 #24

target="_blank" - kan det sættes ind så linket åbner i et nyt vindue?

Synes godt om

medions Nybegynder

10. marts 2003 - 22:27 #25

<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")

objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("link.mdb")

strSQL = "SELECT TOP 10 * FROM linkz ORDER BY ID DESC"
Set objRS = objConn.Execute(strSQL)

If Not objRs.EOF Then
While Not objRs.EOF
Response.Write("<a href=""" & objRs("Link") & "" target=""_blank""">" & objRs("namn") & "</a> ")
objRs.MoveNext
Wend
End If
%>

//>Rune

Synes godt om

medions Nybegynder

10. marts 2003 - 22:27 #26

Hov, der var vidst en for meget...

<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")

objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("link.mdb")

strSQL = "SELECT TOP 10 * FROM linkz ORDER BY ID DESC"
Set objRS = objConn.Execute(strSQL)

If Not objRs.EOF Then
While Not objRs.EOF
Response.Write("<a href=""" & objRs("Link") & """ target=""_blank"">" & objRs("namn") & "</a> ")
objRs.MoveNext
Wend
End If
%>

//>Rune

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 22:30 #27

jeg tror der er fejl i det???

Synes godt om

medions Nybegynder

10. marts 2003 - 22:32 #28

<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")

objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("link.mdb")

strSQL = "SELECT TOP 10 * FROM linkz ORDER BY ID DESC"
Set objRS = objConn.Execute(strSQL)

If Not objRs.EOF Then
While Not objRs.EOF
Response.Write("<a href=""" & objRs("Link") & """ target=""_blank"">" & objRs("namn") & "</a> ")
objRs.MoveNext
Wend
End If
%>

//>Rune

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 22:37 #29

det virker ik...linket bliver http://www.blabla.dk target=/

Synes godt om

medions Nybegynder

10. marts 2003 - 22:39 #30

<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")

objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("link.mdb")

strSQL = "SELECT TOP 10 * FROM linkz ORDER BY ID DESC"
Set objRS = objConn.Execute(strSQL)

If Not objRs.EOF Then
While Not objRs.EOF
Response.Write("<a href=""" & objRs("Link") & """ target=""_blank"">" & objRs("namn") & "</a> ")
objRs.MoveNext
Wend
End If
%>

//>Rune

Synes godt om

medions Nybegynder

10. marts 2003 - 22:40 #31

Eksperten fatter MINUS lige nu!!!

Ret denne linje:
Response.Write("<a href=""" & objRs("Link") & " target=""_blank"">" & objRs("namn") & "</a> ")

Til
Response.Write("<a href=""" & objRs("Link") & """ target=""_blank"">" & objRs("namn") & "</a> ")

//>Rune

Synes godt om

medions Nybegynder

10. marts 2003 - 22:41 #32

WHAAAAAAAAAT!!!!!!!!!

FUCK det er irriterende!!!!!!

Hmm hvordan fanden kan jeg så vise dig det?

Der hvor der står
" target=""

skal der stå
""" target=""

//>Rune

Synes godt om

medions Nybegynder

10. marts 2003 - 22:41 #33

LOL, Det forstår jeg ikke!! Den vil ikke vise mit svar rigtigt!!!

Jeg prøver at forklare det så... Der skal være 3 " i stedet for én "

//>Rune

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 22:42 #34

hvad er forskellen?

Synes godt om

medions Nybegynder

10. marts 2003 - 22:43 #35

Kommentar: medions
10/03-2003 22:41:48

//>Rune

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 22:44 #36

3 efter TARGET SÅDAN:
target="""

Synes godt om

medions Nybegynder

10. marts 2003 - 22:46 #37

Nej.. 3 efter objRs("Link") &

//>Rune

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 22:47 #38

Response.Write("<a href=""" & objRs("Link") & """ target=""_blank"">" & objRs("namn") & "</a> ")

Synes godt om

medions Nybegynder

10. marts 2003 - 22:48 #39

Nej...

Response.Write("<a href=""" & objRs("Link") & " <- Der skal der tilføjes 2 mere!

//>Rune

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 22:50 #40

DET VIRKER - underligt man ikke kan skrive det her...men jeg fatte det endeligt rigtigt.
Tusind tak for din tålmodighed og hjælp.

Synes godt om

henrikravn.com Nybegynder

10. marts 2003 - 22:53 #41

fatter - sorry

Synes godt om

medions Nybegynder

10. marts 2003 - 22:54 #42

Det går nok ;o)
Thx 4 Poinz

//>Rune

Synes godt om

medions Nybegynder

12. marts 2003 - 11:32 #43

Tak for de rosende ord i min gæstebog!

//>Rune

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS