Linjeskift på det jeg søger i min DB
Hej!Jeg ville meget gerne, hvis der var en, der kunne hjælpe mig med at lave linjeskift, når jeg søger nogle opskrifter fra min DB. Koderne har jeg indsat nedenfor med forklaring.
Første fil er hvor jeg sætter min søgefunktion ind;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Systematics køkken</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
@import url("systematic.css");
-->
</style>
<style>
BODY { SCROLLBAR-FACE-COLOR: #ffffff;
SCROLLBAR-HIGHLIGHT-COLOR: #ff0000;
SCROLLBAR-SHADOW-COLOR: #cccccc;
SCROLLBAR-3DLIGHT-COLOR: #DFDFDF;
SCROLLBAR-ARROW-COLOR: #ff0000;
SCROLLBAR-TRACK-COLOR: #ffffff;
SCROLLBAR-DARKSHADOW-COLOR: #ffffff
}
</style>
</head>
<body class="overskrifter">
<table width="680" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="80"><img src="grafik/trans.gif" width="80" height="30" border="0"></td>
<td colspan="2"></td>
</tr>
<tr>
<td></td>
<td width="240" valign="top" class="overskrifter"><table width="93%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="grafik/overskrifter/opskrifter.gif" width="240" height="24"></td>
</tr>
<tr>
<td><img src="grafik/trans.gif" width="6" height="15"></td>
</tr>
</table></td>
<td width="360" valign="top" class="overskrifter"><form name="form1" method="post" action="search.asp">
<div align="right">
<input type="text" name="Keyword" size="30">
<input type="submit" value="søg opskrift" name="Action">
</div>
</form></td>
</tr>
<tr>
<td></td>
<td colspan="2" valign="top" class="broedtxt"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <span class="overskrifter">
<%
' 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("../Systematic/users.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from opskrifter order by ID desc"
' Udfør forespørgsel (objRec indeholder nu resultatet)
Set objRec = Conn.Execute(strSQL)
do while not objRec.eof
comment = Replace(objrec("text"), vbCrLf, "<BR>")
response.write "<table border=""1"" bordercolor=""#cccccc"" width=""585"" cellpadding=""4"" cellspacing=""1""><tr><td bordercolor=""#cccccc"">"
response.write "<table width=""585"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr class=""broedtxt"">"
response.write "<span class=""mellemoverskrift"">" & objrec("nick") & "</span>"
response.write "</td><td align=""right"" background=""system/td_back.gif"">"
response.write "</td></tr>"
response.write "<tr><td colspan=""2"">"
response.write "<table class=""broedtxt"" cellpadding=""0"" cellspacing=""0"" width=""100%""><tr><td>"
response.write comment
response.write "</td></tr></table>"
response.write "</td></tr>"
response.write "<tr class=""datotidDB""><td background=""system/td_back2.gif"">"
response.write "date: " & objrec("dato")
response.write "</td><td align=""right"" background=""system/td_back2.gif"">"
response.write "time: " & objrec("tid")
response.write "</td></tr></table>"
response.write "</td></tr></table>"
response.write "<br><br>"
objRec.movenext
loop
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</span> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
Anden fil er min søgefunktion, som jeg kalder i første fil;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Systematics homekitchen</title>
<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 type="text/css">
<!--
@import url("systematic.css");
-->
</style>
<style>
BODY { SCROLLBAR-FACE-COLOR: #ffffff;
SCROLLBAR-HIGHLIGHT-COLOR: #ff0000;
SCROLLBAR-SHADOW-COLOR: #cccccc;
SCROLLBAR-3DLIGHT-COLOR: #DFDFDF;
SCROLLBAR-ARROW-COLOR: #ff0000;
SCROLLBAR-TRACK-COLOR: #ffffff;
SCROLLBAR-DARKSHADOW-COLOR: #ffffff
}
</style>
</head>
<body class="broedtxt">
<table width="680" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="80"><img src="grafik/trans.gif" width="80" height="30" border="0"></td>
<td colspan="4"></td>
</tr>
<tr>
<td></td>
<td width="12" valign="top" class="overskrifter"><span class="administration"><a href="opskrifter.asp" onFocus="this.blur()" target="_self"><img src="grafik/trekant_tilbage.gif" width="12" height="17" border="0"></a></span></td>
<td width="11" valign="top" class="overskrifter"><span class="administration"><img src="grafik/trans.gif" width="10" height="6"></span></td>
<td width="577" valign="top" class="overskrifter">Søgeresultat af Opskrifter<br>
<img src="grafik/trans.gif" width="6" height="20"> </td>
</tr>
<tr>
<td></td>
<td colspan="4" valign="top" class="broedtxt"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <br> <%
' Henter værdien fra opskrifter.asp
strKeyword = Trim(Request.Form("Keyword"))
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 FROM opskrifter WHERE"
strSQL = strSQL & " (nick LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (text LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (dato LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (tid LIKE '%" & strKeyword & "%')"
' Skaber DSNLess forbindelse til DB'en
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("users.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=1>"
Do While Not rs.EOF
response.write "<table border=""1"" bordercolor=""#cccccc"" width=""585"" cellpadding=""4"" cellspacing=""1""><tr><td bordercolor=""#cccccc"">"
response.write "<table width=""585"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr class=""broedtxt"">"
response.write "<span class=""mellemoverskrift"">" & rs("nick") & "</span>"
response.write "</td><td align=""right"" background=""system/td_back.gif"">"
response.write "</td></tr>"
response.write "<tr><td colspan=""2"">"
response.write "<table class=""broedtxt"" cellpadding=""0"" cellspacing=""0"" width=""100%""><tr><td>"
response.write "<span class=""broedtxt"">" & rs("text") & "</span>"
response.write "</td></tr></table>"
response.write "</td></tr>"
response.write "<tr class=""datotidDB""><td background=""system/td_back2.gif"">"
response.write "date: " & rs("dato")
response.write "</td><td align=""right"" background=""system/td_back2.gif"">"
response.write "time: " & rs("tid")
response.write "</td></tr></table>"
response.write "</td></tr></table>"
response.write "<br><br>"
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
%> <br> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
Hilsen Dolly
