---
title: "hmmmm"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/56951-hmmmm"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "icaaq"
published: "2002-10-24T09:27:03.000Z"
updated: "2002-10-24T10:05:01.000Z"
replies: 7
views: 212
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/56951-hmmmm"
---

# hmmmm

## #1 — icaaq, 2002-10-24T09:27Z

Jag får inte till det.....jag har denna

```
[red]
strSQL = "SELECT Distinct(f_department) FROM t_user"
			Set objRS = objCon.Execute(strSQL)
				If Len(objRS("f_department")&"") =<  1 Then
					bolShow = False
				Else
					bolShow = True
					arrDep = objRS.GetRows
				End If
[/red]
```

Jag vill att om jag inte får ut några poster så ska bolShow vara FALSE annars ska det vara TRUE, hur ska jag göra ?

mvh icaaq

Permalänk: https://www.webforum.nu/p/56951

## #2 — icaaq, 2002-10-24T09:28Z

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

Permalänk: https://www.webforum.nu/p/834146

## #3 — @nders, 2002-10-24T09:28Z

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

Permalänk: https://www.webforum.nu/p/834147

## #4 — icaaq, 2002-10-24T09:38Z

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]
```

Permalänk: https://www.webforum.nu/p/834156

## #5 — @nders, 2002-10-24T09:41Z

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,

Permalänk: https://www.webforum.nu/p/834158

## #6 — icaaq, 2002-10-24T09:46Z

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

Permalänk: https://www.webforum.nu/p/834161

## #7 — icaaq, 2002-10-24T09:59Z

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

Permalänk: https://www.webforum.nu/p/834166

## #8 — icaaq, 2002-10-24T10:05Z

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]
```

Permalänk: https://www.webforum.nu/p/834170

---

Tråden på webben: https://www.webforum.nu/amne/asp/56951-hmmmm