Er der en som vil hjælpe?
Jeg er ikke den storer haj til ASP endnu, og har et nyhedessystem på min side.Nu vil jeg gerne have et indtastningsfelt mere som heder Overskrift.
Jeg har oprettet feltet i databasen og selve nyhedssiden, men på siden hvor man oprettet nyheden kan jeg ikke finde ud af det, HJÆLP.
Her er koden til opret.asp:
<%
Option Explicit
Dim Conn, DSN, vbGenerel, strNyhed, strNavn, strSQL, VisNyheder
%>
<%
If session("godkendt") = False then
Response.Redirect "login.asp"
Else
End If
%>
<!--#include file="dbconn.inc"-->
<html>
<head>
<style type="text/css">
<!--
-->
</style><link rel="stylesheet" href="http://tekst.css">
<title>Fomses Nyheds-administration...</title>
</head>
<body>
<center>
<h3>Opret nyhed...</h3>
</center>
<%
If Request.Form("nyhed")<>"" And Request.Form("navn")<>"" Then
strNyhed = Replace(Request.Form("nyhed"), vbcrlf, "<br>")
strNyhed = Replace(strNyhed, "'", "''")
strNavn = Replace(Request.Form("navn"), "'", "''")
strSQL = "Insert into Nyheder ("
strSQL = strSQL & "Nyhed, "
strSQL = strSQL & "Dato, "
strSQL = strSQL & "IndsatAF) "
strSQL = strSQL & "values("
strSQL = strSQL & "'" & strNyhed & "', "
strSQL = strSQL & "'" & Request.Form("dato") & "', "
strSQL = strSQL & "'" & strNavn & "') "
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
Response.Redirect ("pw_admin.asp")
Else
Response.Write "<center><b>Du skal udfylde begge felter, ellers bliver der IKKE <br>oprettet nogen nyhed!</b></center><br>"
%>
<FORM method="post" action="pw_opret.asp" name="pwopret">
<table border=1 bordercolor='#757BAD' cellspacing=0 cellpadding=3 width="500" align=center>
<tr><td width="70%">
Oprettet <% Response.Write FormatDateTime(Now, vbGenerel) %>
<input type="hidden" name="dato" size="30" readonly=yes value="<% Response.Write FormatDateTime(Now, vbGenerel) %>"></td>
<td width="30%">
<input type="text" name="navn" size="20" value="Skriv dit navn her">
</td></tr><tr><td colspan="2">
<TEXTAREA NAME="nyhed" ROWS="5" COLS="60" WRAP="off">
Skriv nyhed her</TEXTAREA>
</td></tr><tr><td colspan="2">
<INPUT TYPE="Submit" VALUE="Opret nyhed">
<INPUT TYPE="Reset" VALUE="Nulstil alt">
</td></tr></table>
</FORM>
<%
End if
%>
<center>
<b><a href="pw_admin.asp">Gå tilbage uden at oprette en nyhed...</a></b>
</center>
</body>
</html>
