Sök i databas — webForum

BjMedlem sedan sep. 2000314 inlägg

Frågan13 nov. 2000 12:39#1

Har kommit på ett nytt problem som jag inte lyckats lösa när det gäller databasen. Det består i att om någon lämnar sökrutan helt tom och klicka på "sök" så hämtar databasen HELA klabbet med bilder och allt. Just nu består databasen av 350 poster med bilder och kommer att växa i framtiden. Det kommer alltså att bli en tung nedladdning man utsätter besökaren för.
Hur skall jag begränsa detta? Testade med Java-script så att man var tvungen att skriva ngt i formulärrutan men detta var ett dåligt alternativ då man i så fall skulle vara tvungen att skriva något i BÅDE "svenskt namn" och "latinsk namn".
Det vore kanske bättre att besökare endast söker i EN ruta, vare sig de skriver svenskt eller latinskt namn.
Men hur gör jag då i nedastående script för att det skall funka?

<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "DSN=mindatabas;UID=;PWD="

If Request.Form("knapp") = "Svenskt namn" Then
SQL = "SELECT * From tblskotsel WHERE fldsvnamn like '%" & Request.Form("svnamn") & "%'"
End If
If Request.Form("knapp") = "Latinskt namn" Then
SQL = "SELECT * From tblskotsel WHERE fldlatnamn like '%" & Request.Form("latnamn") & "%'"
End If

rs.Open SQL, MinCon
%>

<TABLE BORDER = 0 style="font-family: Verdana; font-size: 10pt">
<%
Do While Not rs.EOF
%>
<TR>
<TD><img src="<%=rs("artID")%>.jpg"></td>
<TD valign="top"><table border="0" width="100%" style="font-family: Verdana; font-size: 10pt">
<tr>
<td width="100%"><B>Svenskt Namn</B><BR><%=rs("fldsvnamn")%></td>
</tr>

    \<tr\>
      \<td width="100%"\>\<B\>Latinskt namn\</B\>\<BR\>\<%=rs("fldlatnamn")%\>\</td\>
    \</tr\>

    \<tr\>
      \<td width="100%"\>\<B\>Placering\</B\>\<BR\>\<%=rs("fldplacering")%\>\</td\>
    \</tr\>

    \<tr\>
      \<td width="100%"\>\<B\>Vattning\</B\>\<BR\>\<%=rs("fldvattning")%\>\</td\>
    \</tr\>

    \<tr\>
      \<td width="100%"\>\<B\>Gödning\</B\>\<BR\>\<%=rs("fldgodning")%\>\</td\>
    \</tr\>
  \</table\>

</TR>

rs.MoveNext
Loop
%>
</font>
</TABLE>

BrimbaMedlem sedan dec. 19995 875 inlägg

13 nov. 2000 14:04#2

Hej!

Du har några alternativ:

JavaScript

{
	alert("Inget av sökfälten var ifyllda, försök igen.")
	return false
}

else 
{
	return true
}

}
</script>

Eller så gör du det med ASP.

<%
If Request.Form("svnamn") = "" AND Request.Form("latnamn") = "" Then
response.write "noway.."

Else

Set MinCon = Server.CreateObject("ADODB.Connection")
...
...

End If
%>

Lycka till....

------------------
Mvh
Patrik aka Brimba
Brimbas lille ställe

[Redigerat av Brimba den 13 nov 2000]