Hjælp til admin side igen?
Hvordan kan jeg lave så jeg kan postere koder når jeg skal oprette en ny film eller rette en gammel film i denne admin side?Altså så jeg kan sætte nogle af ordene som fed m.m.
----------------------------------------------
case "movieadmin"
%>
<center><font color=red>DU ER LOGGET IND SOM: ADMIN</font></center>
<h4>Upload af billede til Film databasen</h4>
<b>ADVARSEL! Filen gemmes med samme navn som den du uploader.<br>
og en evt. eksisternede fil med samme navn OVERSKRIVES!!</b><br><br>
<form method="post" enctype="multipart/form-data" action="uploadimage.asp" target="_blank" id=form1 name=form1>
<input type="file" name="file1"> <input type="submit" value="Upload fil" id=submit1 name=submit1>
</form>
<hr>
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open tempConn
'createdataobject "mySQL"
if len(request.form("deleterecord")) > 0 then
myConn.Execute ("DELETE FROM film WHERE ID = " & clng(request.form("deleterecord")) & ";")
else
if len(request.form("program")) > 0 then
if request.form("program") = "save" then
strSQL = "UPDATE film SET Year = '" & request.form("sYear") & "', "
strSQL = strSQL & "Titel = '" & replace(request.form("sTitle"),"'","''") & "', "
strSQL = strSQL & "Copyright = '" & replace(request.form("sCopyright"),"'","''") & "', "
strSQL = strSQL & "Tekst = '" & replace(request.form("sText"),"'","''") & "', "
strSQL = strSQL & "Tekst1 = '" & replace(request.form("sText1"),"'","''") & "', "
strSQL = strSQL & "sCounter = '" & replace(request.form("ssCounter"),"'","''") & "', "
strSQL = strSQL & "dvdcounter = '" & replace(request.form("sdvdcounter"),"'","''") & "', "
strSQL = strSQL & "tilladStemme = '" & replace(request.form("stilladStemme"),"'","''") & "', "
strSQL = strSQL & "link = '" & replace(request.form("slink"),"'","''") & "', "
strSQL = strSQL & "Billede = '" & replace(request.form("sImage"),"'","''") & "' "
strSQL = strSQL & "WHERE ID = " & clng(request.form("ID")) & ";"
myConn.Execute(strSQL)
elseif request.form("program") = "create" then
strSQL = "INSERT INTO film (Year, Titel, Copyright, Tekst, Tekst1, Billede) VALUES ("
strSQL = strSQL & "'" & request.form("sYear") & "', "
strSQL = strSQL & "'" & replace(request.form("sTitle"),"'","''") & "', "
strSQL = strSQL & "'" & replace(request.form("sCopyright"),"'","''") & "', "
strSQL = strSQL & "'" & replace(request.form("sText"),"'","''") & "', "
strSQL = strSQL & "'" & replace(request.form("sText1"),"'","''") & "', "
strSQL = strSQL & "'" & replace(request.form("ssCounter"),"'","''") & "', "
strSQL = strSQL & "'" & replace(request.form("sdvdcounter"),"'","''") & "', "
strSQL = strSQL & "'" & replace(request.form("stilladStemme"),"'","''") & "', "
strSQL = strSQL & "'" & replace(request.form("slink"),"'","''") & "', "
strSQL = strSQL & "'" & replace(request.form("sImage"),"'","''") & "');"
myConn.Execute(strSQL)
elseif request.form("program") = "new" then
enew = true
end if
else
eNew = false
if len(request.querystring("ID")) > 0 then
ID = clng(request.querystring("ID"))
strSQL = "SELECT * FROM film WHERE ID = " & ID & ";"
set rs = myConn.Execute (strSQL)
if (rs.eof or rs.bof) then
response.write "ERROR!"
response.end
else
sYear = rs("Year")
sTitle = rs("Titel")
sText = rs("Tekst")
sText1 = rs("Tekst1")
sImage = rs("Billede")
sCopyright = rs("Copyright")
ssCounter = rs("sCounter")
sdvdcounter = rs("dvdcounter")
stilladStemme = rs("tilladStemme")
slink = rs("link")
eedit = true
end if
else
eEdit = false
end if
end if
end if
%>
<%
if eEdit = true or enew = true then
if eedit then
eprog = "save"
end if
if enew then
eprog = "create"
end if
if enew then
%>
<p><b>NY FILM:</b></p>
<%
else
%>
<p><b>REDIGER FILM:</b></p>
<%
end if
%>
<form method="POST" name="eform">
<input type="hidden" name="program" value="<%=eprog%>">
<input type="hidden" name="id" value="<%=ID%>">
<table border="0" cellspacing="0" cellpadding="0" style="font-family: Verdana; font-size: 8pt" height="63" width="780">
<tr>
<td width="70" height="25">Årstal :</td>
<td width="706" height="25"><input type="text" name="sYear" size="63" value="<%=sYear%>">
</tr>
<tr>
<td width="70" height="25">Titel :</td>
<td width="706" height="25"><input type="text" name="sTitle" size="63" value="<%=sTitle%>"></td>
</tr>
<tr>
<td width="70" height="13">Copyright : </td>
<td width="706" height="13"><input type="text" name="sCopyright" size="63" value="<%=sCopyright%>"></td>
</tr>
<tr>
<td width="70" height="13">Billede : </td>
<td width="706" height="13"><input type="text" name="sImage" size="63" value="<%=sImage%>"></td>
</tr>
<tr>
<td width="70" height="13">Gammel FILMafstemning : </td>
<td width="706" height="13"><input type="text" name="ssCounter" size="63" value="<%=ssCounter%>"></td>
</tr>
<tr>
<td width="70" height="13">DVDafstemning : </td>
<td width="706" height="13"><input type="text" name="sdvdcounter" size="63" value="<%=sdvdcounter%>"></td>
</tr>
<tr>
<td width="70" height="13">Tillad stemme : </td>
<td width="706" height="13"><input type="text" name="stilladStemme" size="63" value="<%=stilladStemme%>"></td>
</tr>
<tr>
<td width="70" height="13">Link til butik : </td>
<td width="706" height="13"><input type="text" name="slink" size="63" value="<%=slink%>"></td>
</tr>
<tr>
<td width="70" height="13">Tekst : </td>
<td width="706" height="13"><textarea rows="19" name="sText" cols="86"><%=sText%></textarea></td>
</tr>
<tr>
<td width="70" height="13">Tekst : </td>
<td width="706" height="13"><textarea rows="19" name="sText1" cols="86"><%=sText1%></textarea></td>
</tr>
<tr>
<td width="70" height="13"></td>
<td width="706" height="13">
<p align="right">
<%
if not enew then
%>
<input type="hidden" name="deleterecord" value="">
<input type="button" value="*** SLET ***" name="Del" onclick="if (confirm('Er du sikker på at du vil slette ?')){document.eform.deleterecord.value='<%=ID%>';document.eform.submit();}">
<%
end if
%>
<input type="submit" value="-- Gem --" name="Submit"> <input type="button" value="Annuller" name="Cancel" onclick="document.location.href='<%=adminFilNavn%>?mode=movieadmin';"></td>
</tr>
</form>
</table>
<%
else
%>
<form method="post" action="<%=adminFilNavn%>?mode=movieadmin" target="_self" name="nfrm">
<input type="hidden" name="program" value="new">
<input type="submit" value="Ny film" id=submit2 name=submit2>
</form>
<hr>
<form method="post" action="<%=adminFilNavn%>?mode=movieadmin" target="_self" name="frm">
<p>Sorter efter:<br>
<input type="radio" name="Sort" value="1" <%=sort1%> onclick="document.frm.submit();">Titel<br>
<input type="radio" value="2" name="Sort" <%=sort2%> onclick="document.frm.submit();">Årstal
<hr size="1">
<table class="normaltable" width="100%" border="0" cellborder="0" cellspacing="2" cellpadding="0">
<%
if sort = "1" then
sort = "Titel"
else
sort = "Year"
end if
' Make list of all movies
strSQL = "SELECT * FROM film ORDER BY " & Sort & ";"
set dbrs = myConn.Execute (strSQL)
do while not (dbrs.eof or dbrs.bof)
'if bg = "bgcolor=""#999999""" then
' bg = ""
'else
' bg = "bgcolor=""#999999"""
'end if
%>
<tr>
<%
if len(dbrs("Tekst")) > 0 then
link1 = "<a href=""" & adminFilNavn & "?mode=movieadmin&id=" & dbrs("ID") & """ target=""_self"">"
link2 = "</a>"
else
link1 = ""
link2 = ""
end if
%>
<td valign="top">
<%=link1%><%=dbrs("Year")%>-<%=link2%>
</td>
<td <%=bg%> valign="top">
<%=link1%><%=dbrs("Titel")%><%=link2%>
</td>
</tr>
<%
dbrs.movenext
loop
%>
</form>
</table>
<%
end if
myConn.Close
