Replace i hiddenfield - hvordan?
HejJeg har en asp side hvorpå jeg henter noget tekst ud fra min database og lægger det i et hiddenfield. Nu er mit problem at der i den tekst som lægges i hiddenfield nogle gange står f.eks. 15'' TFT skærm, hvilket giver nogle problemer i forhold til min asp kode.
Så er mit spørgsmål - hvordan får jeg lavet en replace funktion på lige præcis det hiddenfield som indeholder teksten?
Min Kode
::::START::::
<%@ Language=VBScript %>
<%
Option Explicit
Dim Conn, DSN, sltid, strSQL, rs, column, vareID, intVareId
Response.Buffer=True
%>
<!--#include file="dbconn.inc"--><!-- Database forbindelse oprettes via ekstern fil-->
<!-- #include file="adovbs.inc" -->
<html>
<head>
<title>Vis varer</title>
<Link Rel="stylesheet" href="datronic.css" Type="text/css" > <!-- link til ekstern style sheet -->
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
body {
margin-top: 0px;
margin-left: 4px;
}
-->
</style>
<script LANGUAGE="JavaScript"><!--tjekker om indtastede tal er et tal og om det negativt/blank
function AbortEntry(sMsg, eSrc)
{
window.alert(sMsg);
// set focus and highlight to the offending error
eSrc.focus();
//eSrc.select();
}
function HandleError(eSrc)
{
// make sure the input is a numeric value
var val = parseInt(eSrc.value);
if (isNaN(val))
{
return AbortEntry("Du skal indtaste antal varer.", eSrc);
}
// make sure the value is not negative
if (val <= 0)
{
return AbortEntry("Du skal indtaste antal varer.", eSrc);
}
}
//-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body>
<br>
<%
vareID = Request.Querystring("intVareId")
' SQL forespørgsel
strSQL = "Select * From vare Where vareid =" & vareID
' Udfør strSQL (rs kommer til at indeholde dataen)
Set rs = Conn.Execute(strSQL)
'oprettelse af indholdstabel
Response.Write "<table border=0 cellspacing=0 cellpadding=0 width='670' align=left>"
Response.Write "<tr><td colspan='2' height='18' bgcolor='#545DB9'>"
'udskriv titel
Response.Write "<span class='style1'>" & rs("titel") & "</span>"
Response.Write "</td></tr>"
Response.Write "<tr><td colspan='2'> </td></tr>"
Response.Write "<tr><td width='210' rowspan='10' align='left' valign='top'>"
'udskriv foto2
if rs("foto2")&"" = "" then
response.Write "<img src='foto/intet_foto2.jpg' border='0' width='200' height='150'>"
else
Response.Write "<img src=""" & rs("foto2") & """ border='0' width='200' height='150'>"
end if
Response.Write "<br><br>"
'udskriv foto3
if rs("foto3")&"" = "" then
response.Write "<img src='foto/intet_foto3.jpg' border='0' width='200' height='150'>"
else
Response.Write "<img src=""" & rs("foto3") & """ border='0' width='200' height='150'>"
end if
'udskriv titel igen
'Response.Write "</td><td><p>" & rs("titel") & "</p></td></tr>"
'udskriv fakta (fast tekst)
Response.Write "<tr><td><p>" & "Fakta:" & "</p></td></tr>"
'udskriv beskrivelse fra database
Response.Write "<tr><td>" & Replace (rs("beskriv"), vbCrLf, "<br>"&vbCrLf) & "</td></tr>" 'Erstatter databasens kode for linieskift vbCrlf med html break
'udskriv Model (fast tekst)
Response.Write "<tr><td><br><p>" & "Model:" & "</p></td></tr>"
'udskriv model fra database
Response.Write "<tr><td>" & rs("model") & "</td></tr>"
'Response.Write "<tr><td width='210' rowspan='5' align='left' valign='top'>"
'udskriv foto3
'Response.Write "<img src=""" & rs("foto3") & """ border='0'>"
'udskriv producent (fast tekst)
Response.Write "</td><td><br><p>" & "Producent:" & "</p></td></tr>"
'udskriv producent fra database
Response.Write "<tr><td>" & rs("Producent") & "</td></tr>"
'udskriv pris (fast tekst)
Response.Write "<tr><td><br><p>" & "Pris:" & "</p></td></tr>"
'udskriv pris fra database
Response.Write "<tr><td>Kr. " & rs("pris") & ",- incl. moms</td></tr>"
'udskriv læg i vogn knap
'Response.Write "<tr><td><br><img src='grafik/laeg_i_vogn.gif' border='0'></td></tr>"
Response.Write "<tr><td><br>"
Response.Write "<form action='tilfoj.asp' method='post' id='form1' name='form1'>"
'Response.Write "input type='hidden' name='vareantal' value='1'>"
Response.Write "<input type='hidden' name='IntVareId' value='" & vareID & "'>"
Response.Write "<input type='hidden' name='strTitel' value='" & rs("titel") & "'>"
Response.Write "<input type='hidden' name='strBeskriv' value='" & rs("beskriv") & "'>"
Response.Write "<input type='hidden' name='strModel' value='" & rs("model") & "'>"
Response.Write "<input type='hidden' name='intPris' value='" & rs("pris") & "'>"
Response.Write "<input type='hidden' name='intVaegt' value='" & rs("vaegt") & "'>"
Response.Write "<input type='text' size='3' maxlength='4' name='IntAntal' value='1' onChange='HandleError(this)'>"
'submit knap, som består af et stykke grafik
Response.Write "<input type='image' src='grafik/laeg_i_vogn.gif' width=120 height=25 align='absmiddle' name='Submit1' value='tilføj' id='submit1'>"
'Response.Write "<input type='submit' value='Tilføj varer til indkøbsvogn'>"
Response.Write "</form></td></tr>"
Response.Write "</table>"
%>
<%
' Luk forbindelse fra dbconn.inc
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
::::SLUT::::
Hiddenfield som indeholder teksten:
Response.Write "<input type='hidden' name='strBeskriv' value='" & rs("beskriv") & "'>"
Håber der en nogen der kan hjælpe mig!
/Annette
