---
title: "Varför skrivs inget ut?!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/40419-varför-skrivs-inget-ut"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Mika3l"
published: "2002-03-27T16:05:44.000Z"
updated: "2002-03-27T21:31:52.000Z"
replies: 8
views: 265
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/40419-varför-skrivs-inget-ut"
---

# Varför skrivs inget ut?!

## #1 — Mika3l, 2002-03-27T16:05Z

Usch, blir snart stölli! x( 

Jag ska skriva ut ett fält(memo) från min Accessdatabas men det skriver inte ut någonting!
Skriver \<%=rs("frittfalt")%\> men det skriver inte ut någonting, men andra värden som inte är memo skrivs ut!
Har två memofält som inte skrivs ut...
Knepigt eller knepigt?

(bantad kod)

```
'Databaskoppling och ditt och datt...
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM minTabell WHERE user = '" & Session("user") & "'"
rs.Open SQL, Connection
Response.Write rs("falt1") '[blue]Text[/blue]
Response.Write"<br>"
Response.Write rs("frittfalt") '[blue]Memo[/blue]
rs.Close
Set rs = Nothing
```

Tacksam för lite hjälp på detta konstiga fel!

/Mika3l

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

## #2 — erka, 2002-03-27T16:09Z

heter verkligen kolumnerna falt1 och vafritt i databasen?

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

## #3 — Mika3l, 2002-03-27T16:20Z

Nej, jag har många fält i databasen, frittfalt stammer, men inte falt1, det symboliserar alla andra fält. ;)

/Mika3l

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

## #4 — LarsG, 2002-03-27T17:33Z

I din select-sats så måste memo-fälten ligga sist. Om du har flera memo-fält så måste de ligga i samma ordning som de är definierade i tabellen. Dvs

```
query = "select aleb,bleb,memofield1,memofield2 from ogrish"
```

Även när du hämtar från recordsetet så skall du ta dom i den ordningen. Om det inte är allt för mycket data så är det bäst att lägga det i en lokal variabel.

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

## #5 — Mika3l, 2002-03-27T19:00Z

Ska testa det LarsG! :)

Visste inte att ASP var så noga med hur man hämtade datat... :l :stud

/Mika3l

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

## #6 — Mika3l, 2002-03-27T19:14Z

