Databas

[Patric Johansson]

Jag håller på med ett litet VHS och DVD register och har nu stött på 2 frågor.

Jag håller på med en liten sökmotor till den sidan.

Så här ser min kod ut när den hämtar värden från databasen

 

<%
Set rstemp = Server.CreateObject("ADODB.Recordset")
If visa="alla" Then
Set rstemp = conntemp.Execute("SELECT * FROM Filmer ORDER BY Titel ASC")
ElseIf visa="titel" Then
Set rstemp = conntemp.Execute("SELECT * FROM Filmer WHERE titel LIKE '%" & varde & "%' ORDER BY Titel ASC")
ElseIf visa="artal" Then
Set rstemp = conntemp.Execute("SELECT * FROM Filmer WHERE artal LIKE '%" & varde & "%' ORDER BY Titel ASC")
ElseIf visa="genre" Then
Set rstemp = conntemp.Execute("SELECT * FROM Filmer WHERE genre LIKE '%" & varde & "%' ORDER BY Titel ASC")
End If
%>

Efter det har jag en tabell med överskrifter som titel, årtal och genre.

Sedan så loopar jag ut värdena från databasen i tabellraden, sedan stängs tabellen.

 

Nu till fråga 1.

Om det inte finns något värde att hämta från 3 nedre SELECT satserna så visas tabellen fast utan värde. Hur kan jag göra så att tabellen inte visas och istället skrivs det ut ett meddelande om att det inte finns någon sökträff.

 

Och nu fråga 2.

Hur kan jag göra så att när någon av dom 3 nedre SELECT satserna körs så skrivs det ut hur många träffar som hittades och om det istället är den översta SELECT satsen så visas det hur många filmer det finns totalt i databasen.

 

Vore väldigt tacksam om jag kunde få hjälp med detta!

 

Tack på förhand!

[-OZn-]

 

 

När du loopar igenom som du sa att du gjorde så skapar du först en variabel utanför loopen exempelvis strTraff = "0"

Sen inne i loopen så använder du variabeln strTraff = strTraff + 1

 

När värdet skrivs ut i tabellen så gör du en if sats

if strTraff = "0" then

Response.Write "0 träffar"

else

din tabell

end if

 

 

 

[inlägget ändrat 2002-10-11 15:17:05 av Seeflash]

[Patric Johansson]

Tack så mycket!

 

[-OZn-]

Du kan även använda .EOF för att få fram ett noll värde

 

Alltså om recorsetet är tomt

typ

if rstemp.EOF then

Response.Write "0 träffar"

else

tabell med resultat

end if