hmmmm

Jag är hemskt lessen för den opassande rubriken :r
jag får skylla på att jag är stressad

If objRS.EOF then
    ' inga poster
Else
    ' jippi
End if

Jag får true hela tiden.......fastän jag inte har någon data i fältet f_department

[red]
<%@ Language=VBScript %>
<%
Set objCon = Server.CreateObject("ADODB.Connection") 
			objCon.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&application("connectionString")
			objCon.open
			strSQL = "SELECT Distinct(f_department) FROM t_user"
			Set objRS = objCon.Execute(strSQL)
				If objRS.EOF Then
					bolShow = false
				Else
					bolShow = true
					arrDep = objRS.GetRows
				End If
[/red]

Sen har jag

[red]
If Cbool(bolShow) = true Then
.....
.....
Else
.....
.....
End If
[/red]

Då frågar ju inte efter det. Det finns minst en post i recordsetet verkar det som. Antingen är där ett nullvärde, eller en tom sträng i så fall. Vad är f_department för datatyp? Lägg med villkor i sql-frågan som säger att det du hämtar ut inte får vara null (eller tom sträng om det är ett textfält).

Mvh,

Jag/vi löste det så här

[red]
Set objCon = Server.CreateObject("ADODB.Connection") 
			objCon.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&application("connectionString")
			objCon.open
			strSQL = "SELECT Distinct(f_department) FROM t_user WHERE f_department IS NOT NULL AND NOT f_department = ''"
			Set objRS = objCon.Execute(strSQL)
				If objRS.EOF Then
					bolShow = false
				Else
					bolShow = true
					arrDep = objRS.GetRows
				End I[/red]

Tack

Jag fortsätter väl....vad är fel? jag vill loopa ut allt i arrDep

[red]
Sub depSelect()
%>
	<select name="dep">
	<%
	For i = 0 To Ubound(arrDep, 0)
	Response.Write"<option>"&arrDep(i, 0)&"</option>" &vbCrLf
	Next
	%>
	</select>
	<%
End Sub
[/red]

Fan jag är helt väck i skallen

Fixade så här

[red]
Sub depSelect()
%>
	<select name="dep">
	<%
	For i = 0 To Ubound(arrDep, 2)
	Response.Write"<option>"&arrDep(0, i)&"</option>" &vbCrLf
	Next
	%>
	</select>
	<%
End Sub[/red]