|
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> </TD><TD><INPUT type=text size=30 name=Overskrift value=""" & rsItem("Overskrift") & """><TD></TR>" ' Response.Write "<TR><td><B>Tekst</B></TD><TD> </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> </TD><TD><textarea cols=80 rows=10 name=Tekst2>" & rsItem("Tekst2") & "</TEXTAREA><TD></TR>" Response.Write "<TR><td><B>Bilde</B></TD><TD> </TD><TD><INPUT type=text size=30 name=Bilde value=""" & rsItem("Bilde") & """> <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
<BR> etter den siste linjen, før den linjen du ønsker å få på neste linje.<br>
TIPS 2: For å få en paragraf legg til <P> mellom linjene.<br>
TIPS 3: For å få uthevet tekst <B>(BOLD)</B> legg til <B> før teksten og </B> etter teksten som skal utheves<br>
TIPS 4: For å få kursiv tekst <i>(KURSIV)</i> legg til <I> før teksten og </I> etter teksten som skal være kursiv<br>
TIPS 5. For å lage en hyperlink legg inn fks.
<font SIZE="1"><a href="http://www.smbservice.no"
target="_blank"><i>Tekst for hyperlinken skrives inn
her!!</i></a></font></font>
<BR>
<BR>
<INPUT type=hidden name="Nyheterid" value="<%Response.Write request("NyheterId")%>">
<%call InsertItem%>
<INPUT type=submit name=action value=Lagre>
<INPUT type=submit name=action value="Gå til meny">
&nb
-------------
Regards Torsja
|