---
title: "Fixa tecken"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13367-fixa-tecken"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Korak"
published: "2001-12-26T16:19:00.000Z"
updated: "2001-12-26T20:16:00.000Z"
replies: 2
views: 271
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/13367-fixa-tecken"
---

# Fixa tecken

## #1 — Korak, 2001-12-26T16:19Z

Har ett vykorts-script på min sida.
Nu vill jag att meddelandet visas på sidan på samma sätt som det skrivits in i foruläret. 
Dvs. om man gör en radbrytning i foruläret så ska den synas när mottagaren läser sitt vykort.
Jag sökte och hittade ett par exempel på detta (tror jag). Problemet är att jag inte vet hur/var jag ska lägga in det.
Förtsa ex. jag hittade ser ut såhär:

```
Function FormateraTecken(String)
on Error resume next
String = Replace(String, chr(13), "")
String = Replace(String, chr(10) & chr(10), "<br> <br>")
String = Replace(String, chr(10), "<br>")
FormateraTecken = String

End Function
```

Det andra ex. såg ut såhär:

```
<%
	Response.Expires = -1500
	Response.Buffer = True

	Function FixaTecken(str)
	FixaTecken = Replace(str, vbCrLf, "<BR>" & vbCrLf)
	End function
%>
```

Koden för sidan som visar vykortet ser ut såhär:

```
<%
id = Request.QueryString("ID")

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("card.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

	Addera = "Select * From sent WHERE id="&id
	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
		
		epost = RecSet("epost")
		mot_epost = RecSet("mot_epost")
		namn = RecSet("namn")
		mot_namn = RecSet("mot_namn")
		meddelande = RecSet("meddelande")
		bild = RecSet("bild")
	
	RecSet.Close
	Connect.Close
	Set RecSet = nothing
	Set Connect = nothing
%>

      <table width="300" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td colspan="2"><img src="<%=bild%>" width="286" height="330" alt="Eskobar"></td>
        </tr>
        <tr> 
          <td width="49">&nbsp;</td>
          <td width="254"><img src="../bilder/mellanrum.gif" width="1" height="8"></td>
        </tr>
        <tr> 
          <td width="49"><b>Fr&aring;n:</b></td>
          <td width="254"><%=namn%> (<%=epost%> )</td>
        </tr>
        <tr> 
          <td colspan="2" height="4"><img src="/graphics/blank.gif" width="4" height="4"></td>
        </tr>
        <tr> 
          <td width="49"><b>Till:</b></td>
          <td width="254"><%=mot_namn%> (<%=mot_epost%> )</td>
        </tr>
        <tr> 
          <td width="49">&nbsp;</td>
          <td width="254"><img src="../bilder/mellanrum.gif" width="1" height="8"></td>
        </tr>
        <tr> 
          <td colspan="2"><b>Meddelande:</b></td>
        </tr>
        <tr> 
          <td colspan="2" height="4"><img src="/graphics/blank.gif" width="4" height="4"></td>
        </tr>
        <tr> 
          <td colspan="2" height="2"><%=meddelande%></td>
        </tr>
      </table>
      <p><br>
        Skicka ett <a href="vykort.asp?do=steg1"><b>Eget vykort</b></a> eller 
        eller g&ouml;r ett bes&ouml;k p&aring; <a href="../"><b>Eskobar Online</b></a>.</p>
      </td>
  </tr>
```

Är det någonstans på denna sida jag ska lägga in "fixa tecken-kodsnutten" eller är det på formulärsidan?
Mycket tacksam för svar.
Tack på förhand!

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

## #2 — juventus1, 2001-12-26T20:01Z

Hej!

Prova detta

```
<%
id = Request.QueryString("ID")
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("card.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From sent WHERE id="&id
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

epost = RecSet("epost")
mot_epost = RecSet("mot_epost")
namn = RecSet("namn")
mot_namn = RecSet("mot_namn")
meddelande = RecSet("meddelande")
bild = RecSet("bild")

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Function FormateraTecken(String)
on Error resume next
String = Replace(String, chr(13), "")
String = Replace(String, chr(10) & chr(10), "<br> <br>")
String = Replace(String, chr(10), "<br>")
FormateraTecken = String
End Function
%>

<table width="300" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td colspan="2"><img src="<%=bild%>" width="286" height="330" alt="Eskobar"></td>
</tr>
<tr> 
<td width="49"> </td>
<td width="254"><img src="../bilder/mellanrum.gif" width="1" height="8"></td>
</tr>
<tr> 
<td width="49"><b>Från:</b></td>
<td width="254"><%=namn%> (<%=epost%> )</td>
</tr>
<tr> 
<td colspan="2" height="4"><img src="/graphics/blank.gif" width="4" height="4"></td>
</tr>
<tr> 
<td width="49"><b>Till:</b></td>
<td width="254"><%=mot_namn%> (<%=mot_epost%> )</td>
</tr>
<tr> 
<td width="49"> </td>
<td width="254"><img src="../bilder/mellanrum.gif" width="1" height="8"></td>
</tr>
<tr> 
<td colspan="2"><b>Meddelande:</b></td>
</tr>
<tr> 
<td colspan="2" height="4"><img src="/graphics/blank.gif" width="4" height="4"></td>
</tr>
<tr> 
[b]<td colspan="2" height="2"><%=FormateraTecken(meddelande) %></td>[/b]
</tr>
</table>
<p><br>
Skicka ett <a href="vykort.asp?do=steg1"><b>Eget vykort</b></a> eller 
eller gör ett besök på <a href="../"><b>Eskobar Online</b></a>.</p>
</td>
</tr>
```

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

## #3 — Korak, 2001-12-26T20:16Z

Funkade hur bra som helst.
Tack så jättemycket!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13367-fixa-tecken