Heysa!
Jeg har et problem - ellers havde jeg jo nok heller ikke skrevet
her, vel?
Ihvertfald så ligger landet sådan her:
Jeg har lavet en søgefunktion - rimeligt primitiv - men dog en
søge funktion og - tada! - den virker ikke! :)
Selve SQL sætningen ser egentligt rigtig ud:
SELECT billedsti, informationer FROM Design WHERE informationer
like '898'
(Jeg har også prøvet uden ' ' omkring 898)
og alligevel, "påstår" 'puteren jeg har ramt EOF... Hvorfor?
Jeg _ved_ der er min. en post der svarer til den nævnte
forespørgsel, (der står f.eks. MB00898 i informationsfeltet...)
og alligevel det her... Any thoughts?
Her er mit script, med et par debugging Resp.Writes her og der...
:)
Del 1: Data_Start.ASP
<html>
<head>
<title>LG BESLAG</title>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
<link rel="stylesheet" href="/styles/lgstyle.css">
</head>
<body bgcolor="#FFFFFF">
<table width="555" border="0" cellspacing="0" cellpadding="0"
height="500" align="center" vspace="0" hspace="0">
<tr align="center" valign="top">
<td width=" " height="305"> <span class="path"> </span>
<table width="100%" border="0">
<tr valign="top">
<td height="30"><span class="path"><span
class="path">><A HREF="../prodbot.asp"
style="text-decoration:none"
STYLE="color:#999999">produkter</A>>køkkenbeslag</span><br>
<hr size="1" noshade>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0"
cellpadding="0"><TR>
<h1>LG BESLAG søgemaskine DATA TEST</h1>
<p>Vælg en side at søge på:
<form action="data.asp" method="post" name="Soeg">
<select name="sel">
<option value="Antik">Antik</option>
<option value="Bad">Bad</option>
<option value="Bygning">Bygning</option>
<OPTION value="Design">Design</OPTION>
<option value="Entre">Entre</option>
<OPTION value="Greb1">Greb1</option>
<option value="Greb2">Greb2</option>
<option value="Greb3">Greb3</option>
<option value="Greb4">Greb4</option>
<option value="Union">Greb5</option>
<option value="intdesign">Intdesign</option>
<option value="stue">Stue</option>
</select>
<input name="vaerdi">
<input type="submit" value="Søg!">
</form>
<% Response.Write(request.form("sel"))
Response.Write(request.form("vaerdi"))%>
</body>
</html>
Del 2 Data.ASP:
<html>
<head>
<title>LG BESLAG</title>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
<link rel="stylesheet" href="/styles/lgstyle.css">
</head>
<body bgcolor="#FFFFFF">
<table width="555" border="0" cellspacing="0" cellpadding="0"
height="500" align="center" vspace="0" hspace="0">
<tr align="center" valign="top">
<td width=" " height="305"> <span class="path"> </span>
<table width="100%" border="0">
<tr valign="top">
<td height="30"><span class="path"><span
class="path">><A HREF="../prodbot.asp"
style="text-decoration:none"
STYLE="color:#999999">produkter</A>>køkkenbeslag</span><br>
<hr size="1" noshade>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0"
cellpadding="0"><TR>
<!--#include virtual="/anon/script.txt" -->
<%
Response.Write(request.form("sel"))
Response.Write(request.form("vaerdi"))
%>
<%
Dim Conn, DSN, SQL, RS, strKategori
Set Conn = Server.CreateObject("ADODB.Connection")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("lgbeslag_database.mdb")
Conn.Open DSN
SQL = "SELECT billedsti, informationer FROM " &
request.form("sel") & " WHERE informationer like " &
request.form("vaerdi") & ""
Set RS = Conn.Execute(SQL)
count = 0
Response.Write("1")
Do
Response.Write("2")
count = count + 1
%>
<p align="left">
<%=count%>)
</p>
<%
response.write ("<br>")
response.write ("<br>")
strInformationer = rs("informationer")
strBilledsti = rs("billedsti")
Response.Write ("<IMG SRC='")
Response.Write strBilledsti
Response.Write ("' align=""CENTER"" valign=""CENTER""
border=""0"" onclick='printbillede(this,""")
Response.Write strBilledsti
Response.Write ("""")
Response.Write (",")
Response.Write ("""")
Response.Write strInformationer
Response.Write ("""")
Response.Write (");' style=""cursor:hand;"">")
Response.Write ("<span class=""picturetext"" align=""CENTER""
valign=""CENTER""><br>")
Response.Write ("<P>")
Response.Write strInformationer
Response.Write ("</P>")
Response.Write ("</SPAN>")
Response.Write ("<HR SIZE='1' NOSHADE>")
Response.Write VbCrLf
Response.Write("3")
%><br>
<%
RS.MoveNext
Loop While Not rs.EOF
RS.close
set RS = nothing
Conn.close
set Conn = nothing
response.write("<p align=""left"">")
response.write("<a href='data.asp'>Søg igen</a>")
response.write("</p>")
%>
<tr align="left" valign="top" class="adresse">
<td " "><!--#include virtual="/lginclude/footer.inc" -->
</td>
</tr>
</table>
</body>
</html>
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials