Fejl i editor script....Men hvor ?
Hej AlleJeg har et editorscript som i princippet fungerer ok - men der er opstået en mindre fejl. (selvom det er blevet tilrettet af et par stykker)
Når man opretter artikler sker det med en overskrift og et indholds felt, men når man skal ind og rette, sker der tit det, at overskrift feltet er blankt !! - Men kun nogle gange.
Nogen der kan finde fejlen / eller optimere, så fejlen ikke opstår ??
Mange mange tak
Hav en god aften
Med Venlig Hilsen
Peter
<!--#include file="connection.asp"-->
<%Response.Buffer=true%>
<html>
<head>
<STYLE type="text/css">
<!--
a{font-family:Verdana;font-size:11px;text-decoration:none}
body {font-family:Verdana;font-size:11px}
table,text,textarea,input {font-family:Verdana;font-size:11px}
-->
</STYLE>
<link href="../style.css" rel="STYLESHEET" TYPE="text/css">
<title>Ret alle</title>
<SCRIPT LANGUAGE="JAVASCRIPT">
function nytVindue()
{
window.open ("pop_forum_code.htm", "navn2", "width=400, height=500, toolbar=no, status=no, scrollbars=yes, top=100,left=100");
}
</SCRIPT>
</head>
<body bgcolor=#a6bbd6>
<table border="0" width="800" cellspacing="1" bgcolor=#a6bbd1 align="center">
<tr><td>
<%
Response.Buffer=true
if request.servervariables("REQUEST_METHOD")="POST" THEN
P_cmd = Request.Form("cmd")
P_kat = Request.Form("kat")
P_sprog = Request.Form("sprog")
P_id = 0
P_id = cInt(Request.FORM("id"))
ELSE
P_cmd = Request.QueryString("cmd")
P_kat = Request.QueryString("kat")
P_sprog = Request.QueryString("sprog")
P_id = 0
P_id = cInt(Request.QueryString("id"))
END IF
IF (P_id=0 AND P_cmd <> "create" AND P_cmd <> "ny") Then
Response.Write "<h2>Redigeringsside</h2>"
Response.Write "<a href='artikel-ret.asp?cmd=ny'><b>Opret ny - </a><a href='../index.htm' target=""_top""> Til Hovedside - </b></a>"
Response.Write "<A HREF=""java script:nytVindue();""> Hjælp til artikler</A>"
Set objRec = DBforbindelse.execute("SELECT * FROM artikel ORDER BY kategori,sprog,id")
Response.Write "<center><form>"
Do While Not objRec.EOF
select case objRec("sprog")
case "dk": v_sprog = "Dansk"
case "de": v_sprog = "Fransk"
case else: v_sprog = "Engelsk"
end select
select case objRec("kategori")
case 6: v_kategori = "Booking"
case 15: v_kategori = "Vaugrenier"
case 24: v_kategori = "Lejlighederne"
case 25: v_kategori = "Kobe-Lejlighed"
case 35: v_kategori = "Information"
case 45: v_kategori = "Rivieraen"
case 64: v_kategori = "Nyheder"
case 75: v_kategori = "Medlemsside"
case 83: v_kategori = "Testside"
case 84: v_kategori = "Administration"
case else: v_kategori = "Sightseeing" 'case 1:
'else: v_kategori = "Sightseeing" 'case 1:
end select
Response.Write "<table width='700' align='center' style='border-width:1px;border-style:solid;'>"
Response.Write "<tr><td>" '1.row 1.column
Response.Write " <a href='artikel-ret.asp?cmd=ret&id=" & objRec("id") & "'>" & "Rediger </a>" & _
"<a href='artikel-ret.asp?cmd=slet&id=" & objRec("id") & "'>" & " Slet</a> "
Response.Write "<b>Kategori: </b>"&v_kategori&"<b> Sprog: </b>"&v_sprog&""
Response.write "<b> Overskrift: </b>" & objRec("overskrift")
Response.Write "</td></tr>"
Response.Write "</table>"
objRec.MoveNext
Response.Write "<div style='line-height:5px;font-size:5px'> </div>"
Loop
Response.Write "</form></center>"
objRec.Close
Set objRec = Nothing
DBforbindelse.Close
Set DBforbindelse = Nothing
ElseIf P_cmd="slet" AND cInt(P_id) <> 0 THEN
DBforbindelse.execute("Delete FROM artikel WHERE id=" & P_id)
Set DBforbindelse = Nothing
Response.Clear
Response.Redirect "artikel-ret.asp"
ELSEIf P_cmd="ret" AND cInt(P_id) <> 0 THEN
' hvis kald intern hent data
Set objRec = DBforbindelse.execute("SELECT * FROM artikel WHERE id="& P_id)
Response.Write "<form ACTION='artikel-ret.asp' METHOD=""POST""><table bgcolor=""#a6bbd9"" width=""700"" border=""0"" align=""center"" style='border-width:1px;border-style:solid'>"
Response.Write "<tr><td>" '1.row 1.column
Response.Write "<tr><td>"
Response.Write "Rediger overskrift:<br>"
Response.Write "<input type=""HIDDEN"" VALUE='update' Name='cmd'>"
Response.Write "<input type=""HIDDEN"" VALUE=" & objRec("id") & " NAME='id'>"
Response.Write "<input type=""TEXT"" VALUE='" & objRec("overskrift") & "'NAME='overskrift' style='border-width:1px;border-style:solid;width:600px'>"
Response.Write "</td></tr><tr><td>"
Response.Write "Rediger indhold:<br>"
Response.write "<textarea name='indhold' rows='10' style='border-width:1px;border-style:solid;width:600px'>" & objRec("indhold") & "</textarea>"
Response.Write "</td></tr><tr><td>"
select case objRec("sprog")
case "dk": v_sprog = "Dansk"
case "de": v_sprog = "Fransk"
case else: v_sprog = "Engelsk"
end select
select case objRec("kategori")
case 6: v_kategori = "Booking"
case 15: v_kategori = "Vaugrenier"
case 24: v_kategori = "Lejlighederne"
case 25: v_kategori = "Kobe-Lejlighed"
case 35: v_kategori = "Information"
case 45: v_kategori = "Rivieraen"
case 64: v_kategori = "Nyheder"
case 75: v_kategori = "Medlemsside"
case 83: v_kategori = "Testside"
case 84: v_kategori = "Administration"
case else: v_kategori = "Sightseeing" 'case 1:
'else: v_kategori = "Sightseeing" 'case 1:
end select
Response.Write "Kategorien af artikler er: <u>"& v_kategori & "</u> Og valgt sprog er: <u>"& v_sprog &"</u><br>"
Response.Write "<input type='submit' VALUE='Opdater' style='border-width:1px;border-style:solid;height:20px;font-family:Verdana;font-size:11px'>"
Response.Write " Indlæg oprettet den: "
Response.Write objRec("artikelstartdato")
Response.Write " Indlæg sidst rettet den: "
Response.Write objRec("redigeringsdato")
Response.Write " <button onClick='java script:history.back()' style='font-family:Verdana;font-size:11px;border-width:1px;border-style:solid;height:20px'>Fortryd</button>"
Response.Write "<A HREF=""java script:nytVindue();""> Hjælp </A>"
Response.Write "</td></tr>"
Response.Write "</td></tr></table></form>"
ELSEif P_cmd="ny" THEN
' hvis kald intern hent data
Response.Write "<form ACTION='artikel-ret.asp' METHOD=""POST""><table bgcolor=""#a6cce1"" width=""700"" border=""0"" align=""center"">"&_
"<tr><td>"&_
"<tr><td>"&_
"Opret overskrift:<br>"&_
"<input type=""HIDDEN"" VALUE='create' Name='cmd'>"&_
"<input type=""TEXT"" VALUE='' NAME='overskrift' style='width:600px'>" &_
"</td></tr><tr><td>"&_
"Opret indhold:<br>"&_
"<textarea name='indhold' rows='10' style='width:600px'></textarea><br>"&_
"Vælg Kategori <SELECT name=kat><OPTION value='1'>Sightseeing</OPTION>"&_
"<OPTION value='15'>Vaugrenier</OPTION><OPTION value='25'>Køb af Lejlighed</OPTION><OPTION value='24'>Lejlighederne</OPTION><OPTION value='35'>Information</OPTION><OPTION value='45'>Rivieraen</OPTION><OPTION value='64'>Nyheder</OPTION><OPTION value='75'>Medlemsside</OPTION><OPTION value='6'>Bookning-leje af lejl.</OPTION><OPTION value='84'>Administration</OPTION><OPTION value='83'>Testside</OPTION></SELECT>"&_
"Sæt artiklens Sprog "&_
"<SELECT name=sprog><OPTION value='dk'>Dansk</OPTION>"&_
"<OPTION value='de'>Fransk</OPTION>"&_
"<OPTION value='gb'>Engelsk</OPTION>"&_
"</SELECT>"&_
"</td></tr><tr><td>"&_
"<input type='submit' VALUE='Opret'>"&_
"<A HREF=""java script:nytVindue();""> Hjælp </A>"&_
"</td></tr>"&_
"</td></tr></table></form>"
ELSEIf (P_cmd="create") THEN
if request.servervariables("REQUEST_METHOD")="POST" THEN
p_overskrift= Replace(Request.Form("overskrift")&"", "'", "''")
p_indhold = Replace(Request.Form("indhold")&"", "'", "''")
ELSE
p_overskrift= Replace(Request.Querystring("overskrift")&"", "'", "''")
p_indhold = Replace(Request.Querystring("indhold")&"", "'", "''")
END IF
StrSql="INSERT INTO artikel (overskrift, indhold, artikelstartdato, kategori, sprog) "&_
"VALUES ('" & P_overskrift &"','" & p_indhold &"','" & Date &"','"& P_kat &"','"& P_sprog &"')"
DBforbindelse.execute(strsql)
'DBforbindelse.Execute
Set DBforbindelse = Nothing
Response.Clear
Response.Redirect "artikel-ret.asp"
ELSEIF ((P_cmd="update") AND (P_id <> 0)) THEN
if request.servervariables("REQUEST_METHOD")="POST" THEN
p_overskrift= Replace(Request.Form("overskrift")&"", "'", "''")
p_indhold = Replace(Request.Form("indhold")&"", "'", "''")
ELSE
p_overskrift= Replace(Request.Querystring("overskrift")&"", "'", "''")
p_indhold = Replace(Request.Querystring("indhold")&"", "'", "''")
END IF
StrSql="UPDATE artikel SET overskrift='"&P_overskrift&"', indhold='" & p_indhold & "', redigeringsdato='" & date &"' WHERE id=" & p_id
DBforbindelse.execute(strsql)
Set DBforbindelse = Nothing
Response.Clear
Response.Redirect "artikel-ret.asp"
END IF 'update
%>
</td>
</tr>
</table>
</body>
</html>
