Fel i förhandsgranskningen.

sthlmkillen88Medlem sedan jan. 2003141 inlägg

Frågan26 apr. 2003 18:44#1

När man förhandgranskar i sektionen guider eller artiklar när man har skrivit en guide eller artikel så blir det inga <br>. Dock när man har skickat in (sparat) guiden eller artikel så visas den rätt.

Kolla på http://www.snabbstart.com 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"%>
<!--#include file="Connections/Connection.asp" -->
<%
'## 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, "<br>")
		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
%>
<html>
<head>
<title>Snabbstart</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="Textmall.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
  <table width="502" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
    <!--DWLayoutTable-->
    <tr> 
      <td width="500" height="16" valign="top"><div align="left"><font size="3"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">V&auml;lj 
          altenativ<b>&nbsp;</b>&raquo; <strong><a href="recension.asp">L&auml;s 
          guider</a> | <a href="recension_skriv.asp">Skriv guide</a></strong></font></strong></font></div></td>
    </tr>
    <tr> 
      <td height="34" valign="top"><img src="recenbild.gif" width="500" height="34"></td>
    </tr>
    <tr> 
      <td height="18" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
		  <%If not Request("preview")="yes" then%>
          <tr> 
            <td height="18" valign="top" bgcolor="#E7E3E7"><strong>Skriv
                en recension</strong></td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td height="1"></td>
    </tr>
    <tr> 
      <td height="150" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="500" height="147" valign="top"><form name="form1" method="post" action="recension_skriv.asp">
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <!--DWLayoutTable-->
                  <tr> 
                    <td>Ditt namn</td>
                    <td><input name="skribent" type="text" value="<%=Session("skribent")%>" id="skribent" size="50"></td>
                  </tr>
                  <tr> 
                    <td>E-post</td>
                    <td><input name="epost" type="text" id="epost" value="<%=Session("epost")%>" size="50"></td>
                  </tr>
                  <tr> 
                    <td height="5">&nbsp;</td>
                    <td height="5">&nbsp;</td>
                  </tr>
                  <tr> 
                    <td>Typ</td>
                    <td><select name="typ" id="typ">
                        <option value="1">Datorrelaterat</option>
                        <option value="2">Hemsiderelaterat</option>
                        <option value="3">&Ouml;vrigt</option>
                      </select></td>
                  </tr>
                  <tr> 
                    <td>Titel</td>
                    <td><input name="titel" type="text" id="titel" value="<%=Session("titel")%>" size="50" maxlength="150"></td>
                  </tr>
                  <tr> 
                    <td>Text</td>
                    <td><textarea name="text" cols="50" rows="10" id="namn3"><%=Session("text")%></textarea> 
                    </td>
                  </tr>
                  <tr> 
                    <td>&nbsp;</td>
                    <td>&nbsp;</td>
                  </tr>
                  <tr> 
                    <td>&nbsp;</td>
                    <td><input name="save" type="hidden" id="save" value="true"> 
                      <input type="submit" name="Submit" value="Spara"></td>
                  </tr>
                </table>
            </form></td>
          </tr>
          <tr> 
            <td height="3">&nbsp;&nbsp;</td>
          </tr>
		  <%Else%>
		  <tr>
            <td height="18" valign="top"><font face="Verdana"><strong>Förhandsgranskning</strong></font></td>
          </tr>
		  <td height="18" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="347" height="18" valign="middle" bgcolor="#E7E3E7"><strong>
            <% Response.write Session("titel") %></strong></td>
            <td width="153" valign="middle" bgcolor="#E7E3E7">
<strong>Skribent: </strong>
<% Response.write Session("skribent") %>
</td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td height="1"></td>
    </tr>
    <tr> 
      <td height="150" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                <!--DWLayoutTable-->
                <tr> 
                  <td width="500" height="147" valign="top"><p> 
                      <% Response.write Session("text") %>
                    </p></td>
                </tr>
                <tr> 
                  <td height="3"></td>
                </tr>
                <tr> 
                  <td height="3" bgcolor="#E7E3E7"><!--DWLayoutEmptyCell-->&nbsp;</td>
                </tr>
                <tr>
                  <td height="20" bgcolor="FFFFFF"><strong><a href="recension_skriv.asp?sparas=japp">SPARA</a> 
                    | <a href="recension_skriv.asp">&Auml;NDRA</a></strong></td>
                </tr>
              </table></td>
        </table></td>
    </tr>
	<%End if%>
  </table>
</div>
</body>
</html>

@ndersMedlem sedan juni 200032 967 inlägg

26 apr. 2003 18:49#2

Du gör ju bara ersättningen till <br> 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, "<br>") %>

Mvh

sthlmkillen88Medlem sedan jan. 2003141 inlägg

26 apr. 2003 19:22#3

Tack som FAAN :) Funka perfa!

@ndersMedlem sedan juni 200032 967 inlägg

26 apr. 2003 19:23#4

Varsågod. :)

Mvh