Ingen info

6 svar · 238 visningar · startad av Maggan74 21 nov. 2003

Maggan74Medlem sedan okt. 200355 inlägg

Trådstart21 nov. 2003 14:42#1

Hej och hallå,
En liten undran. Jag har en länk och när man klickar på länken så ska man se information som har blivit inlagt i en tabell. Men om tabellen är tom så vill jag få fram meddelandet att det inte finns någon information. Känns som ett väldigt simpelt fel men jag har provat med hur mycket som helst men får det inte att fungera.
Har den här koden:

Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tblBudget" 
RS.Open SQL, Conn, adOpenStatic, adLockOptimistic

If (RS("Budget" = "")) Then
Response.Write("Inga mål har blivit inlagda")
Response.Write("<a href=""admin.asp"">Tillbaka</a>")
Else

Hittad = False
Do while Not(RS.EOF OR Hittad)
If(strComp(RS("SiteID"),SiteID,vbTextCompare)=0) Then
Hittad = True
Else
RS.MoveNext
End if
Loop

End if

Har även provat med:

If((Request.Form("Budget") = "")OR_
 (Request.Form("Goal") = "")_
 OR(Request.Form("StartDate") = "")OR_
 (Request.Form("SlutDate") = "")_
 OR(Request.Form("SiteID") = ""))Then
osv...

Och:

If((RS("Budget") = "")OR_
 (RS("Goal") = "") _
OR(RS("StartDate") = "")_OR 
(RS("SlutDate") = "") _
OR(RS("SiteID") = ""))Then
osv...

Hjälp. Pls.

@ndersMedlem sedan juni 200032 967 inlägg

21 nov. 2003 14:46#2

If RS.EOF then
     ' Recordsetet är tomt
Else
     ' Gör allt du vill
End if

Mvh

LarsGMedlem sedan dec. 200012 464 inlägg

21 nov. 2003 14:57#3

Flyttas från SQL

Maggan74Medlem sedan okt. 200355 inlägg

21 nov. 2003 15:03#4

Och då får jag felet:
"Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post."
Det går trögt med tankeverksamheten idag...

@ndersMedlem sedan juni 200032 967 inlägg

21 nov. 2003 15:07#5

Du ska endast använda värden från ditt recordset inne i ELSE-delen i if-satsen i mitt exempel.

Mvh

Maggan74Medlem sedan okt. 200355 inlägg

21 nov. 2003 15:19#6

Det gör jag fast jag använder två if-satser... Så här:

If RS.EOF then
    Response.Write("Inga mål har blivit inlagda")
	Response.Write("<a href=""admin.asp"">Tillbaka</a>")
Else
Hittad = False
Do while Not(RS.EOF OR Hittad)
If(strComp(RS("SiteID"),SiteID,vbTextCompare)=0) Then
Hittad = True
Else
RS.MoveNext
End if
Loop
End if

Maggan74Medlem sedan okt. 200355 inlägg

21 nov. 2003 15:22#7

Eller nej vänta... Det ser ut som jag fixade till det. La till koden på fel ställe....

Tack för hjälpen.