jeg har rettet i din cw.asp den skal se ud som dette: <%
Session.LCID = 1030
if request.form("send") <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("Clan-war/asdbjkldfasbjladfsbjkladfsblasdfbulasdf78902349126349kvd.mdb")
Conn.Open DSN
sql = "insert into cw(dato, modstander, status, Resultat) VALUES('"&request.form("dato")&"','"&request.form("modstander")&"','"&request.form("status")&"','"&request.form("resultat")&"')"
set rs = Conn.execute(sql)
Alert = "Kamp tilføjet<br>"
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<style type="text/css">
fieldset
{
border:2px groove rgb(153,204,255);
width:100%;
height: 21px;
}
legend
{
letter-spacing: 3px;
color:rgb(0,51,102);
font-weight: bold;
}
</style>
<title>clan-war</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("Clan-war/asdbjkldfasbjladfsbjkladfsblasdfbulasdf78902349126349kvd.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from cw order by dato DESC"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
response.write Alert
%>
<fieldset>
<table width="100%" border="0">
<tr>
<td width="16%" height="21" align="center">Dato:</td>
<td width="28%" align="center">Modstander:</td>
<td width="28%" align="center">Status:</td>
<td width="28%" align="center">Resultat:</td>
</tr>
</table>
</fieldset>
<table width="100%" border="1" bordercolor="#FFFFFF">
<%
do while not rs.eof
%>
<tr bordercolor="#000000">
<td width="16%" align="center"><% Response.Write rs("dato") %></td>
<td width="28%" align="center"><% Response.Write rs("modstander") %></td>
<td width="28%" align="center"><% Response.Write rs("status") %></td>
<td width="28%" align="center"><% Response.Write rs("Resultat") %></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs = nothing
%>
</table>
<% if not session("login") = "" then %>
Add en kamp<br>
<table>
<form METHOD="post" ACTION="cw.asp">
<tr>
<td>Dato:</td>
<td><input type="text" name="Dato"></td>
</tr>
<tr>
<td>
Modstander:</td>
<td><input type="text" name="modstander"></td>
</tr>
<tr>
<td>Status:</td>
<td><input type="text" name="status"></td>
</tr>
<tr>
<td>Resultat:</td>
<td><input type="text" name="resultat"></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" value="Smid på" name="send"></td>
</tr>
</form>
</table>
<% else
end if
%>
<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
