---
title: "Problem med If sats och radbrytnings kod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12601-problem-med-if-sats-och-radbrytnings-kod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "His Divine Shadow"
published: "2001-11-12T11:36:00.000Z"
updated: "2001-11-12T14:13:00.000Z"
replies: 6
views: 280
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/12601-problem-med-if-sats-och-radbrytnings-kod"
---

# Problem med If sats och radbrytnings kod

## #1 — His Divine Shadow, 2001-11-12T11:36Z

OK,, detta har jag för att fixa radbrytningar i text som hämtas från en databas:

```
Function Radbryt(rfix)

rfix = Replace(rfix, vbCrLf, "<br>")
Radbryt = rfix

end Function
```

Här är if koden jag använder:

```
<font face="Verdana" size="2"><%IF not RS_prod("Foretag") = "" THEN%> <%ELSE%> <%=radbryt(RS_prod("Foretag"))%><%end if%></font><br><br>
```

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

## #2 — LarsG, 2001-11-12T11:40Z

```
<font face="Verdana" size="2">
<%IF RS_prod("Foretag") <> "" THEN%> 
<%=radbryt(RS_prod("Foretag"))%>
<%end if%></font><br><br>
```

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

## #3 — icaaq, 2001-11-12T11:41Z

Står allt detta på samma rad:

```
<font face="Verdana" size="2"><%IF not RS_prod("Foretag") = "" THEN%> <%ELSE%> <%=radbryt(RS_prod("Foretag"))%><%end if%></font><br><br>
```

om det gör det så blir det fel...
om en If-sats bara innehåller ett argument så kan man skriva på en rad annars behövs två eller flera :)

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

## #4 — His Divine Shadow, 2001-11-12T13:11Z

OK, trodde radbrytningar var onödiga.

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

## #5 — His Divine Shadow, 2001-11-12T13:24Z

Funkar fortfarande inte, här är ett större extrakt:

```
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\data\WebData\katalog.mdb"
SQL = "SELECT * FROM Kat WHERE ID = " & Request.QueryString("ID") & ""
Set RS_prod = Conn.Execute(SQL)

Function Radbryt(rfix)

rfix = Replace(rfix, vbCrLf, "<br>")
Radbryt = rfix

end Function
%>
<html>

	<head>
		<meta name="generator" content="Adobe GoLive 4">
		<title>Welcome to Adobe GoLive 4</title>
	</head>
			<%Do Until RS_prod.EOF%>
	<body bgcolor="white">
		<table border="0" cellpadding="0" cellspacing="2" width="100%">
			<tr>
				<td width=40%><font face="Verdana" size="2">[ <a href="javascript:window.print()">Skriv ut</a> ] </font><br><br>
					<font face="Verdana" size="2"><b><%=RS_prod("Namn")%></b></font><br><br>
					<font face="Verdana" size="2">
					<%=RS_prod("Naradress")%><br>
					<%=RS_prod("Postnr")%>&nbsp;<%=RS_prod("Ort")%><br>
					Telefon:&nbsp;&nbsp;<%=RS_prod("Tel")%><br>
					Telefax:&nbsp;&nbsp;<%=RS_prod("Fax")%><br>
					E-post:&nbsp;&nbsp;&nbsp;<a href=mailto:<%=RS_prod("Epost")%>><%=RS_prod("Epost")%></a><br>
					Hemsida:&nbsp;<a href="<%=RS_prod("www")%>"><%=RS_prod("www")%></a><br><br>
					Ämmnesområde:&nbsp;&nbsp;<%=RS_prod("Amnesomrade")%><br>
					</font>
				</td>
				<td align="left"><img src="../images/<%=RS_Prod("Username")%>/<%=RS_prod("filename")%>"></td>
			</tr>
			<tr>
				<td colspan="2"><br><br>
				
				<b>Företaget:</b><br>
<font face="Verdana" size="2">
<%IF RS_prod("Foretag") <> "" THEN%> 
<%=radbryt(RS_prod("Foretag"))%>
<%end if%></font><br><br>
				
				<b>Affärside:</b><br>
<font face="Verdana" size="2">
<%IF RS_prod("Affarside") <> "" THEN%> 
<%=radbryt(RS_prod("Affarside"))%>
<%end if%></font><br><br>
				
				<b>Produkter:</b><br>
<font face="Verdana" size="2">
<%IF RS_prod("Produkter") <> "" THEN%> 
<%=radbryt(RS_prod("Produkter"))%>
<%end if%></font><br><br>
				 
				<b>Målgrupper:</b><br>
<font face="Verdana" size="2">
<%IF RS_prod("Malgrupp") <> "" THEN%> 
<%=radbryt(RS_prod("Malgrupp"))%>
<%end if%></font><br><br>
				
		        <b>Övrig Information:</b><br>
<font face="Verdana" size="2">
<%IF RS_prod("Ovrigt_swe") <> "" THEN%> 
<%=radbryt(RS_prod("Ovrigt_swe"))%>
<%end if%></font><br><br>
```

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

## #6 — LarsG, 2001-11-12T13:39Z

Är det ett null-värde i databasen?

```
<%IF not isnull(RS_prod("Foretag")) and RS_prod("Foretag") <> "" THEN%> 
<%=radbryt(RS_prod("Foretag"))%>
<%end if%></font><br><br>
```

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

## #7 — g33k, 2001-11-12T14:13Z

icaaq: du skrev
\-"om det gör det så blir det fel...
om en If-sats bara innehåller ett argument så kan man skriva på en rad annars behövs två eller flera"

Det stämmer inte, en if sats med flera argument kan skrivas på en rad, det är inte det som är fel med koden.

Och till His Divine Shadow har jag också en fråga.

Vad får du för felmeddelande?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12601-problem-med-if-sats-och-radbrytnings-kod