opdaterbare........... et eller andet...........
Hvorfor virker det her ikke ?Har tjekket min IIS, og jeg har skrive rettighed
hvad kan der være galt ?
<%@LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../../css/total.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
If Request.Form("Action") = "opret" Then
session("strPID") = Replace(Request.Form("produktID"), "'", "''")
session("strKunde") = Replace(Request.Form("kunde"), "'", "''")
session("strBeskrivelse") = Replace(Request.Form("beskrivelse"), "'", "''")
session("strLager") = Replace(Request.Form("lager"), "'", "''")
session("strPris") = Replace(Request.Form("pris"), "'", "''")
response.Write(session("strKunde"))
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../daba/11072002.mdb")
Conn.Open DSN
strSQL = "INSERT INTO PROJEKT ("
strSQL = strSQL & "ProjektID, "
strSQL = strSQL & "FirmaNavnVare, "
strSQL = strSQL & "VareBeskrivelse, "
strSQL = strSQL & "VareBeholdning, "
strSQL = strSQL & "VarePris"
strSQL = strSQL & ") values( "
strSQL = strSQL & "'" & session("strPID") & "', "
strSQL = strSQL & "'" & session("strKunde") & "', "
strSQL = strSQL & "'" & session("strBeskrivelse") & "', "
strSQL = strSQL & "'" & session("strLager") & "', "
strSQL = strSQL & "'" & session("strPris")
strSQL = strSQL & "');"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
%>
<% Else %>
<form action="varer_opret.asp" method="post" name="opret" id="opret">
<table width="650" border="0" align="center" cellpadding="3" cellspacing="3">
<tr>
<td width="115">ProduktID</td>
<td width="514">
<input name="produktID" type="text" class="text_felt" id="produktID" size="45">
</td>
</tr>
<tr>
<td width="115"> </td>
<td> </td>
</tr>
<tr>
<td width="115">Kunde</td>
<td>
<select name="kunde" class="text_box" id="kunde">
<option>-- Vælg kunde -- </option>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../daba/11072002.mdb")
Conn.Open DSN
strSQL = "Select FirmaNavn From BRUGER Order By FIRMANAVN Asc"
set rs = conn.execute(strSQL)
%>
<% Do Until rs.EOF %>
<option value="<% = rs("FirmaNavn") %>"><% = rs("FirmaNavn") %></option>
<% RS.MoveNext
Loop
%>
<%
Conn.Close
Set Conn = Nothing
%>
</select>
</td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td width="115">Beskrivelse</td>
<td>
<textarea name="beskrivelse" cols="44" rows="3" class="text_box" id="beskrivelse"></textarea>
</td>
</tr>
<tr>
<td width="115">Lager</td>
<td>
<input name="lager" type="text" class="text_felt" id="lager" size="16">
</td>
</tr>
<tr>
<td width="115">Pris</td>
<td>
<input name="pris" type="text" class="text_felt" id="pris" size="16">
</td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>
<input name="opret" type="submit" class="knap" id="opret" value="Opret varer">
</td>
</tr>
</table>
</form>
<% End if %>
</body>
</html>
