Varför skrivs inget ut?!

heter verkligen kolumnerna falt1 och vafritt i databasen?

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

/Mika3l

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.

Ska testa det LarsG! :)

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

/Mika3l

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

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

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.

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?"