Nyhedssystem
HejsaJeg er ved at lave et nyhedssystem og står og vil gerne lave noget i stil med det der er på følgende forum system:
http://www.havneparken1vejle.dk/HARDiNFO%20Forum.htm
Det jeg tænker på er Format muligheden med hjælp, wizard og indsæt kode samt med tryk knapperne og tekstype vælgeren.
Her er min kode som jeg bruger for tiden:
'--- Nyheder Opret ---
if mode="opret" then %>
<BODY text=#000000 vLink=#000000 aLink=#000000 link=#000000 rightMargin=0 topmargin="0">
<TABLE cellSpacing=0 cellPadding=0 width=584 border=0>
<TBODY>
<TR>
<TD width=582 bgColor=#000000><IMG height=1 alt=""
src="../pics/Design/blank(1).gif"
width=582 border=0><BR></TD>
<TD width=2 bgColor=#ffffff><IMG height=1 alt=""
src="../pics/Design/blank(1).gif"
width=2 border=0><BR></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=584 border=0 height="70">
<TBODY>
<TR>
<TD vAlign=top align=left width=1 bgColor=#000000
height=27><IMG height=25 alt="" src="../pics/Design/blank.gif"
width=1 border=0><BR></TD>
<TD vAlign=top align=left width=5 bgColor=#608EC6
height=27><BR></TD>
<TD align=left width=385 bgColor=#608ec6
height=27><strong><font face="Arial" color="#FFFFFF" size="3">
Skriv en Nyhed
</font></strong><BR></TD>
<TD align=left width=180 bgColor=#608ec6
height=27>
<p align="right"><font size="2" face="Times New Roman" color="#FFFFFF">
</font></TD>
<TD vAlign=top align=left width=8
background=../pics/Design/content_right_top.gif height=27><BR></TD></TR>
<TR>
<TD vAlign=top align=left width=1 bgColor=#000000 height="17"><IMG
height=1 alt="" src="../pics/Design/black.gif" width=1
border=0></TD>
<TD vAlign=top align=left width=10 bgColor=#CFDFFC height="17"> </TD>
<TD vAlign=top align=left width=565 bgColor=#CFDFFC
height=17 colspan="2"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
<tr>
<%
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
'Hvis brugeren har submittet formularen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Tjecker om felterne er udfyld
if (Request.Form("title") <> "" AND Request.Form("nyhed") <> "") then
'Tilføjer brugeren til databasen
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from nyheder"
rs.Open strsql, conn, 1, 3
'Tilføjer brugeren til databasen og sender ham/hende til login siden
rs.AddNew
rs("title") = Server.HTMLEncode(Request("title"))
rs("nyhed") = Replace(Request("nyhed"), vbCrLf, "<br>")
rs("smiley") = Server.HTMLEncode(Request("smiley"))
rs("forfatter") = Session("auth_Fornavn") & " " & Session("auth_Efternavn")
rs("Email") = Session("auth_Email")
rs("Firma") = Session("auth_Gruppenavn")
rs("dato") = Now()
rs.update
Response.Write("<strong><font color=000000>Din nyhed er nu postet!</font></strong>")
rs.Close
set rs = nothing
else
Response.Write"<strong><font color='#ffffff'>Du mangler at udfylde en eller flere felter!</font></strong>"
Response.Write"<script>"
Response.Write"window.setTimeout('history.back();',2000);"
Response.Write"</script>"
end if
end if
%>
<form action="admin.asp?mode=opret" method="post">
<td width="17%"><b>Title <font color="#336699">*</font></b></td>
<td width="83%"><input name="title" type="textbox" class="InputTable" size="40"></td>
</tr>
<tr>
<td width="17%"><b>Nyhed <font color="#336699">*</font></b></td>
<td width="83%">
<textarea cols="79" rows="13" name="nyhed"></textarea></td>
</tr>
</table>
<p>Felterne med en * skal udfyldes!</p>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
<tr>
<td width="50%">
<input name="submit" type="submit" class="Button" value="Opret Nyheden" style="float: right"></td>
<td width="50%"><input name="reset" type="reset" class="Button" value="Slet og Start Forfra"></td>
</tr>
</table>
<p><br>
<br>
<TD vAlign=top align=left width=8
background=../pics/Design/content_right_middle.gif
rowSpan=2 height="43"> </TD></TR>
<TR>
<TD vAlign=bottom align=left width=564 bgColor=#CFDFFC
colSpan=4 height="26"><IMG height=26 alt=""
src="../pics/Design/newsitem_left_bottom.gif" width=56
border=0></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=584 border=0>
<TBODY>
<TR>
<TD width=26 bgColor=#ffffff><IMG height=15 alt=""
src="../pics/Design/content_left_bottom.gif"
width=26 border=0><BR></TD>
<TD width=554 bgColor=#FFFFFF><IMG height=15 alt=""
src="../pics/Design/content_bottom.gif"
width=558 border=0><BR></TD>
<TD width=2 bgColor=#ffffff><IMG height=1 alt=""
src="../pics/Design/blank(1).gif"
width=2 border=0><BR></TD></TR></TBODY></TABLE>
<b><center><a href="admin.asp">Tilbage</a></center></b>
Det skal så lige siges at jeg ikke skal have det gjort helt som det system. Når man trykker på billed knappen skal den ikke skrive:
Men bare det almindelige:
<img border="0" src="1.jpg">
Og det samme skal være med alle de andre knapper. Den skal altså bare skrive html koden og ikke forum koden!
Håber der er en eller anden der gider hjælpe mig.
