ASP Kode

Hejsa
Jeg har et asp script såen at jeg kan updatere noget tekst på min hjemmeside gennem et web interface.... Men i DB står det til at være Tekst.. Det vil sige at jeg max kan bruge 255 charcter.. Og det er ikke nok.. Men når jeg laver det om til Notat i DBen.. så virker det ikke længere.. Det er der hvor der står REPLACE det er galt.. ASP koden ser sådan her ud....




<%
  Response.Buffer = True

  \'Variabler hentes og sættes
  mode = Request.QueryString(\"mode\")

%>

<html>
<head>
</head>

<body>

<table width=400 border=0>


<% if mode = \"\" then %>

<tr><td width=400 colspan=2>
<font face=\'Arial\' size=\'2\'>
<b>Ret Dagens tip</b><br>
<font size=\'2\'>
Følgende tip er gemt i databasen, og er bliver pt løbende vist på forsiden. Klik på et tip for at rette overskriften og teksten.<p>
</td></tr>

<%


set conn = server.createobject(\"ADODB.connection\")
StrDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")
conn.open strDSN
   
\'Søgekriterier defineres
SQL = \"SELECT * FROM startside ORDER BY TekstID DESC\"
set RS = conn.execute( SQL )

If RS.EOF then
  response.write \"<tr><td><font face=\'Arial\' size=\'2\'>Der er ingen Dagens Tip i databasen.</td></tr>\"

Else

  do while not RS.eof

  response.write \"<tr><td width=400 valign=top><font face=\'Arial\' size=\'2\'>\"
    response.write \"- <a href=\'ret_startside.asp?mode=aktuel&id=\" & RS(\"TekstID\") & \"\'><font face=\'Arial\' size=\'2\'>\" & RS(\"Tekst\") & \"</font></a>\"
  response.write \"</td></tr>\"

  rs.movenext
  loop

End if

\'Databasen lukkes
set conn = Nothing
rs.close

%>

<% elseif mode = \"aktuel\" then %>

<%

  \'Variabler hentes og sættes
  TekstID = Request.QueryString(\"id\")

%>

<form method=\"POST\" action=\"ret_startside.asp?mode=ret\">
<%

  \'Database åbnes og gøres klar
  set conn = server.createobject(\"ADODB.connection\")
  strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")
  conn.open strDSN

  \'Søgekriterer sættes
  SQL = \"SELECT * FROM startside Where (tekstID = \'\" & tekstID & \"\')\"
  set RS = conn.execute( SQL )

 
  Tekst = RS(\"Tekst\")

  response.write \"<tr><td width=400 colspan=2>\"
  response.write \"<font face=\'Arial\' size=\'2\'>\"
  response.write \"<b>Ret Dagens Tip</b><br>\"
  response.write \"Herunder ses overskriften og teksten til \" & overskrift & \". Hvis du vil ændre nogle af punkterne, så gøres dette herunder. <p>\"
  response.write \"</td></tr>\"



  response.write \"<tr><td width=100 valign=top<font face=\'Arial\' size=\'2\'>\"
  response.write \"Tekst:\"
  response.write \"</td><td width=300 valign=top><font face=\'Arial\' size=\'2\'>\"
  response.write \"<textarea rows=\'40\' name=\'tekst\' cols=\'80\'>\" & Replace(RS(\"tekst\"), \"<br>\", vbCrLf) & \"</textarea>\"
  response.write \"</td></tr>\"

  response.write \"<input type=\'hidden\' name=\'TekstID\' value=\'\" & tekstID & \"\'>\"

  rs.Close
  set rs = Nothing

%>

<tr><td width=100><font face=\'Arial\' size=\'2\'>

</td><td width=300><font face=\'Arial\' size=\'2\'>
<input type=\"submit\" Value=\"Ret tip\">&nbsp;&nbsp;&nbsp;<input type=\"Reset\" Value=\"Slet ændringer\">
</td></tr>
</form>


<% elseif mode = \"ret\" then %>

<%

  tekst = Replace(Request.Form(\"tekst\"), vbCrLf, \"<br>\")
TekstID = Trim(Request.Form(\"tekstid\"))

%>

<tr><td width=400 colspan=2>
<font face=\'Arial\' size=\'2\'>
<b>Ret tilmeldingsliste</b><br>
<font size=\"2\">
Du har nu rettet Dagens Tip <% = tekst %>. Ændringerne vil træde i kraft øjeblikkeligt.<br>
</td></tr>

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3
set conn = server.createobject(\"ADODB.connection\")
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")
conn.open strDSN

\'Søgekriterier for TipID defineres
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"SELECT TOP 1 * FROM startside Where tekstID=\'\" & tekstid & \"\'\"
rs.Open SQL, strDSN, adOpenKeyset, adLockOptimistic

    rs(\"tekst\") = tekst
    rs.Update
    rs.Close

Set rs = Nothing
Set conn = Nothing

%>


<% end if %>


</table>

</body>
</html>