Problemer med tekst i hiddenfield - hvad er fejlen?
HejJeg har en asp side som består af en tabel hvori der ligger en form. PÅ siden bliver udskrevet nogle oplysninger om en vare, som hentes fra en database.
I min form har jeg nogle hiddenfields som indeholder de samme oplysninger som bliver udskrevet om varen. Men mit problem er at nogle gange bliver indholdet af det hiddenfield der indeholder beskrivelsen af varen vis på skærmen, men jeg kan simpelthen ikke se hvad fejlen er.
Min kode
::::KODE::::
<%@ 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='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>
::::KODE::::
Et link til et screendump af hvordan siden med fejlen ser ud
http://www.ferslev.com/test/fejl1.jpg
Et link til et screendump af hvordan siden skal se ud uden fejl
http://www.ferslev.com/test/fejl2.jpg
Håber der en en eller anden der kan se hvorfor fejlen opstår. Har tænkt på om det kan være fordi der i nogle af beskrivelserne er gemt nogle <br> med i databasen.
Hjælp!!!!
/Annette
