Implementation into exisiting ASP page?

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I easly get it to work as a stand alone aplication.
And i almost have it up and running on an exisiting admin page i use.
But i cant get quite to work. What am i douing wrong?

The code looks like this:

[QUOTE]
<%@ Language=VBScript %>
<%OPTION EXPLICIT%>
<%Response.Expires=0%>
<!--#include file="../../include/dbutil.asp"-->
<!--#include file="../../include/dateutil.asp"-->
<!-- include the Web Wiz Rich Text Editor -->
<!--#include file="RTE_editor_inc.asp" -->
<%
select case request("Action")
  case "Lagre"
    Call LagreNyheter
  case "G� til meny"
    Response.Redirect "Admin-Nyheterliste.asp"
  case "Ny" 
    Response.Redirect "Nyheter.asp?Nyheterid=" & NyNyheter
  case "Slett"    
    call SlettNyheter
    Response.Redirect "Admin-Nyheterliste.asp"
end select
sub SlettNyheter
  dim rsl*gre
  set rsl*gre = Getdataset("SELECT * FROM Nyheter Where Nyheterid=" & request("Nyheterid"))
  if not (rsl*gre.eof and rsl*gre.bof) then
    rsl*gre.delete
  end if
  rsl*gre.close 
  set rsl*gre=nothing
end sub

function NyNyheter
  dim rsNy

  set rsNy = ExecuteSQL("INSERT INTO Nyheter (Overskrift) VALUES ('Ny Nyhet') ")  
  set rsNy = nothing
  set rsNy = Getdataset("SELECT max(Nyheterid) as NyId FROM Nyheter")
  NyNyheter=rsNy("NyId")
  rsNy.close
  set rsNy = nothing
end function

sub LagreNyheter
  dim rsl*gre
  set rsl*gre = Getdataset("SELECT * FROM Nyheter Where Nyheterid=" & request("Nyheterid"))
  if not (rsl*gre.eof and rsl*gre.bof) then
    rsl*gre("Overskrift")=request("Overskrift")
    rsl*gre("Tekst")=request("Tekst")
    rsl*gre("Tekst2")=request("Tekst2")
    rsl*gre("Bilde")=request("Bilde")
    rsl*gre.update
  end if
  rsl*gre.close 
  set rsl*gre=nothing
end sub

sub InsertItem
  dim rsItem, strSQL, strMake, strCheck
  strSQL= "SELECT * FROM Nyheter Where Nyheterid=" & request("Nyheterid")

  set rsItem = GetDataset(strSQL)
  if not (rsItem.eof and rsItem.bof) then
  Response.Write "<TABLE cellspacing=0 cellpadding=0>"
    Response.Write "<TR><td><B>Overskrift</B></TD><TD>&nbsp;&nbsp;</TD><TD><INPUT type=text size=30 name=Overskrift value=""" & rsItem("Overskrift") & """><TD></TR>"
'    Response.Write "<TR><td><B>Tekst</B></TD><TD>&nbsp;&nbsp;</TD><TD><textarea cols=80 rows=10 name=Tekst id=Tekst>" & rsItem("Tekst") & "</TEXTAREA><TD></TR>"
    Response.Write "<TR><td><B>Tekst 2</B></TD><TD>&nbsp;&nbsp;</TD><TD><textarea cols=80 rows=10 name=Tekst2>" & rsItem("Tekst2") & "</TEXTAREA><TD></TR>"
    Response.Write "<TR><td><B>Bilde</B></TD><TD>&nbsp;&nbsp;</TD><TD><INPUT type=text size=30 name=Bilde value=""" & rsItem("Bilde") & """>&nbsp;<INPUT type=button value=""VELG BILDE >>"" onclick=""javascript:OpenWindow()""><BR>NB: Husk � skrive inn n�yaktig filnavn for bilde f�r lagring!!<BR> fks. vestresving1.jpg<TD></TR>"
  Response.Write "</TABLE>"
  end if
  rsItem.close
  set rsItem=nothing
end sub

%>
<HTML>
  <HEAD>
    <TITLE>SMB</TITLE>

    <LINK rel="stylesheet" type="text/css" href="admin.css">

    <script language="Javascript"> 
      function ShowPopup(sURL) 
      {var winColor=window.open(sURL,"color","toolbar=no,menubar=no,location=no,direcories=no,height=325,Width=300,screenX=200,screenY=200,scrollbars=no,resizable")
} 
    </script> 

    <script language=javascript>
      function OpenWindow()
      {var mywin=window.open('UploadForm.asp','mynewwin','toolbar=no,menubar=no,location=no,direcories=no,height=175,Width=450,left=200,top=200,scrollbars=no,resizable'); }
    </SCRIPT>
    <base target="_self">
  </HEAD>
  <BODY OnLoad="initialiseWebWizRTE();>

    <FORM action="Nyheter.asp" method="post" name="FormMain" id="FormMain">

    <%
    Dim strFormName
    Dim strTextAreaName
 'Name of the HTML form the textarea is within
 strFormName = "FormMain"

 'ID tag name of HTML textarea being replaced
 strTextAreaName = "Tekst"

 %>
 <textarea cols=80 rows=10 name="Tekst" id="Tekst"> test </TEXTAREA>

      <H3>Redigere Nyheter</H3>
      <font color="#FFFF00" size="1"><br>
      TIPS 1. For � f� linjeskift legg inn
      &lt;BR&gt; etter den siste linjen, f�r den linjen du �nsker � f� p� neste linje.<br>
      TIPS 2: For � f� en paragraf legg til &lt;P&gt;  mellom linjene.<br>
      TIPS 3: For � f� uthevet tekst <B>(BOLD)</B> legg til &lt;B&gt; f�r teksten og &lt;/B&gt; etter teksten som skal utheves<br>
      TIPS 4: For � f� kursiv tekst <i>(KURSIV)</i> legg til &lt;I&gt; f�r teksten og &lt;/I&gt; etter teksten som skal v�re kursiv<br>
      TIPS 5. For � lage en hyperlink legg inn fks.&nbsp; 
      <font SIZE="1">&lt;a href=&quot;http://www.smbservice.no&quot;
      target=&quot;_blank&quot;&gt;<i>Tekst for hyperlinken skrives inn
      her!!</i>&lt;/a&gt;</font></font>
      <BR>
      <BR>
      <INPUT type=hidden name="Nyheterid" value="<%Response.Write request("NyheterId")%>">
      <%call InsertItem%>
      <INPUT type=submit name=action value=Lagre>  &nbsp;
      <INPUT type=submit name=action value="G� til meny">
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nb