Crew system!1
Hej..Her er jeg igang med et crew system, hvor man inten oprette reporter eller ´redaktør, og inde i form.asp er der to boxe, den ene til reporter den anden til redaktør.
Men man skal skrive i BEGGE!! OG det ved jeg ikke hvordan man ændre.. Og hvis man så skriver i begge, kommer teksten KUN frem ved redaktør:
Kig her:
form.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Crew</title>
</head>
<body>
<div align="left">
<table border="0" width="100%">
<tr><form method="POST" class="css" action="oprat_besked.asp">
<td width="20%">Redaktør</td>
<td><input type="text" name="redaktor" size="20"> </td>
</tr>
<tr>
<td width="20%">Reporter</td>
<td>
<p><textarea rows="2" name="reporter" cols="20"></textarea></p>
</td>
</tr>
<tr>
<td width="20%" valign="top" align="left"></td>
<td height="2%">
<p><input type="submit" value="SKRIV"></p>
</td>
</tr>
</table>
</form>
</div>
</body>
</html>
oprat_besked.asp
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("guestbook.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From guestbook"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("redaktor") = Request.form("redaktor")
rs("reporter") = Request.form("reporter")
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
response.redirect ("default.asp")
%>
<html>
<head>
<META HTTP-EQUIV="Refresh" CONTENT="5;URL=default.asp">
<title>Din besked er indskrevet i gæstebogen.... :)</title>
</head>
<body topmargin="10" leftmargin="0"
rightmargin="0">
<center><FONT FACE="Arial" SIZE="+2">..</FONT></center>
<p align="center"><font face="Arial" size="+2">Du vil automatisk blive sendt
videre</font></p>
<p align="center"> </p>
</body>
</html>
default.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Min gوstebog</title>
</head>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("guestbook.mdb")
SQLstmt = "SELECT * FROM guestbook ORDER BY ID desc;"
'
'response.write SQLstmt
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)
%>
<div align="center">
<center>
<table border="0" width="50%">
<tr>
<td bgcolor="#000000">
<p align="center"><font color="#FFFFFF">Redaktøre:</font></p>
</td>
</tr>
<tr>
<td align="center">
<%
DO WHILE NOT rs.EOF
ID = rs("ID")
redaktor = rs("redaktor")
navn = rs("navn")
Dato = rs("Dato")
email = rs("email")
%>
<u><%=rs("redaktor")%></u><br>
<font face=verdana size=2> </font>
<font size=2><i><hr></i></font>
<%
rs.MoveNext
LOOP
%>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" width="50%">
<tr>
<td bgcolor="#000000">
<p align="center"><font color="#FFFFFF">Reportere:</font></p>
</td>
</tr>
<tr>
<td align="center">
<%
DO WHILE NOT rs.EOF
ID = rs("ID")
reporter = rs("reporter")
navn = rs("navn")
Dato = rs("Dato")
email = rs("email")
%>
<%=rs("reporter%")%>
<font size=2><i> <br></a><br> <br><hr></i></font>
<%
rs.MoveNext
LOOP
RS.Close
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%> </td>
</tr>
</table>
</center>
</div>
</body>
</html>
Hvor er fejlene?
