--- title: "Fel i förhandsgranskningen." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/75135-fel-i-förhandsgranskningen" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "sthlmkillen88" published: "2003-04-26T18:44:44.000Z" updated: "2003-04-26T19:23:06.000Z" replies: 3 views: 190 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/75135-fel-i-förhandsgranskningen" --- # Fel i förhandsgranskningen. ## #1 — sthlmkillen88, 2003-04-26T18:44Z När man förhandgranskar i sektionen guider eller artiklar när man har skrivit en guide eller artikel så blir det inga \. Dock när man har skickat in (sparat) guiden eller artikel så visas den rätt. Kolla på under guider eller artiklar om ni vill testa själva. Testa med en text med enter i. Så här är koden för den sidan: Förklara gärna tydligt så att jag fattar för jag är inget proffs på .asp. ``` <%@LANGUAGE="VBSCRIPT"%> <% '## Kod för att skicka vidare till preview-sidan If Request.Form("save") = "true" AND Request.Form("skribent") <> "" AND Request.Form("typ") <> "" AND Request.Form("titel") <> "" AND Request.Form("text") <> "" THEN Session("skribent") = Request("skribent") Session("epost") = Request("epost") Session("typ") = Request("typ") Session("titel") = Request("titel") Session("text") = Request("text") Response.Redirect "recension_skriv.asp?preview=yes" End If '## Kod för att spara skiten i databasen If Request.Querystring("sparas") = "japp" then Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_Connection_STRING Recordset1.Source = "SELECT * FROM recensioner WHERE id=0" Recordset1.CursorType = 1 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 Recordset1.AddNew Recordset1("titel") = Session("titel") Recordset1("skribent") = Session("skribent") Recordset1("typ") = Int(Session("typ")) Recordset1("text") = Replace(Session("text"), vbCrLf, "
") Recordset1("datum") = Now() Recordset1("status") = 0 Recordset1("epost") = Session("epost") Recordset1.Update Session("skribent") = "" Session("typ") = "" Session("epost") = "" Session("titel") = "" Session("text") = "" Recordset1.Close() Set Recordset1 = Nothing Response.Redirect "recension.asp" End If %> Snabbstart
<%End if%>
Välj altenativ » Läs guider | Skriv guide
<%If not Request("preview")="yes" then%>
Skriv en recension
<%Else%>
Ditt namn " id="skribent" size="50">
E-post " size="50">
   
Typ
Titel " size="50" maxlength="150">
Text
   
 
  
Förhandsgranskning
<% Response.write Session("titel") %> Skribent: <% Response.write Session("skribent") %>

<% Response.write Session("text") %>

 
SPARA | ÄNDRA
``` Permalänk: https://www.webforum.nu/p/75135 ## #2 — @nders, 2003-04-26T18:49Z Du gör ju bara ersättningen till \ när du lagrar datat (det bör du alltid göra när du visar det som finns i databasen dock). Det innebär, att det bara är vanliga radbrytningar när du ska visa det på förhandsgranskningen. Ändra: ``` <% Response.write Session("text") %> ``` till ``` <% Response.write Replace(Session("text"), vbCrLf, "
") %> ``` Mvh Permalänk: https://www.webforum.nu/p/1025681 ## #3 — sthlmkillen88, 2003-04-26T19:22Z Tack som FAAN :) Funka perfa! Permalänk: https://www.webforum.nu/p/1025707 ## #4 — @nders, 2003-04-26T19:23Z Varsågod. :) Mvh Permalänk: https://www.webforum.nu/p/1025708 --- Tråden på webben: https://www.webforum.nu/amne/asp/75135-fel-i-förhandsgranskningen