så har jeg prøvet at sætte det ind på min www side.
og det virker detsvære ikke.
den skrive bare " siden kan ikke vises.
Der er problemer med den side, du prøver at åbne, og den kan ikke vises.
og jeg har prøve alt hvad jeg sådan kan, men det er også begranset, så håber
at du kan hjælpe mig her kommer de 2 script det ene du skriv og det jeg har
hente fra hmtl.dk
liste.asp
<html>
<head>
<title>
</head>
<body>
<dl>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSQL = "Select * From personer Order by Fornavn Desc"
Set rs = Conn.Execute(strSQL)
' Sæt en tæller til at tælle resultater:
Dim intAntal
intAntal = 0
Response.Write "<table>" & vbcrlf
Do While Not rs.Eof
' Hvis 3 går op i intAntal, startes på en ny række
If intAntal mod 3 = 0 Then
' Men inden skal foregående række afsluttes - undtagen første gang:
If intAntal > 0 Then
Response.Write "</tr>" &vbcrlf
End If
Response.Write "<tr>" & vbcrlf
End If
' Personens navn
strNavn = rs("Fornavn") & " " & rs("Efternavn")
' lav et link til person.asp med Id-værdien i URL
strLink = "<a href='person.asp?id=" & rs("Id") & "'>" & strNavn &
"</a>"
' Celle med links
Response.Write "<td>" & strLink & "</td>" & vbcrlf
' Tæller steppes frem:
intAntal = intAntal + 1
rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing
' Så skal vi lige sikre os, at tabel-rækken er afsluttet korrekt
' (hvis der fx kun står ét navn i den sidste række):
Select Case intAntal mod 3
Case 0
Response.Write "</tr>" & vbcrlf
Case 1
Response.Write "<td> </td><td> </td></tr>" & vbcrlf
Case 2
Response.Write "<td> </td></tr>" & vbcrlf
End Select
' (det kunne også laves med en loop)
Response.Write "</table>" & vbcrlf
%>
</dl>
<p>
</body>
</html>
person :
<html>
<head>
<title>Hente data fra database</title>
</head>
<body>
<dl>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN
' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From personer Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)
' Skriv personens data
Response.Write "<dt>Navn:</dt><dd>" & rs("Fornavn") & " " & rs("Efternavn")
& "</dd>"
Response.Write "<dt>Telefon:</dt><dd>" & rs("Telefon") & "</dd>"
Response.Write "<dt>Fødselsdato:</dt><dd>" &
FormatDateTime(rs("Foedselsdato"), vbLongDate) & "</dd>"
Conn.Close
Set Conn = Nothing
%>
</dl>
<p><a href="liste.asp">Retur til listen</a></p>
</body>
</html>
Thomas
"Jørn Andersen" <jorn@jorna.dk> skrev i en meddelelse
news:ce5jo3tq79vrvu8cs25si4jpc1s80s66mp@4ax.com...
> On Sat, 12 Jan 2008 16:04:03 +0100, Jørn Andersen <jorn@jorna.dk> wrote:
>
>>On Sat, 12 Jan 2008 10:03:41 +0100, "Thomas Pedersen" <twp@twp.dk>
>>wrote:
>>
>>Hej Thomas,
>>
>>Så vidt jeg kan se, skal du lægge dine data ind i en (HTML-) tabel - som
>>har 3 kolonner (du vil have 3 navne ved siden af hinanden. Er det ikke
>>rigtigt forstået?).
>>
>>Så jeg laver lige nogle tilføjelser/aændringer i dit script herunder:
>><snip>
>
> Her har du hele ASP'en i sammenhæng:
>
> <%
> ' Databaseforbindelse - husk at angive sti til din database
> Set Conn = Server.CreateObject("ADODB.Connection")
> DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
> DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
> Conn.Open DSN
>
> strSQL = "Select * From personer Order by Fornavn Desc"
> Set rs = Conn.Execute(strSQL)
>
> ' Sæt en tæller til at tælle resultater:
> Dim intAntal
> intAntal = 0
>
> Response.Write "<table>" & vbcrlf
>
> Do While Not rs.Eof
> ' Hvis 3 går op i intAntal, startes på en ny række
> If intAntal mod 3 = 0 Then
> ' Men inden skal foregående række afsluttes - undtagen første gang:
> If intAntal > 0 Then
> Response.Write "</tr>" &vbcrlf
> End If
> Response.Write "<tr>" & vbcrlf
> End If
> ' Personens navn
> strNavn = rs("Fornavn") & " " & rs("Efternavn")
>
> ' lav et link til person.asp med Id-værdien i URL
> strLink = "<a href='person.asp?id=" & rs("Id") & "'>" & strNavn &
> "</a>"
>
> ' Celle med links
> Response.Write "<td>" & strLink & "</td>" & vbcrlf
>
> ' Tæller steppes frem:
> intAntal = intAntal + 1
>
> rs.MoveNext
> Loop
>
> Conn.Close
> Set Conn = Nothing
>
> ' Så skal vi lige sikre os, at tabel-rækken er afsluttet korrekt
> ' (hvis der fx kun står ét navn i den sidste række):
> Select Case intAntal mod 3
> Case 0
> Response.Write "</tr>" & vbcrlf
> Case 1
> Response.Write "<td> </td><td> </td></tr>" & vbcrlf
> Case 2
> Response.Write "<td> </td></tr>" & vbcrlf
> End Select
> ' (det kunne også laves med en loop)
>
> Response.Write "</table>" & vbcrlf
> %>
>
> Good luck!
>
> --
> Jørn Andersen,
> Brønshøj