kichian >>
her er siderne til opdatering af menuerne:
---------------------------------- Side med formen: ----------------------------------------
<html>
<head>
<meta http-equiv=\"pragma\" content=\"nocache\">
<title>Rediger</title>
<link rel=\"Stylesheet\" href=\"rediger.css\">
<SCRIPT LANGUAGE=\"VBScript\">
Sub Start_onClick
Dim TheForm
Set TheForm = Document.thisForm
If IsNumeric(TheForm.VisNr.Value) Then
TheForm.Submit
Else
MsgBox \"Vær venlig kun at indtaste tal\" & vbCrLf & \" i nummerfeltet !.\"
End If
End Sub
</SCRIPT>
</head>
<%
fkst = now
MENU = Request.Querystring(\"menu\")
ID = Request.Querystring(\"id\")
dkTEKST = Request.Querystring(\"dktekst\")
ukTEKST = Request.Querystring(\"uktekst\")
deTEKST = Request.Querystring(\"detekst\")
LINK = Request.Querystring(\"link\")
VISNR = Request.Querystring(\"visnr\")
if VISNR = \"\" then VISNR = \"10\"
AID = Request(\"AID\")
BID = Request(\"BID\")
SPROG = Session(\"SPROG\")
if SPROG = \"dk\" then loadIT = \"dkTekst\"
if SPROG = \"uk\" then loadIT = \"ukTekst\"
if SPROG = \"de\" then loadIT = \"deTekst\"
%>
<body onLoad=\"document.thisForm.<%= loadIT %>.Focus()\">
<br><br><br>
<table Width=\"80%\" align=center>
<form method=\"POST\" name=\"thisForm\" action=\"OpdaterMenu.asp?menu=<%= MENU %>&AID=<%= AID %>&BID=<%= BID %>\">
<table border=\"0\" width=\"60%\" align=\"center\">
<%
if Session(\"DANSK\") = \"JA\" then
Response.write \"<tr><td>\"
if SPROG = \"dk\" then
Response.write \"<strong> DK-TEKST </strong>\"
else
Response.write \"Dk-tekst\"
end if %>
</td><td><input type=\"text\" class=\"flt\" name=\"dkTekst\" size=\"20\" Value=\"<%= dkTEKST %>\"></td></tr>
<%
end if
if Session(\"ENGELSK\") = \"JA\" then
Response.write \"<tr><td>\"
if SPROG = \"uk\" then
Response.write \"<strong> UK-TEKST </strong>\"
else
Response.write \"Uk-tekst\"
end if %>
</td><td><input type=\"text\" class=\"flt\" name=\"ukTekst\" size=\"20\" Value=\"<%= ukTEKST %>\"></td></tr>
<%
end if
if Session(\"TYSK\") = \"JA\" then
Response.write \"<tr><td>\"
if SPROG = \"de\" then
Response.write \"<strong> DE-TEKST </strong>\"
else
Response.write \"De-tekst\"
end if %>
</td><td><input type=\"text\" class=\"flt\" name=\"deTekst\" size=\"20\" Value=\"<%= deTEKST %>\"></td></tr>
<%
end if %>
<tr>
<td width=\"40%\" align=\"right\">Nr. i Menuen (Tal)</td>
<td width=\"60%\"><input type=\"text\" class=\"flt\" name=\"VisNr\" size=\"3\" Value=\"<%= VISNR %>\"></td>
</tr>
<% if MENU = \"A\" then %>
<tr>
<td align=\"center\">Link <input type=\"radio\" name=\"link\" value=\"1\" <% if LINK = 1 then %>Checked<% else %> <% end if%>></td>
<td bgcolor=\"#019318\" align=\"center\"><Font color=\"#AAFFAA\"> -eller kategori </font><input type=\"radio\" name=\"link\" value=\"0\" <% if LINK = 0 then %>Checked<% else %> <% end if%>></td>
</tr>
<% End If %>
<tr><td> </td></tr>
<tr>
<td width=\"100%\" colspan=\"2\" align=\"center\">
<input class=\"knap\" type=\"button\" value=\"Opdater\" onClick=\"Start_onClick()\">
<input class=\"knap\" type=\"button\" value=\"Tilbage\" onClick=\"history.go(\'-1\')\"></td>
</tr>
</table>
<input type=\"Hidden\" Value=\"<%= ID %>\" Name=\"MenuID\">
</form>
</table>
</body>
</html>
---------------------------------------- Form side slut -----------------------------------
---------------------------------------- Opdaterings filen ---------------------------------
<%@ LANGUAGE=\"VBSCRIPT\" %>
<%
fkst = now
MENU = Request(\"menu\")
dkTEKST = Request(\"dkTekst\")
ukTEKST = Request(\"ukTekst\")
deTEKST = Request(\"deTekst\")
VISNR = Request(\"VisNr\")
MenuID = Request(\"MenuID\")
AID = Session(\"sideID\")
BID = Session(\"sideID\")
SPROG = Session(\"SPROG\")
\'Response.write \"<Font color=\'#0000AA\'>aID: \" & AID & \"</Font><br>\"
if dkTEKST = \"\" then
dkTEKST = \"\"
dkAKTIV = \"0\"
else
dkAKTIV = \"1\"
end if
if ukTEKST = \"\" then
ukTEKST = \"\"
ukAKTIV = \"0\"
else
ukAKTIV = \"1\"
end if
if deTEKST = \"\" then
deTEKST = \"\"
deAKTIV = \"0\"
else
deAKTIV = \"1\"
end if
if MENU = \"A\" then
SQL = \"INSERT INTO xMenu (xMenuID, dkTekst, ukTekst, deTekst, dkAktiv, ukAktiv, deAktiv, VisNr, aLink) VALUES (\'X10\', \'\" & dkTEKST & \"\', \'\" & ukTEKST & \"\', \'\" & deTEKST & \"\', \" & dkAKTIV & \", \" & ukAKTIV & \", \" & deAKTIV & \", \" & VISNR & \", \" & Request(\"link\") & \")\"
URL = \"RetMenu.asp?menu=A\"
end if
if MENU = \"B\" then
URL = \"RetMenu.asp?menu=B&AID=\" & AID
SQL = \"INSERT INTO xMenu (xMenuID, dkTekst, ukTekst, deTekst, dkAktiv, ukAktiv, deAktiv, VisNr) VALUES (\'\" & AID & \"\', \'\" & dkTEKST & \"\', \'\" & ukTEKST & \"\', \'\" & deTEKST & \"\', \" & dkAKTIV & \", \" & ukAKTIV & \", \" & deAKTIV & \", \" & VISNR & \")\"
end if
if MENU = \"C\" then
URL = \"RetMenu.asp?menu=C&BID=\" & BID
SQL = \"INSERT INTO xMenu (xMenuID, dkTekst, ukTekst, deTekst, dkAktiv, ukAktiv, deAktiv, VisNr) VALUES (\'\" & BID & \"\', \'\" & dkTEKST & \"\', \'\" & ukTEKST & \"\', \'\" & deTEKST & \"\', \" & dkAKTIV & \", \" & ukAKTIV & \", \" & deAKTIV & \", \" & VISNR & \")\"
end if
Set oConn = Server.CreateObject(\"ADODB.Connection\")
oConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"../\" & Session(\"dbSTI\"))
\'Response.write \"<Font color=\'#0000AA\'> SQL: \" & SQL & \"<br> MENU: \" & MENU & \"<br> AID: \" & AID & \"<br> BID: \" & BID & \"</Font><br>\"
oConn.Execute( SQL )
oConn.Close
set oConn = nothing
if MENU = \"A\" then
go2 = \"menu=retA\"
end if
if MENU = \"B\" then
go2 = \"menu=retB&AID=\" & AID
end if
if MENU = \"C\" then
go2 = \"menu=retC&BID=\" & BID
end if
%>
<html>
<head>
<meta http-equiv=\"pragma\" content=\"nocache\">
<script>
setTimeout(\"parent.menu.location=\'../menu.asp\';\", 100);
</script>
<META HTTP-EQUIV=\"REFRESH\" CONTENT=\"2; URL=../delud.asp?<%= go2 %>;\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"black\" link=\"#004159\" alink=\"#004159\" vlink=\"#004159\">
<br>
<TABLE WIDTH=400 HEIGHT=450 BORDER=0 ALIGN=\"CENTER\" CELLPADDING=0 CELLSPACING=0 RULES=\"NONE\" FRAME=\"VOID\">
<TR>
<TD WIDTH=100% HEIGHT=15 ALIGN=\"CENTER\" VALIGN=\"TOP\">
<br><CENTER><Font color=\'#222277\' Face=\'Arial\'><br><br><br>
<b>Øjeblik<br>
<br>
Opdaterer info !</b>
</CENTER></font>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
------------------------------------------- opdat side slut ------------------------------
Kig på det og se om du kan se hvor den fejler,
alle sider er af samme opbygning....
* MoRoax...