AAAHH!
Det fungerade inte! :(  x( 

Det skrivs inte ut någonting!
Inte ens textaren visas!

Skickar hela koden(ganska mycket, ganska rörig)!

```
<% ElseIf Request.QueryString("page") = "admin" Then
mall = Trim(Request.QueryString("mall"))
Set rs = Server.CreateObject("ADODB.Recordset")
Select Case mall
Case "1"
SQL = "SELECT SID, user, bgcolor, rubrik, rubfarg, rubfont, rubstorlek, bildtdfarg, bildurl, vtexttdfarg, vtexttextfarg, lanktdfarg, lankfarg, lankfont, adress1, lanktext1, adress2, lanktext2, adress3, lanktext3, adress4, lanktext4, adress5, lanktext5, frittfalttdfarg, frittfalttextfarg, vtext, frittfalt FROM mall1 WHERE user = '" & Session("user") & "'"
rs.Open SQL, Connection
Dim vtext
vtext = rs("vtext")
Dim frittfalt
frittfalt = rs("frittfalt")
%>

<center>
Bakgrundsfärg:
<select name="bgcolor">
<option value=""> --- Ny färg --- </option>
<!-- #Include file="farger.inc" -->
</select>
&nbsp;&nbsp;&nbsp;
Gammal färg: <font style="background: <%=rs("bgcolor")%>; border: 1px solid #000000;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>
<br><br>
<% If rs("rubrik") <> "" Then %>
<center><font class="blacktext" size="12px"><%=rs("rubrik")%></font><br>(Rubrikens färg: <select name="rubfarg"><option value=""> --- Ny färg --- </option><!-- #Include file="farger.inc" --></select>&nbsp;&nbsp;&nbsp;Gammal färg: <font style="background: <%=rs("rubfarg")%>; border: 1px solid #000000;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>
&nbsp;&nbsp;&nbsp;Teckensnitt: <select name="rubfont">
<% If rs("rubfont") = "Verdana" Then versel = "SELECTED" Else versel = "" End If %><option value="Verdana" style="font-family: Verdana;" <%=versel%>>Verdana</option>
<% If rs("rubfont") = "Arial" Then arisel = "SELECTED" Else arisel = "" End If %><option value="Arial" style="font-family: Arial;" <%=arisel%>>Arial</option>
<% If rs("rubfont") = "Helvetica" Then helsel = "SELECTED" Else helsel = "" End If %><option value="Helvetica" style="font-family: Helvetica;" <%=helsel%>>Helvetica</option>
<% If rs("rubfont") = "MS Sans Seriff" Then sansel = "SELECTED" Else sansel = "" End If %><option value="MS Sans Seriff" style="font-family: MS Sans Seriff;" <%=sansel%>>MS Sans Seriff</option>
</select>&nbsp;&nbsp;&nbsp;Storlek: <input type="text" name="rubstorlek" value="<%=rs("rubstorlek")%>" maxlegth="2" size="2">)</font></center><br>
<% End If %>

<table align="center" cellpadding="2">
 <tr valign="top">
  <td width="300">
<% If NOT rs("bildurl") = "http://" OR rs("bildurl") = "" Then %>
<font class="blacktext">
Bakgrundsfärg: <select name="bildtdfarg"><option value=""> --- Ny färg --- </option><!-- #Include file="farger.inc" --></select><br><br>
Gammal färg: <font style="background: <%=rs("bildtdfarg")%>; border: 1px solid #000000;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><br><br>
<img src="<%=rs("bildurl")%>"><br>
<input type="text" name="bildurl" value="<%=rs("bildurl")%>" maxlength="255">
</font>
<% End If %>
  </td>
   <td width="480">
<% If rs("vtext") <> "" Then %>
<font class="blacktext">
Bakgrundsfärg: <select name="vtexttdfarg"><option value=""> --- Ny färg --- </option><!-- #Include file="farger.inc" --></select>
Gammal färg: <font style="background: <%=rs("vtexttdfarg")%>; border: 1px solid #000000;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><br>

Textfärg: <select name="vtexttextfarg"><!-- #Include file="farger.inc" --></select><br><br>
[blue]<textarea name="vtext" rows="17" cols="38"><%=vtext%></textarea>[/blue]

</font>
<% End If %>
  </td>
 </tr>
 <tr valign="top">
  <td width="300">
<% If NOT Request.Form("adress1") = "http://" OR Request.Form("adress1") = "" AND Request.Form("adress2") = "http://" OR Request.Form("adress2") = "" AND Request.Form("adress3") = "http://" OR Request.Form("adress3") = "" AND Request.Form("adress4") = "http://" OR Request.Form("adress4") = "" AND Request.Form("adress5") = "http://" OR Request.Form("adress5") = "" Then %>
<font class="blacktext">
Bakgrundsfärg: <select name="lanktdfarg"><option value=""> --- Ny färg --- </option><!-- #Include file="farger.inc" --></select><br>
Gammal färg: <font style="background: <%=rs("lanktdfarg")%>; border: 1px solid #000000;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><br>
<br><br>
Länkarnas/Länkens färg: <select name="lankfarg"><option value=""> --- Ny färg --- </optoin><!-- #Include file="farger.inc" --></select><br>
Gammal färg: <font style="background: <%=rs("lankfarg")%>; border: 1px solid #000000;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>
<br><br>
Teckensnitt: <select name="lankfont">
<% If rs("lankfont") = "Verdana" Then versel = "SELECTED" Else versel = "" End If %><option value="Verdana" style="font-family: Verdana;" <%=versel%>>Verdana</option>
<% If rs("lankfont") = "Arial" Then arisel = "SELECTED" Else arisel = "" End If %><option value="Arial" style="font-family: Arial;" <%=arisel%>>Arial</option>
<% If rs("lankfont") = "Helvetica" Then helsel = "SELECTED" Else helsel = "" End If %><option value="Helvetica" style="font-family: Helvetica;" <%=helsel%>>Helvetica</option>
<% If rs("lankfont") = "MS Sans Seriff" Then sansel = "SELECTED" Else sansel = "" End If %><option value="MS Sans Seriff" style="font-family: MS Sans Seriff;" <%=sansel%>>MS Sans Seriff</option>
</option>
</select>
</font>
<br><br>
<% End If %>

<font class="blacktext">
Adress 1: <input type="text" name="adress1" maxlenght="255" value="<% If rs("adress1") <> "" Then Response.Write rs("adress1") End If %>"><br>Länktext: <input type="text" name="lanktext1" value="<%=rs("lanktext1")%>" maxlength="150"><br>
Adress 2: <input type="text" name="adress2" maxlength="255" value="<% If rs("adress2") <> "" Then Response.Write rs("adress2") End If %>"><br>Länktext: <input type="text" name="lanktext2" value="<%=rs("lanktext2")%>" maxlength="150"><br>
Adress 3: <input type="text" name="adress3" maxlength="255" value="<% If rs("adress3") <> "" Then Response.Write rs("adress3") End If %>"><br>Länktext: <input type="text" name="lanktext3" value="<%=rs("lanktext3")%>" maxlength="150"><br>
Adress 4: <input type="text" name="adress4" maxlength="255" value="<% If rs("adress4") <> "" Then Response.Write rs("adress4") End If %>"><br>Länktext: <input type="text" name="lanktext4" value="<%=rs("lanktext4")%>" maxlength="150"><br>
Adress 5: <input type="text" name="adress5" maxlength="255" value="<% If rs("adress5") <> "" Then Response.Write rs("adress5") End If %>"><br>Länktext: <input type="text" name="lanktext5" value="<%=rs("lanktext5")%>" maxlength="150"><br>
</font>

  </td>
  <td width="480">
<% If rs("frittfalt") <> "" Then %>
<font class="blacktext">
Bakgrundsfärg: <select name="frittfalttdfarg"><option value=""> --- Ny färg --- </option><!-- #Include file="farger.inc" --></select>
&nbsp&nbsp;&nbsp;
Gammal färg: <font style="background: <%=rs("frittfalttdfarg")%>; border: 1px solid #000000;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><br>
Textfärg: <select name="frittfalttextfarg"><option value=""> --- Ny färg --- </option><!-- #Include file="farger.inc" --></select>
&nbsp;&nbsp;&nbsp;
Gammal färg: <font style="background: <%=rs("frittfalttextfarg")%>; border: 1px solid #000000;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>
<br><br>
[blue]<textarea name="frittfalt" rows="11" cols="38"><%=frittfalt%></textarea>[/blue]
</font>

<% End If %>
  </td>
 </tr>
</table>

  </td>
 </tr>
</table>
<br><br>
<center>
<input type="hidden" name="mall" value="1">
<input type="submit" value="  Vidare  ">
&nbsp;&nbsp;&nbsp;
<input type="reset" value="  Återställ ">
</center>

<%
rs.Close
Set rs = Nothing
%>

<% End Select %>
```

Notera att koden ska byggar ut varav Case satsen.

Hittar du något annat "dåligt" så ifrågasätt gärna det också. ;)

/Mika3l

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

## #7 — leniz, 2002-03-27T20:01Z

Hm...

Är inte så bra på det här men måste man inte skriva typ set rs= databas.execute(sql) för att den verkligen ska utföra något???
Lycka till i vilket fall som helst! :)

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

## #8 — LarsG, 2002-03-27T20:18Z

Om du en gång har plockat ut värdet av ett memofält från RS så försvinner det därifrån.

Alltså, byt ut dessa rader 

```
<% If rs("vtext") <> "" Then %>
'...
<% If rs("frittfalt") <> "" Then %>
```

mot 

```
<% If vtext <> "" Then %>
'...
<% If frittfalt <> "" Then %>
```

**Leniz:**

Det går lika bra med createobject följt av open när det gäller select.

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

## #9 — Mika3l, 2002-03-27T21:31Z

> Om du en gång har plockat ut värdet av ett memofält från RS så försvinner det därifrån.

Hade glömt att byta i dom koderna! :stud  :l 

Nu fungerar det iallafall! :) 

Tack LarsG! \*Bjussar på min cider!\* :bire 

/Mika3l - "Vad vore wF om inte LarsG var här?"

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/40419-varför-skrivs-inget-ut