Hmm..gemme i database
Hej !Jeg har nu lavet en side der kan læse fra min access database og nu er jeg gået igang med at lave en der kan gemme i databasen. Men der er åbenbart noget galt...for der sker intet når jeg trykker på submit knappen! Kan I se hvad der er galt ?
*******
<%
' 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 ("krcdb.mdb")
Conn.Open DSN
strSQL = "Select * from testtabel"
'set rscount = conn.execute("select count(id) as antal from jwgbog")
'antal = rscount("antal")
'set rscount = nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<link rel="stylesheet" type="text/css" href="fiskestil.css">
</head>
<body bgcolor="#E6E6E6">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="530" id="AutoNumber2">
<tr>
<td width="100%">
<p align="right">
<font face="Verdana" size="2">
<strong>
Indtast fangstrapport
</strong>
</font>
</p>
</td>
</tr>
<tr>
<td width="100%">
<hr width="530px">
</td>
</tr>
</table>
</center>
</div>
<br>
<% mode = request("mode") %>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("krcdb.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From testtabel"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<% if mode ="" then %>
<form method="POST" action="indtastrap.asp?mode=tilfojet">
<div align="center">
<center>
<table border="1" cellpadding="1" cellspacing="" style="border-collapse: collapse" bordercolor="#111111" width="530" id="AutoNumber1">
<tr>
<td width="50px" style="border-right-style: none; border-right-width: medium" align="top">
<FONT size=1 face=verdana>
Forfatter
</font>
</td>
<td width="270px" style="border-left-style: none; border-left-width: medium" align="top">
<input type="text" name="Forfatter" size="30" style="border-style: dotted; border-width: 1; background-color: #E6E6E6">
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="1" cellspacing="0" style="border-collapse: collapse; border-left-style: dotted; border-left-width: 1; border-right-style: dotted; border-right-width: 1; border-top-width: 1; border-bottom-style: dotted; border-bottom-width: 1" bordercolor="#111111" width="530" id="AutoNumber1">
<FONT size=1 face=verdana>
<tr>
<td width="84"><FONT size=1 face=verdana>Dato</font></td>
<td width="264">
<input type="text" name="Dato" size="10" style="border-style: dotted; border-width: 1; background-color: #E6E6E6">
<FONT size=1 face=verdana>fangstdato, fx: 31-12-2003</font>
</td>
<td width="180" rowspan="7">
</td>
</tr>
<tr>
<td width="84"><FONT size=1 face=verdana>Fangst</font></td>
<td width="264">
<input type="text" name="Fangst" size="30" style="border-style: dotted; border-width: 1; background-color: #E6E6E6">
</td>
</tr>
<tr>
<td width="84"><FONT size=1 face=verdana>Vægt</font></td>
<td width="264">
<input type="text" name="vaegt" size="2" style="border-style: dotted; border-width: 1; background-color: #E6E6E6">
<FONT size=1 face=verdana>i kg</font>
</td>
</tr>
<tr>
<td width="84"><FONT size=1 face=verdana>Sted</font></td>
<td width="264">
<input type="text" name="sted" size="2" style="border-style: dotted; border-width: 1; background-color: #E6E6E6">
<FONT size=1 face=verdana>maks 30 tegn</font>
</td>
</tr>
<tr>
<td width="84"><FONT size=1 face=verdana>Metode/agn</font></td>
<td width="264">
<input type="text" name="metode" size="20" style="border-style: dotted; border-width: 1; background-color: #E6E6E6">
<FONT size=1 face=verdana>maks 20 tegn</font>
</td>
</tr>
<tr>
<td width="84" valign="top"><FONT size=1 face=verdana>Beretning</font></td>
<td width="264">
<textarea rows="4" name="beretning" cols="25" style="border-style: dotted; border-width: 1; background-color: #E6E6E6"></textarea>
<br>
<FONT size=1 face=verdana>maks 255 tegn</font>
</td>
</tr>
</table>
</center>
</div>
</form>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="530" id="AutoNumber2">
<tr>
<td width="100%">
<p align="center">
<font face="Verdana" size="1">
<strong>
<input type="Submit" value="tilfojet" name="Submit">
</strong>
</font>
</p>
</td>
</tr>
</table>
</center>
</div>
<br>
<center>
<img src="530px.gif" align="textTop" width="530" height="1"></td>
</center>
<% end if %>
<% if mode ="tilfojet" then
rs.AddNew
rs("forfatter") = Request.form("forfatter")
' rs("alder") = Request.form("alder")
' rs("email") = Request.form("email")
' rs("icq") = Request.form("icq")
' rs("pic") = Request.form("pic")
' rs("url") = Request.form("url")
' rs("kommetare") = Request.form("kommetare")
' rs("land") = Request.form("land")
' rs("dato") = date()
' rs("kl") = time()
' rs("Ip") = Request.ServerVariables("REMOTE_ADDR")
rs.Update
%>
<p class="menuoverskrift2">Tilføjet!</p>
<p><br>
<br>
<% end if %>
</p>
</body>
</html>
