Morten Andersen <v1207a@groenjord.dk> skrev i
news:newscache$qs1jbg$9r3$1@kalvebod.groenjord.dk
> "Søren Lundfald" <webwatcher@forum.dk> wrote in message
> news:TsiA6.104$e81.2952@news.get2net.dk...
> > Morten Andersen <v1207a@groenjord.dk> skrev i en
> > nyhedsmeddelelse:newscache$obzibg$dr1$1@kalvebod.groenjord.dk...
> > > Hvordan kan jeg ændre farven på mit søgeresultat? Jeg kunne godt tænke
> mig
> > > at søgeresultatet blev skrevet i hvidt og ikke i sort som det gør nu.
> > > Er det inde i ens asp-kode at man angiver dette eller....
> > > Morten
> >
> > Du skal bare sætte nogle <font color="#FFFFFF"></font> tags i din asp
fil,
> > dér hvor outputtet bliver dannet.
> > Prøv at sende koden med næste gang.
> > --
> > Mvh
> > Søren Lundfald
> > -------------------------------------
> > Greenland - what a wonderful world
> >
http://www.ilulissat.gl
> > -------------------------------------
> Jo. Koden ser ud som følger:
>
> <%
> Dim oConn, sConnString
> Set oConn = Server.CreateObject("ADODB.Connection")
> ' Husk at angive den rigtige sti til din database
> sConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> Server.MapPath ("musik.mdb")
> ' Åben databaseforbindelsen
> oConn.Open(sConnString)
>
> ' SQL forespørgsel
> SQL = "Select * from musi Order by Kunstner,Album"
> ' Udfør forespørgsel (rs indeholder nu resultatet)
> Set RS = oConn.Execute(SQL)
> Response.Write "<table border=1>"
> Response.Write "<tr><th>Kunstner</th><th>Album</th><th>Genre</th></tr>"
>
> Do
>
> Response.Write "<tr><td>" & rs("Kunstner") & "</td>"
> Response.Write "<td>" & rs("Album") & "</td>"
> Response.Write "<td>" & rs("Genre") & "</td>"
>
> rs.MoveNext
>
> ' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
> Loop While Not rs.EOF
>
> ' Luk databaseforbindelse
> oConn.Close
> Set Conn = Nothing
> %>
>
> Og så var det altså, at jeg godt kunne tænke mig, at søgeresultatet blev
> skrevet med hvidt, eftersom jeg har en mørk baggrundsfarve på siden...
Det var ikke rare problemet, men det var veldig mye tull for det ...
(Jeg tok meg den frihet å rette en feil ...)
Ellers må jeg nesten fortelle at jeg ikke har sett <th> før, og når jeg slo
opp på taggen i HomeSite 4.5.1 så stod det at det var bare IE som godtar den
taggen. Kanskje det hadde vært smart å gå over til "<td><strong>" & text &
"</strong></td>" ???
<%
Dim oConn, sConnString
Set oConn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
sConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath ("musik.mdb")
' Åben databaseforbindelsen
oConn.Open(sConnString)
' SQL forespørgsel
SQL = "Select * from musi Order by Kunstner,Album"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set RS = oConn.Execute(SQL)
Response.Write "<table border=1>"
Response.Write "<tr><th>Kunstner</th><th>Album</th><th>Genre</th></tr>"
Do
Response.Write "<tr>"
Response.Write "<td><font color=""#FFFFFF"">" & rs("Kunstner") &
"</font></td>"
Response.Write "<td><font color=""#FFFFFF"">" " & rs("Album") &
"</font></td>"
Response.Write "<td><font color=""#FFFFFF"">" " & rs("Genre") &
"</font></td>"
Response.Write "</tr>"
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
oConn.Close
Set Conn = Nothing
%>