Problem med If sats och radbrytnings kod

6 svar · 251 visningar · startad av His Divine Shadow 12 nov. 2001

His Divine ShadowMedlem sedan sep. 20004 079 inlägg

Frågan12 nov. 2001 11:36#1

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>

------------------
His Divine Shadow is the most despicable being ever created.(så sade en fan)

Sprit löser inga problem. Men det gör inte mjölk heller.

T-bird 1200; GeForce 256 32MB; WinNT4/XP; 512MB RAM; Dialup

LarsGMedlem sedan dec. 200012 464 inlägg

12 nov. 2001 11:40#2

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

------------------
essentitia preter non sans multiplicandum

icaaqMedlem sedan okt. 20005 273 inlägg

12 nov. 2001 11:41#3

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 :)

------------------
Icaaq, mannen med korven. som hejar på Bajen(!)

His Divine ShadowMedlem sedan sep. 20004 079 inlägg

12 nov. 2001 13:11#4

OK, trodde radbrytningar var onödiga.

------------------
His Divine Shadow is the most despicable being ever created.(så sade en fan)

Sprit löser inga problem. Men det gör inte mjölk heller.

T-bird 1200; GeForce 256 32MB; WinNT4/XP; 512MB RAM; Dialup

His Divine ShadowMedlem sedan sep. 20004 079 inlägg

12 nov. 2001 13:24#5

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>

------------------
His Divine Shadow is the most despicable being ever created.(så sade en fan)

Sprit löser inga problem. Men det gör inte mjölk heller.

T-bird 1200; GeForce 256 32MB; WinNT4/XP; 512MB RAM; Dialup

LarsGMedlem sedan dec. 200012 464 inlägg

12 nov. 2001 13:39#6

Ä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>

------------------
essentitia preter non sans multiplicandum

g33kMedlem sedan okt. 200116 inlägg

12 nov. 2001 14:13#7

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?

------------------
I am not 3vil, I am r00t