webForumDet fria alternativet

Fixa tecken

2 svar · 267 visningar · startad av Korak

KorakMedlem sedan maj 2001133 inlägg
#1

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!

------------------

MVH, Korak
www.eskobar.nu

juventus1Medlem sedan dec. 2000399 inlägg
#2

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>

------------------
mvh André

KorakMedlem sedan maj 2001133 inlägg
#3

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

------------------

MVH, Korak
www.eskobar.nu

134 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
132 ms — hämta tråd, inlägg och bilagor (db)