Gememr ikke i Access
KODEN------
<%
If not Session("username") <> "" then
Response.Redirect("default.asp")
End If
%>
<html>
<head>
<title>Tilføj Format</title>
</head>
<body>
<% mode = Request.QueryString("mode")
if mode = "" then mode ="visform"
Select case mode
%>
<%
case "visform"
%>
Tilføj et nyt format:<br><br><br>
<table align="center" width="80%" border="0">
<form actione="new_format.asp?mode=add">
<input type="text" size="25" name="format">
<br><br>
<input type="submit" value="tilføj">
</form>
</table>
<br><br>Eksisterende Formater:<br><table align="center" width="80%">
<%
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.open "Select * From [Format_games]" , Conn_crew, 1, 3
do until rs.eof
strtekst = rs("navn")
strid = rs("id")
response.Write("<tr><td>" & strtekst & "</td><td>")
response.write("<a href='new_format.asp?mode=edit&id=" & strid & "'>REDIGER</a></td></tr>")
rs.MoveNext
loop
set rs = nothing
%>
</table>
<%
case "add"
%>
<%
Set conn = Server.CreateObject("ADODB.RecordSet")
strSQL1 = "Insert into Format_games (navn) values('" & Request.Form("format") & "')"
'Udfører handlingen der ligger i strSQl variablen
Conn.Execute(strSQL1)
%>
<% end select %>
-------
Den gememr bare ikke i Access - men skriver istedet /new_format.asp?format=Playstation i adresse linjen.
