Hejsan!
Har försökt att gjort något själv för en gångs skull men det vill inte som jag vill, vad är det för fel i denna kodsnutt? Alla variabler är deklarerade.

<% ElseIf Request.QueryString("jobbaMed") = "editTextvilken" Then

Visa = "SELECT * FROM TBL_Texter"

RS.Open Visa, Connect, 3, 3


If Request.QueryString("Text") = "TopLeft" Then

TextEdit = RS("StartsidanTopLeft") AND ExplainText = "<b>Texten överst till vänster på startsidan:</b> (det går bra att använda HTML taggar ex. &lt;b&gt;, &lt;U&gt; och &lt;I&gt;)<br>"

ElseIf Request.QueryString("Text") = "MiddleRight" Then

TextEdit = RS("StartsidanMiddleRight") AND ExplainText = "<b>Texten i mitten till höger på startsidan:</b> (det går bra att använda HTML taggar ex. &lt;b&gt;, &lt;U&gt; och &lt;I&gt;)<br>"

End If

RS.Close
Connect.Close

Set RS=Nothing
Set Connect=Nothing


%>


<%Response.Write "ExplainText" %>

<% response.write replace ("TextEdit"), "<br>", vbCrLF) %>

/Tomas

prova med att ta bort "AND" och istället gör du bara ett rad byte.

TextEdit = RS("StartsidanTopLeft")
ExplainText = "<b>Texten överst till vänster på startsidan:</b> (det går bra att använda HTML taggar ex. <b>, <U> och <I>)<br>"

TextEdit = RS("StartsidanMiddleRight")
ExplainText = "<b>Texten i mitten till höger på startsidan:</b> (det går bra att använda HTML taggar ex. <b>, <U> och <I>)<br>"

Du har även missat en sak på sista raden..

<% response.write replace ("TextEdit"), "<br>", vbCrLF) %>

det ska nog vara:

<% response.write replace(("TextEdit"), "<br>", vbCrLF) %>


det borde fungera nu...

//Danne N

Nu får jag inga felmeddelanden iallafall, men där jag vill att ExplainTexten ska stå står det bara "ExplainText" inte det jag vill alltså ("Texten i mitten till höger på startsidan")
och där jag vill att RS("StartsidanTopLeft") ska stå står det bara TextEdit.

Koden ser nu ut så här:

<% ElseIf Request.QueryString("jobbaMed") = "editTextvilken" Then

Visa = "SELECT * FROM TBL_Texter"

RS.Open Visa, Connect, 3, 3

'Text1 = "Texten överst till vänster på startsidan"
'Text2 = "Texten i mitten till höger på startsidan"

If Request.QueryString("Text") = "TopLeft" Then

TextEdit = RS("StartsidanTopLeft")
ExplainText = "Texten överst till vänster på startsidan"

ElseIf Request.QueryString("Text") = "MiddleRight" Then

TextEdit = RS("StartsidanMiddleRight")
ExplainText = "Texten i mitten till höger på startsidan"

End If

RS.Close
Connect.Close

Set RS=Nothing
Set Connect=Nothing


%>

<%Response.Write ("ExplainText")%>
<br>
<% response.write replace(("TextEdit"), "<br>", vbCrLF) %>

<%Response.Write ("ExplainText")%> skriver ut strängen ExplainText

Skall du skriva ut variablen ExplainText så ta bort dubbelfnuttarna

<%Response.Write (ExplainText)%>

//Putte

Tack, nu funkar det, svårt med dubbel å enkel fnuttar.

/Tomas