18. december 2003 - 09:25Der er
6 kommentarer og 1 løsning
css font + ingen linjeskift i overskrifter
Hej! Jeg har inkluderet denne fil nedenunder (search.asp), som volder mig det problem, når jeg søger i det og mine resultater viser sig, så bliver de ved med at komme frem i blåt med understregning, hvor jeg bare ønsker, den skal bruge den css, som jeg har defineret. Derudover laver den også linjeskift, hvis det nu er en overskrift bestående af mere end et ord - og jeg ønsker bare det hele på en linie. Håber ikke det virker for forvirrende, men er der hjælp at hente?
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>Systematics homekitchen</title> <META NAME="Generator" CONTENT="Stone's WebWriter 3.5"> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <script language="JavaScript" type="text/JavaScript"> <!--
function MM_preloadImages() { //v3.0 var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array(); var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++) if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}} } //--> </script> <style>@import url("systematic.css");
If Len(strKeyword) = 0 Then ' Hvis der ikke er skrevet i feltet 'Response.Clear Response.Redirect("opskrifter.asp") Else ' Hvis der er skrevet i feltet strKeyword = Replace(strKeyword,"'","''") End If
' Opbygger en dynamisk SQL streng strSQL = "SELECT ID, nick, text, dato, tid, id FROM opskrifter WHERE" strSQL = strSQL & " (nick LIKE '%" & strKeyword & "%')" strSQL = strSQL & " ORDER BY nick asc"
' Skaber DSNLess forbindelse til DB'en strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("homekitchen.mdb") Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN
' Skaber et recordset udfra SQL strengen Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen Response.Write "<table border=0>" Do While Not rs.EOF
response.write "<tr>" response.write "<span class=""link""><a class ""link"" href=""show.asp?id=" & rs.fields("id") & """>" & rs.fields("nick") & "</a></span>" response.write "</td></tr>" rs.MoveNext Loop Else ' Hvis der ikke er fundet poster på søgningen Response.Write "<p><span class=""broedtxt"">Beklager, der er desværre intet resultat på søgningen!</span></p>" End If
' Rydder op efter os myConn.Close Set myConn = Nothing %> </td> </tr> </table></td> </tr> </table></td> </tr> </table>
Selvfølgelig! Du har ret. Sikke en fejl at overse. Men tak! Har du så også løsningen på, hvorfor den laver linieskift, hvis en overskrift indeholder mere end et ord?
Hmmm...jeg kan heller ikke finde ud af det, men hjælper det dig, hvis jeg viser dig disse to filer, hvoraf den ene er hvor min søgefunktion ligger og den anden er, hvor de bliver kaldt frem?
' 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("homekitchen.mdb") Conn.Open DSN
' SQL forespørgsel - asc = sætter opskrifterne i alfabetisk rækkefølge i forhold til 'nick' = navn på opskrift strSQL = "Select * from opskrifter order by nick asc"
' Udfør forespørgsel (objRec indeholder nu resultatet) Set objRec = Conn.Execute(strSQL)
If Len(strKeyword) = 0 Then ' Hvis der ikke er skrevet i feltet 'Response.Clear Response.Redirect("opskrifter.asp") Else ' Hvis der er skrevet i feltet strKeyword = Replace(strKeyword,"'","''") End If
' Opbygger en dynamisk SQL streng strSQL = "SELECT ID, nick, text, dato, tid, id FROM opskrifter WHERE" strSQL = strSQL & " (nick LIKE '%" & strKeyword & "%')" strSQL = strSQL & " ORDER BY nick asc"
' Skaber DSNLess forbindelse til DB'en strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("homekitchen.mdb") Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN
' Skaber et recordset udfra SQL strengen Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen Response.Write "<table border=0>" Do While Not rs.EOF
response.write "<tr>" response.write "<span class=""link""><a class=""link"" href=""show.asp?id=" & rs.fields("id") & """>" & rs.fields("nick") & "</a></span>" response.write "</td></tr>" rs.MoveNext Loop Else ' Hvis der ikke er fundet poster på søgningen Response.Write "<p><span class=""broedtxt"">Beklager, der er desværre intet resultat på søgningen!</span></p>" End If
' Rydder op efter os myConn.Close Set myConn = Nothing %> </td> </tr> </table></td> </tr> </table></td> </tr> </table>
Kun, hvis du har det ellers er det okay. Jeg kan bare ikke lige selv se, hvor problemet er.
Du får pointene nu, for det andet og så kan du se, om du får tid og lyst til at gå videre med det. Men du skal lige svare mig, så jeg kan sende pointene til dig.
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.