Notifikationer

Markér alle som læst Log ud

pallifo Nybegynder

06. oktober 2005 - 13:12 Der er 33 kommentarer og
1 løsning

Hente data fra Access til formular og opdatere

Hej eksperter!

Nu har jeg siddet med denne formular i flere dage, men kan bare ikke komme til det resultat jeg ønsker :o(

Det jeg ønsker er, at man på siden, skal kunne se indholdet af databasen i formularen, rette i formularen, sende den og samtidig opdatere databasen.

Er der nogen som kan hjælpe? På forhånd tak!

Del af koden på min side:

<%
Set myConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/INTRA/INTRADatabase/Tilbod_intra.mdb")
myConn.Open DSN

Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM TilbodStatus WHERE IDStat LIKE " & Request.QueryString("intId") & ";"
rs.Open strSQL, myConn, 1, 3

If Request.Form("Send") <> "" Then
retSQL = "UPDATE TilbodStatus SET Tilfarslisti="& Tilfarslisti &", TilfarslistiSeljari="& TilfarslistiSeljari &", PrísInn="& Innheintad &", PrísInnSeljari="& InnheintadSeljari &", Inntastað="& Inntastad &", InntastaðSeljari="& InntastadSeljari &", Príssett="& Prissett &", PríssettSeljari="& PrissettSeljari &", Eftirkannað="& Eftirkannad &", EftirkannaðSeljari="& EftirkannadSeljari &", Avleverað="& Avleverad &", AvleveraðSeljari="& AvleveradSeljari &", Uppfylging="& Uppfylging &", UppfylgingSeljari="& UppfylgingSeljari &", Tilboðsnr="& Tilbodsnr &", Upphædd="& Upphadd &", Kostvirðið="& Kostvirdid &", Vinningur="& Vinningur &", BAíProsent="& BAiProsent &", WHERE IDStat LIKE " & Request.Querystring("intId") & ";"
myConn.Execute(retSQL)
Response.Buffer=true
Response.Clear
Response.Redirect "tilbod_skriva.asp"
Response.end
end if
%>

<%if not rs.EOF then%>
<form method="POST" action="tilbod_skriva.asp">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0"><input type="hidden" name="intId" value='<%=rs("IDStat")%>'>
<tr>
<td>
<p><input type="checkbox" name="Tilfarslisti" value="<%=rs("Tilfarslisti")%>" <% If rs("Tilfarslisti") = "True" Then %>checked<% End If %>>
<%
if lcase(Request.Form("Tilfarslisti")) = "ja" then
Tilfarslisti = "True"
else
Tilfarslisti = "False"
end if
%> Tilfarslisti</p>
</td>
<td width="10"></td>
<td>
<p>
<select name="TilfarslistiSeljari" id="TilfarslistiSeljari" size="1" tabindex="3">
<option value="">Seljari</option>
<option value="JAA" <% if Cstr(rs("TilfarslistiSeljari"))="JAA" then response.write "selected" %>>JAA</option>
<option value="NJO" <% if Cstr(rs("TilfarslistiSeljari"))="NJO" then response.write "selected" %>>NJO</option>
<option value="KBO" <% if Cstr(rs("TilfarslistiSeljari"))="KBO" then response.write "selected" %>>KBO</option>
<option value="DM" <% if Cstr(rs("TilfarslistiSeljari"))="DM" then response.write "selected" %>>DM</option>
<option value="HF" <% if Cstr(rs("TilfarslistiSeljari"))="HF" then response.write "selected" %>>HF</option>
<option value="RJ" <% if Cstr(rs("TilfarslistiSeljari"))="RJ" then response.write "selected" %>>RJ</option>
<option value="HKJ" <% if Cstr(rs("TilfarslistiSeljari"))="HKJ" then response.write "selected" %>>HKJ</option>
<option value="Annað" <% if Cstr(rs("TilfarslistiSeljari"))="Annað" then response.write "selected" %>>Annað</option>
</select>
</p>
</td>
<td width="20">
<p>

</p>
</td>
<td width="1"></td>
<td width="20"></td>
<td>
<p><input type="checkbox" name="Uppfylging" value="<%=rs("Uppfylging") %>" <% If rs("Uppfylging") = "True" Then %>checked<% End If %>>
<%
if lcase(Request.Form("Uppfylging")) = "ja" then
Uppfylging = "True"
else
Uppfylging = "False"
end if
%> Ásett til uppfylging</p>
</td>
<td width="10"></td>
<td>
<p>
<select name="UppfylgingSeljari" id="UppfylgingSeljari" size="1" tabindex="3">
<option value="">Seljari</option>
<option value="JAA" <% if Cstr(rs("UppfylgingSeljari"))="JAA" then response.write "selected" %> >JAA</option>
<option value="NJO" <% if Cstr(rs("UppfylgingSeljari"))="NJO" then response.write "selected" %>>NJO</option>
<option value="KBO" <% if Cstr(rs("UppfylgingSeljari"))="KBO" then response.write "selected" %>>KBO</option>
<option value="DM" <% if Cstr(rs("UppfylgingSeljari"))="DM" then response.write "selected" %>>DM</option>
<option value="HF" <% if Cstr(rs("UppfylgingSeljari"))="HF" then response.write "selected" %>>HF</option>
<option value="RJ" <% if Cstr(rs("UppfylgingSeljari"))="RJ" then response.write "selected" %>>RJ</option>
<option value="HKJ" <% if Cstr(rs("UppfylgingSeljari"))="HKJ" then response.write "selected" %>>HKJ</option>
<option value="Annað" <% if Cstr(rs("UppfylgingSeljari"))="Annað" then response.write "selected" %>>Annað</option>
</select>
</p>
</td>
</tr>
<tr>
<td>
<p><input type="checkbox" name="Innheintad" value="<%=rs("PrísInn") %>" <% If rs("PrísInn") = "True" Then %>checked<% End If %>>
<%
if lcase(Request.Form("Innheintad")) = "ja" then
Innheintad = "true"
else
Innheintad = "false"
end if
%> Innheintað prís</p>
</td>
<td width="10"></td>
<td>
<p>
<select name="InnheintadSeljari" id="InnheintadSeljari" size="1" tabindex="3">
<option value="">Seljari</option>
<option value="JAA" <% if Cstr(rs("PrísInnSeljari"))="JAA" then response.write "selected" %> >JAA</option>
<option value="NJO" <% if Cstr(rs("PrísInnSeljari"))="NJO" then response.write "selected" %>>NJO</option>
<option value="KBO" <% if Cstr(rs("PrísInnSeljari"))="KBO" then response.write "selected" %>>KBO</option>
<option value="DM" <% if Cstr(rs("PrísInnSeljari"))="DM" then response.write "selected" %>>DM</option>
<option value="HF" <% if Cstr(rs("PrísInnSeljari"))="HF" then response.write "selected" %>>HF</option>
<option value="RJ" <% if Cstr(rs("PrísInnSeljari"))="RJ" then response.write "selected" %>>RJ</option>
<option value="HKJ" <% if Cstr(rs("PrísInnSeljari"))="HKJ" then response.write "selected" %>>HKJ</option>
<option value="Annað" <% if Cstr(rs("PrísInnSeljari"))="Annað" then response.write "selected" %>>Annað</option>
</select>
</p>
</td>
<td width="20">
<p>

</p>
</td>
<td width="1"></td>
<td width="20"></td>
<td>
<p>Tilboðsnr:</p>
</td>
<td width="10"></td>
<td>
<p><input type="text" name="Tilbodsnr" value="<%=rs("Tilboðsnr")%>" size="24"></p>
</td>
</tr>
<tr>
<td>
<p><input type="checkbox" name="Inntastad" value="<%=rs("Inntastað")%>" <% If rs("Inntastað") = "True" Then %>checked<% End If %>>
<%
if lcase(Request.Form("Inntastad")) = "ja" then
Inntastad = "true"
else
Inntastad = "false"
end if
%> Inntastað</p>
</td>
<td width="10"></td>
<td>
<p>
<select name="InntastadSeljari" id="InntastadSeljari" size="1" tabindex="3">
<option value="">Seljari</option>
<option value="JAA" <% if Cstr(rs("InntastaðSeljari"))="JAA" then response.write "selected" %> >JAA</option>
<option value="NJO" <% if Cstr(rs("InntastaðSeljari"))="NJO" then response.write "selected" %>>NJO</option>
<option value="KBO" <% if Cstr(rs("InntastaðSeljari"))="KBO" then response.write "selected" %>>KBO</option>
<option value="DM" <% if Cstr(rs("InntastaðSeljari"))="DM" then response.write "selected" %>>DM</option>
<option value="HF" <% if Cstr(rs("InntastaðSeljari"))="HF" then response.write "selected" %>>HF</option>
<option value="RJ" <% if Cstr(rs("InntastaðSeljari"))="RJ" then response.write "selected" %>>RJ</option>
<option value="HKJ" <% if Cstr(rs("InntastaðSeljari"))="HKJ" then response.write "selected" %>>HKJ</option>
<option value="Annað" <% if Cstr(rs("InntastaðSeljari"))="Annað" then response.write "selected" %>>Annað</option>
</select>
</p>
</td>
<td width="20">
<p>

</p>
</td>
<td width="1"></td>
<td width="20"></td>
<td>
<p>Upphædd:</p>
</td>
<td width="10"></td>
<td>
<p><input type="text" name="Upphadd" value="<%=rs("Upphædd")%>" size="24"></p>
</td>
</tr>
<tr>
<td>
<p><input type="checkbox" name="Prissett" value="<%= rs("Príssett") %>" <% If rs("Príssett") = "True" Then %>checked<% End If %>>
<%
if lcase(Request.Form("Prissett")) = "ja" then
Prissett = "true"
else
Prissett = "false"
end if
%> Príssett</p>
</td>
<td width="10"></td>
<td>
<p>
<select name="PrissettSeljari" id="PrissettSeljari" size="1" tabindex="3">
<option value="">Seljari</option>
<option value="JAA" <% if Cstr(rs("PríssettSeljari"))="JAA" then response.write "selected" %> >JAA</option>
<option value="NJO" <% if Cstr(rs("PríssettSeljari"))="NJO" then response.write "selected" %>>NJO</option>
<option value="KBO" <% if Cstr(rs("PríssettSeljari"))="KBO" then response.write "selected" %>>KBO</option>
<option value="DM" <% if Cstr(rs("PríssettSeljari"))="DM" then response.write "selected" %>>DM</option>
<option value="HF" <% if Cstr(rs("PríssettSeljari"))="HF" then response.write "selected" %>>HF</option>
<option value="RJ" <% if Cstr(rs("PríssettSeljari"))="RJ" then response.write "selected" %>>RJ</option>
<option value="HKJ" <% if Cstr(rs("PríssettSeljari"))="HKJ" then response.write "selected" %>>HKJ</option>
<option value="Annað" <% if Cstr(rs("PríssettSeljari"))="Annað" then response.write "selected" %>>Annað</option>
</select>
</p>
</td>
<td width="20">
<p>

</p>
</td>
<td width="1"></td>
<td width="20"></td>
<td>
<p>Kostvirðið:</p>
</td>
<td width="10"></td>
<td>
<p><input type="text" name="Kostvirdid" value="<%=rs("Kostvirðið")%>" size="24"></p>
</td>
</tr>
<tr>
<td>
<p><input type="checkbox" name="Eftirkannad" value="<%= rs("Eftirkannað") %>" <% If rs("Eftirkannað") = "True" Then %>checked<% End If %>>
<%
if lcase(Request.Form("Eftirkannad")) = "ja" then
Eftirkannad = "true"
else
Eftirkannad = "false"
end if
%> Eftirkannað</p>
</td>
<td width="10"></td>
<td>
<p>
<select name="EftirkannadSeljari" id="EftirkannadSeljari" size="1" tabindex="3">
<option value="">Seljari</option>
<option value="JAA" <% if Cstr(rs("EftirkannaðSeljari"))="JAA" then response.write "selected" %> >JAA</option>
<option value="NJO" <% if Cstr(rs("EftirkannaðSeljari"))="NJO" then response.write "selected" %>>NJO</option>
<option value="KBO" <% if Cstr(rs("EftirkannaðSeljari"))="KBO" then response.write "selected" %>>KBO</option>
<option value="DM" <% if Cstr(rs("EftirkannaðSeljari"))="DM" then response.write "selected" %>>DM</option>
<option value="HF" <% if Cstr(rs("EftirkannaðSeljari"))="HF" then response.write "selected" %>>HF</option>
<option value="RJ" <% if Cstr(rs("EftirkannaðSeljari"))="RJ" then response.write "selected" %>>RJ</option>
<option value="HKJ" <% if Cstr(rs("EftirkannaðSeljari"))="HKJ" then response.write "selected" %>>HKJ</option>
<option value="Annað" <% if Cstr(rs("EftirkannaðSeljari"))="Annað" then response.write "selected" %>>Annað</option>
</select>
</p>
</td>
<td width="20">
<p>

</p>
</td>
<td width="1"></td>
<td width="20"></td>
<td>
<p>Vinningur:</p>
</td>
<td width="10"></td>
<td>
<p><input type="text" name="Vinningur" value='<%=rs("Vinningur")%>' size="24"></p>
</td>
</tr>
<tr>
<td>
<p><input type="checkbox" name="Avleverad" value="<%=rs("Avleverað")%>" <% If rs("Avleverað") = "True" Then %>checked<% End If %>>
<%
if Request.Form("Avleverad") <> "" then
Avleverad = True
else
Avleverad = False
end if
%> Avleverað</p>
</td>
<td width="10"></td>
<td>
<p>
<select name="AvleveradSeljari" id="AvleveradSeljari" size="1" tabindex="3">
<option value="">Seljari</option>
<option value="JAA" <% if Cstr(rs("AvleveraðSeljari"))="JAA" then response.write "selected" %> >JAA</option>
<option value="NJO" <% if Cstr(rs("AvleveraðSeljari"))="NJO" then response.write "selected" %>>NJO</option>
<option value="KBO" <% if Cstr(rs("AvleveraðSeljari"))="KBO" then response.write "selected" %>>KBO</option>
<option value="DM" <% if Cstr(rs("AvleveraðSeljari"))="DM" then response.write "selected" %>>DM</option>
<option value="HF" <% if Cstr(rs("AvleveraðSeljari"))="HF" then response.write "selected" %>>HF</option>
<option value="RJ" <% if Cstr(rs("AvleveraðSeljari"))="RJ" then response.write "selected" %>>RJ</option>
<option value="HKJ" <% if Cstr(rs("AvleveraðSeljari"))="HKJ" then response.write "selected" %>>HKJ</option>
<option value="Annað" <% if Cstr(rs("AvleveraðSeljari"))="Annað" then response.write "selected" %>>Annað</option>
</select>
</p>
</td>
<td width="20">
<p>

</p>
</td>
<td width="1"></td>
<td width="20"></td>
<td>
<p>Ba í %:</p>
</td>
<td width="10"></td>
<td>
<p><input type="text" name="BAiProsent" value="<%=rs("BAíProsent")%>" size="24"></p>
</td>
</tr>
<tr height="10">
<td height="10"></td>
<td width="10" height="10"></td>
<td height="10"></td>
<td width="20" height="10"></td>
<td width="1" height="10"></td>
<td width="20" height="10"></td>
<td height="10"></td>
<td width="10" height="10"></td>
<td height="10"></td>
</tr>
<tr>
<td colspan="9">
<div align="left">
<p><b>Skriva tínar viðmerkingar:</b></p>
</div>
<div align="center">
<p><textarea name="Vidmerkingar" rows="3" cols="70" tabindex="1"><%=strVidm%></textarea></p>
</div>
</td>
</tr>
<tr height="10">
<td height="10"></td>
<td width="10" height="10"></td>
<td height="10"></td>
<td width="20" height="10"></td>
<td width="1" height="10"></td>
<td width="20" height="10"></td>
<td height="10"></td>
<td width="10" height="10"></td>
<td height="10"></td>
</tr>
<tr>
<td></td>
<td width="10"></td>
<td><input type="submit" name="Send" value="Goym"></td>
<td width="20"></td>
<td width="1"></td>
<td width="20"></td>
<td></td>
<td width="10"></td>
<td></td>
</tr>
</table>
</div>
</form>
</td>
<td width="10">
<p></p>
</td>
<td bgcolor="#ffa500" width="1">
<p></p>
</td>
</tr>
<tr height="10">
<td bgcolor="#ffa500" width="1" height="10"></td>
<td width="10" height="10">
<p></p>
</td>
<td height="10">
<p></p>
</td>
<td width="10" height="10">
<p></p>
</td>
<td height="10">
<p></p>
</td>
<td width="20" height="10">
<p></p>
</td>
<td width="1" height="10">
<p></p>
</td>
<td width="20" height="10">
<p></p>
</td>
<td height="10">
<p></p>
</td>
<td width="10" height="10">
<p></p>
</td>
<td height="10">
<p></p>
</td>
<td width="10" height="10">
<p></p>
</td>
<td bgcolor="#ffa500" width="1" height="10">
<p></p>
</td>
</tr>
<tr height="1">
<td bgcolor="#ffa500" width="1" height="1"></td>
<td bgcolor="#ffa500" width="10" height="1"></td>
<td bgcolor="#ffa500" height="1"></td>
<td bgcolor="#ffa500" width="10" height="1"></td>
<td bgcolor="#ffa500" height="1"></td>
<td bgcolor="#ffa500" width="20" height="1"></td>
<td bgcolor="#ffa500" width="1" height="1"></td>
<td bgcolor="#ffa500" width="20" height="1"></td>
<td bgcolor="#ffa500" height="1"></td>
<td bgcolor="#ffa500" width="10" height="1"></td>
<td bgcolor="#ffa500" height="1"></td>
<td bgcolor="#ffa500" width="10" height="1"></td>
<td bgcolor="#ffa500" width="1" height="1"></td>
</tr>
</table>

<%
End If
%>

Synes godt om

mini-me Nybegynder

06. oktober 2005 - 13:18 #1

Får du en fejl eller hvad er dit problem?

Synes godt om

pallifo Nybegynder

06. oktober 2005 - 13:19 #2

Jeg får ingen fejl, men dataerne bliver ikke opdateret i databasen.

Synes godt om

pallifo Nybegynder

06. oktober 2005 - 13:21 #3

Jeg skal måske tilføje, at jeg øverst på samme side laver et udtræk fra en anden database. Jeg ved ikke om det kan forstyrre...

Synes godt om

mini-me Nybegynder

06. oktober 2005 - 13:24 #4

Prøv lige det her og giv mig outputtet

<%
Set myConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/INTRA/INTRADatabase/Tilbod_intra.mdb")
myConn.Open DSN

Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM TilbodStatus WHERE IDStat LIKE " & Request.QueryString("intId") & ";"
rs.Open strSQL, myConn, 1, 3

If Request.Form("Send") <> "" Then
retSQL = "UPDATE TilbodStatus SET Tilfarslisti="& Tilfarslisti &", TilfarslistiSeljari="& TilfarslistiSeljari &", PrísInn="& Innheintad &", PrísInnSeljari="& InnheintadSeljari &", Inntastað="& Inntastad &", InntastaðSeljari="& InntastadSeljari &", Príssett="& Prissett &", PríssettSeljari="& PrissettSeljari &", Eftirkannað="& Eftirkannad &", EftirkannaðSeljari="& EftirkannadSeljari &", Avleverað="& Avleverad &", AvleveraðSeljari="& AvleveradSeljari &", Uppfylging="& Uppfylging &", UppfylgingSeljari="& UppfylgingSeljari &", Tilboðsnr="& Tilbodsnr &", Upphædd="& Upphadd &", Kostvirðið="& Kostvirdid &", Vinningur="& Vinningur &", BAíProsent="& BAiProsent &", WHERE IDStat LIKE " & Request.Querystring("intId") & ";"
myConn.Execute(retSQL)
response.write(retSQL)

end if
%>

<%if not rs.EOF then%>
<form method="POST" action="tilbod_skriva.asp">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0"><input type="hidden" name="intId" value='<%=rs("IDStat")%>'>
<tr>
<td>
<p><input type="checkbox" name="Tilfarslisti" value="<%=rs("Tilfarslisti")%>" <% If rs("Tilfarslisti") = "True" Then %>checked<% End If %>>
<%
if lcase(Request.Form("Tilfarslisti")) = "ja" then
Tilfarslisti = "True"
else
Tilfarslisti = "False"
end if
%> Tilfarslisti</p>
</td>
<td width="10"></td>
<td>
<p>
<select name="TilfarslistiSeljari" id="TilfarslistiSeljari" size="1" tabindex="3">
<option value="">Seljari</option>
<option value="JAA" <% if Cstr(rs("TilfarslistiSeljari"))="JAA" then response.write "selected" %>>JAA</option>
<option value="NJO" <% if Cstr(rs("TilfarslistiSeljari"))="NJO" then response.write "selected" %>>NJO</option>
<option value="KBO" <% if Cstr(rs("TilfarslistiSeljari"))="KBO" then response.write "selected" %>>KBO</option>
<option value="DM" <% if Cstr(rs("TilfarslistiSeljari"))="DM" then response.write "selected" %>>DM</option>
<option value="HF" <% if Cstr(rs("TilfarslistiSeljari"))="HF" then response.write "selected" %>>HF</option>
<option value="RJ" <% if Cstr(rs("TilfarslistiSeljari"))="RJ" then response.write "selected" %>>RJ</option>
<option value="HKJ" <% if Cstr(rs("TilfarslistiSeljari"))="HKJ" then response.write "selected" %>>HKJ</option>
<option value="Annað" <% if Cstr(rs("TilfarslistiSeljari"))="Annað" then response.write "selected" %>>Annað</option>
</select>
</p>
</td>
<td width="20">
<p>

</p>
</td>
<td width="1"></td>
<td width="20"></td>
<td>
<p><input type="checkbox" name="Uppfylging" value="<%=rs("Uppfylging") %>" <% If rs("Uppfylging") = "True" Then %>checked<% End If %>>
<%
if lcase(Request.Form("Uppfylging")) = "ja" then
Uppfylging = "True"
else
Uppfylging = "False"
end if
%> Ásett til uppfylging</p>
</td>
<td width="10"></td>
<td>
<p>
<select name="UppfylgingSeljari" id="UppfylgingSeljari" size="1" tabindex="3">
<option value="">Seljari</option>
<option value="JAA" <% if Cstr(rs("UppfylgingSeljari"))="JAA" then response.write "selected" %> >JAA</option>
<option value="NJO" <% if Cstr(rs("UppfylgingSeljari"))="NJO" then response.write "selected" %>>NJO</option>
<option value="KBO" <% if Cstr(rs("UppfylgingSeljari"))="KBO" then response.write "selected" %>>KBO</option>
<option value="DM" <% if Cstr(rs("UppfylgingSeljari"))="DM" then response.write "selected" %>>DM</option>
<option value="HF" <% if Cstr(rs("UppfylgingSeljari"))="HF" then response.write "selected" %>>HF</option>
<option value="RJ" <% if Cstr(rs("UppfylgingSeljari"))="RJ" then response.write "selected" %>>RJ</option>
<option value="HKJ" <% if Cstr(rs("UppfylgingSeljari"))="HKJ" then response.write "selected" %>>HKJ</option>
<option value="Annað" <% if Cstr(rs("UppfylgingSeljari"))="Annað" then response.write "selected" %>>Annað</option>
</select>
</p>
</td>
</tr>
<tr>
<td>
<p><input type="checkbox" name="Innheintad" value="<%=rs("PrísInn") %>" <% If rs("PrísInn") = "True" Then %>checked<% End If %>>
<%
if lcase(Request.Form("Innheintad")) = "ja" then
Innheintad = "true"
else
Innheintad = "false"
end if
%> Innheintað prís</p>
</td>
<td width="10"></td>
<td>
<p>
<select name="InnheintadSeljari" id="InnheintadSeljari" size="1" tabindex="3">
<option value="">Seljari</option>
<option value="JAA" <% if Cstr(rs("PrísInnSeljari"))="JAA" then response.write "selected" %> >JAA</option>
<option value="NJO" <% if Cstr(rs("PrísInnSeljari"))="NJO" then response.write "selected" %>>NJO</option>
<option value="KBO" <% if Cstr(rs("PrísInnSeljari"))="KBO" then response.write "selected" %>>KBO</option>
<option value="DM" <% if Cstr(rs("PrísInnSeljari"))="DM" then response.write "selected" %>>DM</option>
<option value="HF" <% if Cstr(rs("PrísInnSeljari"))="HF" then response.write "selected" %>>HF</option>
<option value="RJ" <% if Cstr(rs("PrísInnSeljari"))="RJ" then response.write "selected" %>>RJ</option>
<option value="HKJ" <% if Cstr(rs("PrísInnSeljari"))="HKJ" then response.write "selected" %>>HKJ</option>
<option value="Annað" <% if Cstr(rs("PrísInnSeljari"))="Annað" then response.write "selected" %>>Annað</option>
</select>
</p>
</td>
<td width="20">
<p>

</p>
</td>
<td width="1"></td>
<td width="20"></td>
<td>
<p>Tilboðsnr:</p>
</td>
<td width="10"></td>
<td>
<p><input type="text" name="Tilbodsnr" value="<%=rs("Tilboðsnr")%>" size="24"></p>
</td>
</tr>
<tr>
<td>
<p><input type="checkbox" name="Inntastad" value="<%=rs("Inntastað")%>" <% If rs("Inntastað") = "True" Then %>checked<% End If %>>
<%
if lcase(Request.Form("Inntastad")) = "ja" then
Inntastad = "true"
else
Inntastad = "false"
end if
%> Inntastað</p>
</td>
<td width="10"></td>
<td>
<p>
<select name="InntastadSeljari" id="InntastadSeljari" size="1" tabindex="3">
<option value="">Seljari</option>
<option value="JAA" <% if Cstr(rs("InntastaðSeljari"))="JAA" then response.write "selected" %> >JAA</option>
<option value="NJO" <% if Cstr(rs("InntastaðSeljari"))="NJO" then response.write "selected" %>>NJO</option>
<option value="KBO" <% if Cstr(rs("InntastaðSeljari"))="KBO" then response.write "selected" %>>KBO</option>
<option value="DM" <% if Cstr(rs("InntastaðSeljari"))="DM" then response.write "selected" %>>DM</option>
<option value="HF" <% if Cstr(rs("InntastaðSeljari"))="HF" then response.write "selected" %>>HF</option>
<option value="RJ" <% if Cstr(rs("InntastaðSeljari"))="RJ" then response.write "selected" %>>RJ</option>
<option value="HKJ" <% if Cstr(rs("InntastaðSeljari"))="HKJ" then response.write "selected" %>>HKJ</option>
<option value="Annað" <% if Cstr(rs("InntastaðSeljari"))="Annað" then response.write "selected" %>>Annað</option>
</select>
</p>
</td>
<td width="20">
<p>

</p>
</td>
<td width="1"></td>
<td width="20"></td>
<td>
<p>Upphædd:</p>
</td>
<td width="10"></td>
<td>
<p><input type="text" name="Upphadd" value="<%=rs("Upphædd")%>" size="24"></p>
</td>
</tr>
<tr>
<td>
<p><input type="checkbox" name="Prissett" value="<%= rs("Príssett") %>" <% If rs("Príssett") = "True" Then %>checked<% End If %>>
<%
if lcase(Request.Form("Prissett")) = "ja" then
Prissett = "true"
else
Prissett = "false"
end if
%> Príssett</p>
</td>
<td width="10"></td>
<td>
<p>
<select name="PrissettSeljari" id="PrissettSeljari" size="1" tabindex="3">
<option value="">Seljari</option>
<option value="JAA" <% if Cstr(rs("PríssettSeljari"))="JAA" then response.write "selected" %> >JAA</option>
<option value="NJO" <% if Cstr(rs("PríssettSeljari"))="NJO" then response.write "selected" %>>NJO</option>
<option value="KBO" <% if Cstr(rs("PríssettSeljari"))="KBO" then response.write "selected" %>>KBO</option>
<option value="DM" <% if Cstr(rs("PríssettSeljari"))="DM" then response.write "selected" %>>DM</option>
<option value="HF" <% if Cstr(rs("PríssettSeljari"))="HF" then response.write "selected" %>>HF</option>
<option value="RJ" <% if Cstr(rs("PríssettSeljari"))="RJ" then response.write "selected" %>>RJ</option>
<option value="HKJ" <% if Cstr(rs("PríssettSeljari"))="HKJ" then response.write "selected" %>>HKJ</option>
<option value="Annað" <% if Cstr(rs("PríssettSeljari"))="Annað" then response.write "selected" %>>Annað</option>
</select>
</p>
</td>
<td width="20">
<p>

</p>
</td>
<td width="1"></td>
<td width="20"></td>
<td>
<p>Kostvirðið:</p>
</td>
<td width="10"></td>
<td>
<p><input type="text" name="Kostvirdid" value="<%=rs("Kostvirðið")%>" size="24"></p>
</td>
</tr>
<tr>
<td>
<p><input type="checkbox" name="Eftirkannad" value="<%= rs("Eftirkannað") %>" <% If rs("Eftirkannað") = "True" Then %>checked<% End If %>>
<%
if lcase(Request.Form("Eftirkannad")) = "ja" then
Eftirkannad = "true"
else
Eftirkannad = "false"
end if
%> Eftirkannað</p>
</td>
<td width="10"></td>
<td>
<p>
<select name="EftirkannadSeljari" id="EftirkannadSeljari" size="1" tabindex="3">
<option value="">Seljari</option>
<option value="JAA" <% if Cstr(rs("EftirkannaðSeljari"))="JAA" then response.write "selected" %> >JAA</option>
<option value="NJO" <% if Cstr(rs("EftirkannaðSeljari"))="NJO" then response.write "selected" %>>NJO</option>
<option value="KBO" <% if Cstr(rs("EftirkannaðSeljari"))="KBO" then response.write "selected" %>>KBO</option>
<option value="DM" <% if Cstr(rs("EftirkannaðSeljari"))="DM" then response.write "selected" %>>DM</option>
<option value="HF" <% if Cstr(rs("EftirkannaðSeljari"))="HF" then response.write "selected" %>>HF</option>
<option value="RJ" <% if Cstr(rs("EftirkannaðSeljari"))="RJ" then response.write "selected" %>>RJ</option>
<option value="HKJ" <% if Cstr(rs("EftirkannaðSeljari"))="HKJ" then response.write "selected" %>>HKJ</option>
<option value="Annað" <% if Cstr(rs("EftirkannaðSeljari"))="Annað" then response.write "selected" %>>Annað</option>
</select>
</p>
</td>
<td width="20">
<p>

</p>
</td>
<td width="1"></td>
<td width="20"></td>
<td>
<p>Vinningur:</p>
</td>
<td width="10"></td>
<td>
<p><input type="text" name="Vinningur" value='<%=rs("Vinningur")%>' size="24"></p>
</td>
</tr>
<tr>
<td>
<p><input type="checkbox" name="Avleverad" value="<%=rs("Avleverað")%>" <% If rs("Avleverað") = "True" Then %>checked<% End If %>>
<%
if Request.Form("Avleverad") <> "" then
Avleverad = True
else
Avleverad = False
end if
%> Avleverað</p>
</td>
<td width="10"></td>
<td>
<p>
<select name="AvleveradSeljari" id="AvleveradSeljari" size="1" tabindex="3">
<option value="">Seljari</option>
<option value="JAA" <% if Cstr(rs("AvleveraðSeljari"))="JAA" then response.write "selected" %> >JAA</option>
<option value="NJO" <% if Cstr(rs("AvleveraðSeljari"))="NJO" then response.write "selected" %>>NJO</option>
<option value="KBO" <% if Cstr(rs("AvleveraðSeljari"))="KBO" then response.write "selected" %>>KBO</option>
<option value="DM" <% if Cstr(rs("AvleveraðSeljari"))="DM" then response.write "selected" %>>DM</option>
<option value="HF" <% if Cstr(rs("AvleveraðSeljari"))="HF" then response.write "selected" %>>HF</option>
<option value="RJ" <% if Cstr(rs("AvleveraðSeljari"))="RJ" then response.write "selected" %>>RJ</option>
<option value="HKJ" <% if Cstr(rs("AvleveraðSeljari"))="HKJ" then response.write "selected" %>>HKJ</option>
<option value="Annað" <% if Cstr(rs("AvleveraðSeljari"))="Annað" then response.write "selected" %>>Annað</option>
</select>
</p>
</td>
<td width="20">
<p>

</p>
</td>
<td width="1"></td>
<td width="20"></td>
<td>
<p>Ba í %:</p>
</td>
<td width="10"></td>
<td>
<p><input type="text" name="BAiProsent" value="<%=rs("BAíProsent")%>" size="24"></p>
</td>
</tr>
<tr height="10">
<td height="10"></td>
<td width="10" height="10"></td>
<td height="10"></td>
<td width="20" height="10"></td>
<td width="1" height="10"></td>
<td width="20" height="10"></td>
<td height="10"></td>
<td width="10" height="10"></td>
<td height="10"></td>
</tr>
<tr>
<td colspan="9">
<div align="left">
<p><b>Skriva tínar viðmerkingar:</b></p>
</div>
<div align="center">
<p><textarea name="Vidmerkingar" rows="3" cols="70" tabindex="1"><%=strVidm%></textarea></p>
</div>
</td>
</tr>
<tr height="10">
<td height="10"></td>
<td width="10" height="10"></td>
<td height="10"></td>
<td width="20" height="10"></td>
<td width="1" height="10"></td>
<td width="20" height="10"></td>
<td height="10"></td>
<td width="10" height="10"></td>
<td height="10"></td>
</tr>
<tr>
<td></td>
<td width="10"></td>
<td><input type="submit" name="Send" value="Goym"></td>
<td width="20"></td>
<td width="1"></td>
<td width="20"></td>
<td></td>
<td width="10"></td>
<td></td>
</tr>
</table>
</div>
</form>
</td>
<td width="10">
<p></p>
</td>
<td bgcolor="#ffa500" width="1">
<p></p>
</td>
</tr>
<tr height="10">
<td bgcolor="#ffa500" width="1" height="10"></td>
<td width="10" height="10">
<p></p>
</td>
<td height="10">
<p></p>
</td>
<td width="10" height="10">
<p></p>
</td>
<td height="10">
<p></p>
</td>
<td width="20" height="10">
<p></p>
</td>
<td width="1" height="10">
<p></p>
</td>
<td width="20" height="10">
<p></p>
</td>
<td height="10">
<p></p>
</td>
<td width="10" height="10">
<p></p>
</td>
<td height="10">
<p></p>
</td>
<td width="10" height="10">
<p></p>
</td>
<td bgcolor="#ffa500" width="1" height="10">
<p></p>
</td>
</tr>
<tr height="1">
<td bgcolor="#ffa500" width="1" height="1"></td>
<td bgcolor="#ffa500" width="10" height="1"></td>
<td bgcolor="#ffa500" height="1"></td>
<td bgcolor="#ffa500" width="10" height="1"></td>
<td bgcolor="#ffa500" height="1"></td>
<td bgcolor="#ffa500" width="20" height="1"></td>
<td bgcolor="#ffa500" width="1" height="1"></td>
<td bgcolor="#ffa500" width="20" height="1"></td>
<td bgcolor="#ffa500" height="1"></td>
<td bgcolor="#ffa500" width="10" height="1"></td>
<td bgcolor="#ffa500" height="1"></td>
<td bgcolor="#ffa500" width="10" height="1"></td>
<td bgcolor="#ffa500" width="1" height="1"></td>
</tr>
</table>

<%
End If
%>

Synes godt om

pallifo Nybegynder

06. oktober 2005 - 13:35 #5

Det ændrer ikke på noget...

Er det pga. at jeg i starten på formularen har følgende:
<form method="POST" action="tilbod_skriva.asp">?

Synes godt om

pallifo Nybegynder

06. oktober 2005 - 13:49 #6

Jeg har set at andre i dette tilfælde bruger

<form method="POST" action="<%=request.servervariables("SCRIPT_NAME")%>">

...men det ser ikke ud til at fungere for mig, da udtrækket øverst på siden bliver kaldt med: tilbod_status.asp?intId="& rs("ID") &"

Synes godt om

softspot Forsker

06. oktober 2005 - 17:02 #7

Det ser ud til at du baserer dit SELECT på en querystring-parameter, men den fører du ikke med over i dit form-POST. Hvis du skal have overført parametre til siden via den sidste metode du beskriver, så skal du også sende request.querystring med i action. Nogenlunde således:

<form method="POST" action="<%=request.servervariables("SCRIPT_NAME")%>?<%=Request.QueryString%>">

Det kan dog godt være det spørgsmålstegn kommer til at drille, men så kan du tage forbehold for en tom querystring, hvis det bliver nødvendigt...

Synes godt om

pallifo Nybegynder

06. oktober 2005 - 17:22 #8

Det hjalp lidt... men nu får jeg denne fejl når jeg trykker 'send':

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.
/INTRA/tilbod/tilbod_status.asp, line 465

Linje 465 er:

463 If Request.Form("Send") <> "" Then
464 retSQL = "UPDATE TilbodStatus SET Tilfarslisti="& Tilfarslisti &", TilfarslistiSeljari="& TilfarslistiSeljari &", PrísInn="& Innheintad &", PrísInnSeljari="& InnheintadSeljari &", Inntastað="& Inntastad &", InntastaðSeljari="& InntastadSeljari &", Príssett="& Prissett &", PríssettSeljari="& PrissettSeljari &", Eftirkannað="& Eftirkannad &", EftirkannaðSeljari="& EftirkannadSeljari &", Avleverað="& Avleverad &", AvleveraðSeljari="& AvleveradSeljari &", Uppfylging="& Uppfylging &", UppfylgingSeljari="& UppfylgingSeljari &", Tilboðsnr="& Tilbodsnr &", Upphædd="& Upphadd &", Kostvirðið="& Kostvirdid &", Vinningur="& Vinningur &", BAíProsent="& BAiProsent &", WHERE IDStat LIKE " & Request.Querystring("intIdStat") & ";"
465 myConn.Execute(retSQL)

Er det fordi jeg igen bruger Request.Querystring i SQL-sætningen?

Synes godt om

softspot Forsker

06. oktober 2005 - 17:36 #9

Næh, men jeg kunne forstille mig det har noget med konflikt mellem datatyperne af dine felter i databasen kontra den datataype du indikerer i din SQL. Er der ikke nogen af dine felter der er strenge f.eks.?

Synes godt om

softspot Forsker

06. oktober 2005 - 17:38 #10

I øvrigt synes jeg der forekommer en del specialtegn, hvilket typisk betyder at du skal bruge [] omkring feltnavnet, f.eks.:

Tilboðsnr ==> [Tilboðsnr]

eller

Upphædd ==> [Upphædd]

Synes godt om

pallifo Nybegynder

06. oktober 2005 - 17:52 #11

Ved feltnavn mener du felterne i formularen, eller hvad? I formularen har jeg ikke nogle specialtegn, kun i databasen. Skal der så f.eks. stå [Tilboðsnr]="& Tilbodsnr &" ?

Synes godt om

pallifo Nybegynder

06. oktober 2005 - 18:02 #12

Jeg har, i andre tilfælder, brugt specialtegn på kolonnenavn i databasen uden at det har skabt mig problemer.

Synes godt om

softspot Forsker

06. oktober 2005 - 18:22 #13

Jeg siger ikke at det nødvendigvis ER et problem, men bare at der traditionelt har været problemer med at benytte ikke-engelske tegn feltnavne. Jeg vil dog tro at de forskellige systemer efterhånden er blevet bedre til at håndtere disse udfordringer...

Men for at svare på 17:52:17, så: ja.

Så skal du bare være opmærksom på datatyperne. For tekst-felter skal værdien omstilles med apostroffer (') når du indsætter/opdaterer data på den måde som du gør her.

Ud over det vil jeg da anbefale dig at formatere koden så den bliver lidt lettere at overskue. Jeg benytter selv dette format for længere SQL-sætninger:

retSQL = "UPDATE TilbodStatus SET " & _
" Tilfarslisti="& Tilfarslisti & _
",TilfarslistiSeljari="& TilfarslistiSeljari & _
", PrísInn="& Innheintad & _
", PrísInnSeljari="& InnheintadSeljari & _
", Inntastað="& Inntastad & _
", InntastaðSeljari="& InntastadSeljari & _
", Príssett="& Prissett & _
", PríssettSeljari="& PrissettSeljari & _
", Eftirkannað="& Eftirkannad & _
", EftirkannaðSeljari="& EftirkannadSeljari & _
", Avleverað="& Avleverad & _
", AvleveraðSeljari="& AvleveradSeljari & -
", Uppfylging="& Uppfylging & _
", UppfylgingSeljari="& UppfylgingSeljari & _
", Tilboðsnr="& Tilbodsnr & _
", Upphædd="& Upphadd & _
", Kostvirðið="& Kostvirdid & _
", Vinningur="& Vinningur & _
", BAíProsent="& BAiProsent & _
"WHERE IDStat LIKE " & Request.Querystring("intIdStat") & ";"

Bemærk at jeg i denne process fandt ud af at der stod et komma inden WHERE (hvilket er ulovligt), så det beviser vist min pointe med al ønskelig tydelighed :)

Synes godt om

softspot Forsker

06. oktober 2005 - 18:23 #14

Ydermere kan du ikke bruge LIKE for talværdier, så din WHERE-clause skal ændres til:

"WHERE IDStat = " & Request.Querystring("intIdStat") & ";"

Synes godt om

pallifo Nybegynder

06. oktober 2005 - 18:55 #15

Ja, du har en point med, at det er tydeligere :o) Det har jeg rettet, men jeg får stadig denne fejlmeldelse :o(

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.
/INTRA/tilbod/tilbod_status.asp, line 488

Synes godt om

softspot Forsker

06. oktober 2005 - 19:29 #16

så er du nok nød til at fortælle mig hvilke typer de forskellige felter har, for jeg kan ikke lige se andre problemer med selve SQL-syntaksen (under den forudsætning at alle felter indeholder tal).

Synes godt om

pallifo Nybegynder

06. oktober 2005 - 19:46 #17

Først må jeg takke for din udholdenhed :o)

Her er min database:

IDStat = Autonummerering
Upprættað = Tekst
Tilfarslisti = Ja/Nej
TilfarslistiSeljari = Tekst
PrísInn = Ja/Nej
PrísInnSeljari = Tekst
Inntastað = Ja/Nej
InntastaðSeljari = Tekst
Príssett = Ja/Nej
PríssettSeljari = Tekst
Eftirkannað = Ja/Nej
EftirkannaðSeljari = Tekst
Avleverað = Ja/Nej
AvleveraðSeljari = Tekst
Uppfylging = Ja/Nej
UppfylgingSeljari = Tekst
Tilboðsnr = Tekst
Upphædd = Tekst
Kostvirðið = Tekst
Vinningur = Tekst
BAíProsent = Tekst
Viðmerkingar = Notat

Kolonnerne 'IDStat', 'Upprættað' og 'Viðmerkingar' skal ikke opdateres, og har jeg derfor ikke taget dem med i min SQL-sætning.

Synes godt om

pallifo Nybegynder

06. oktober 2005 - 19:54 #18

Jeg har nu rettet min SQL-sætning, så den ser således ud:

if Request("Send") = "" then
retSQL="SELECT * FROM TilbodStatus WHERE IDStat = " & Request.QueryString("intId") & ";"
myConn.Execute(retSQL)
else
retSQL = "UPDATE TilbodStatus SET " & _
" Tilfarslisti="& Request.QueryString("Tilfarslisti") & _
",TilfarslistiSeljari='"& Request.QueryString("TilfarslistiSeljari") & _
"', PrísInn="& Request.QueryString("Innheintad") & _
", PrísInnSeljari='"& Request.QueryString("InnheintadSeljari") & _
"', Inntastað="& Request.QueryString("Inntastad") & _
", InntastaðSeljari='"& Request.QueryString("InntastadSeljari") & _
"', Príssett="& Request.QueryString("Prissett") & _
", PríssettSeljari='"& Request.QueryString("PrissettSeljari") & _
"', Eftirkannað="& Request.QueryString("Eftirkannad") & _
", EftirkannaðSeljari='"& Request.QueryString("EftirkannadSeljari") & _
"', Avleverað="& Request.QueryString("Avleverad") & _
", AvleveraðSeljari='"& Request.QueryString("AvleveradSeljari") & _
"', Uppfylging="& Request.QueryString("Uppfylging") & _
", UppfylgingSeljari='"& Request.QueryString("UppfylgingSeljari") & _
"', Tilboðsnr='"& Request.QueryString("Tilbodsnr") & _
"', Upphædd='"& Request.QueryString("Upphadd") & _
"', Kostvirðið='"& Request.QueryString("Kostvirdid") & _
"', Vinningur='"& Request.QueryString("Vinningur") & _
"', BAíProsent='"& Request.QueryString("BAiProsent") & _
" WHERE IDStat = "& Request.QueryString("intId") & ";"
myConn.Execute(retSQL)
Response.Write(retSQL)
Response.Buffer=true
Response.Clear
Response.Redirect "tilbod_skriva.asp"
Response.end
end if

Nu skulle der vær taget højde for, at alle felterne ikke er tal :o) Men jeg får stadig den samme fejlmelding :o(

Synes godt om

pallifo Nybegynder

06. oktober 2005 - 20:02 #19

Jeg har også prøvet med [] rundt om ordene med specialtegn, men det giver det samme :o(

Synes godt om

softspot Forsker

06. oktober 2005 - 21:15 #20

OK, der var lige en ting jeg havde overset (hvor utroligt det end lyder), men du skal nok bruge Request.Form i stedet for Request.QueryString... :)

Jeg er klar over at du har nævnt det tidligere, men jeg troede du refererede til noget andet i din kode, hvor du også benytter Request.QueryString. Jeg undskylder at det tog så lang tid for mig at fatte hvad du mente, men jeg tror det vil afhjælpe de sidste problemer. Hvis ikke, så vil jeg anbefale at du checker nøje, om der er en stavefejl i et af feltnavnene, eller om der er en af tal-værdierne som er tomme (hvilket der jo har været indtil nu, da Request.QueryString for alle felterne jo ikke har indeholdt noget).

Synes godt om

pallifo Nybegynder

06. oktober 2005 - 21:49 #21

Nu har jeg prøvet at udfylde alle felterne i databasen, og så redirect'er den til "tilbod_skriva.asp" hvilket var det jeg ville. Men hvis en af checkbox'ene ikke er hakket af, så melder den igen denne fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.
/INTRA/tilbod/tilbod_status.asp, line 489

Er det så formularen, der er problemet?

Synes godt om

pallifo Nybegynder

06. oktober 2005 - 22:08 #22

Nu fungerer den... næsten :o) Nu er der kun problemer med checkboxene, resten opdaterer fint. Nedenfor et eksempel på mine checkbox's:

<p><input type="checkbox" name="Tilfarslisti" id="Tilfarslisti" value="<%=rs("Tilfarslisti")%>" <% If rs("Tilfarslisti") = True Then %>checked<% End If %>>
<%
if Trim(Request.Form("Tilfarslisti")) <> "" then
Tilfarslisti = "True"
else
Tilfarslisti = "False"
end if
%> Tilfarslisti</p>

Hvad er fejlen med denne? Undskyld at jeg ikke lader dig få fred, men please hjælp mig med denne, så jeg får fred i sjælen :o)

Synes godt om

softspot Forsker

06. oktober 2005 - 23:02 #23

Hvis en checkbox ikke er checket bliver den ikke sendt til serveren, dvs. du kan ikke finde den i din Request.Form-collection. Det betyder at når du gemmer værdien i databasen, skal du lave det trick som du også laver når du genererer formularen til browseren. Altså

if Trim(Request.Form("Tilfarslisti")) <> "" then
Tilfarslisti = "True"
else
Tilfarslisti = "False"
end if

og så i din update benytte variablen Tilfarslisti (som du også gjorde til at starte med):

retSQL = "UPDATE TilbodStatus SET " & _
" Tilfarslisti="& Tilfarslisti & _
...osv...

Synes godt om

pallifo Nybegynder

06. oktober 2005 - 23:32 #24

Nu har jeg prøvet det du anbefalede, men jeg kan ikke få det til at fungere... Skal linjen i formularen stå uændret?

<input type="checkbox" name="Tilfarslisti" id="Tilfarslisti" value="<%=rs("Tilfarslisti")%>" <% If rs("Tilfarslisti") = True Then %>checked<% End If %>>

Synes godt om

softspot Forsker

06. oktober 2005 - 23:39 #25

Prøv lige at smide hele den nuværende kode, jeg kan ikke helt få overblik over alle de ændringer der er lavet siden udgangspunktet.

Synes godt om

pallifo Nybegynder

06. oktober 2005 - 23:45 #26

Jeg beundrer din ihærdighed :o) Her er koden:

<%
Set myConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/INTRA/INTRADatabase/Tilbod_intra.mdb")
myConn.Open DSN

Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM TilbodStatus WHERE IDStat = " & Request.QueryString("intId") & ";"

rs.Open strSQL, myConn, 1, 3

if Request("Send") = "" then
strSQL="SELECT * FROM TilbodStatus WHERE IDStat = " & Request.QueryString("intId") & ";"
myConn.Execute(strSQL)
else
strSQL = "UPDATE TilbodStatus SET " & _
" Tilfarslisti="& Request.Form("Tilfarslisti") & _
",TilfarslistiSeljari='"& Request.Form("TilfarslistiSeljari") & _
"', PrísInn=" & Request.Form("Innheintad") & _
", PrísInnSeljari='"& Request.Form("InnheintadSeljari") & _
"', Inntastað=" & Request.Form("Inntastad") & _
", InntastaðSeljari='"& Request.Form("InntastadSeljari") & _
"', Príssett=" & Request.Form("Prissett") & _
", PríssettSeljari='"& Request.Form("PrissettSeljari") & _
"', Eftirkannað=" & Request.Form("Eftirkannad") & _
", EftirkannaðSeljari='"& Request.Form("EftirkannadSeljari") & _
"', Avleverað=" & Request.Form("Avleverad") & _
", AvleveraðSeljari='"& Request.Form("AvleveradSeljari") & _
"', Uppfylging=" & Request.Form("Uppfylging") & _
", UppfylgingSeljari='"& Request.Form("UppfylgingSeljari") & _
"', Tilboðsnr='"& Request.Form("Tilbodsnr") & _
"', Upphædd='"& Request.Form("Upphadd") & _
"', Kostvirðið='"& Request.Form("Kostvirdid") & _
"', Vinningur='"& Request.Form("Vinningur") & _
"', BAíProsent='"& Request.Form("BAiProsent") & _
"' WHERE IDStat = "& Request.QueryString("intId") &";"
myConn.Execute(strSQL)
Response.Buffer=true
Response.Clear
Response.Redirect "tilbod_skriva.asp"
Response.end
end if
%>

<%if not rs.EOF then%>
<form method="POST" action="<%=request.servervariables("SCRIPT_NAME")%>?<%=Request.QueryString%>">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<p><input type="checkbox" name="Tilfarslisti" id="Tilfarslisti" value="<%=rs("Tilfarslisti")%>" <% If rs("Tilfarslisti") = True Then %>checked<% End If %>>
<%
if Trim(Request.Form("Tilfarslisti")) = "True" then
Tilfarslisti = "True"
else
Tilfarslisti = "False"
end if
%> Tilfarslisti</p>

Med denne kode opdaterer den alle felterne uden checkboxene... eller vil du have koden over hele siden?

Synes godt om

softspot Forsker

07. oktober 2005 - 00:09 #27

Jeg bliver ved fordi jeg tror på at der er en udfordring som jeg kan overkomme ;)

Anyway! Du kan ændre dette stykke kode:

if Request("Send") = "" then
strSQL="SELECT * FROM TilbodStatus WHERE IDStat = " & Request.QueryString("intId") & ";"
myConn.Execute(strSQL)
else

til:

if Request("Send") <> "" then

for den første udgave har ikke nogen effekt (andet end at lave et overflødig databasekald). Rent faktisk vil jeg anbefale dig at flytte den første SELECT ned efter if-blokken, da det ikke er hver gang den skal udføres (hvis det er et post, er det bare spildt arbejde og spildte resurser).

Dernæst kan du ændre dette kode:

strSQL = "UPDATE TilbodStatus SET " & _
" Tilfarslisti="& Request.Form("Tilfarslisti") & _
",TilfarslistiSeljari='"& Request.Form("TilfarslistiSeljari") & _
"', PrísInn=" & Request.Form("Innheintad") & _
", PrísInnSeljari='"& Request.Form("InnheintadSeljari") & _
"', Inntastað=" & Request.Form("Inntastad") & _
", InntastaðSeljari='"& Request.Form("InntastadSeljari") & _
"', Príssett=" & Request.Form("Prissett") & _
", PríssettSeljari='"& Request.Form("PrissettSeljari") & _
"', Eftirkannað=" & Request.Form("Eftirkannad") & _
", EftirkannaðSeljari='"& Request.Form("EftirkannadSeljari") & _
"', Avleverað=" & Request.Form("Avleverad") & _
", AvleveraðSeljari='"& Request.Form("AvleveradSeljari") & _
"', Uppfylging=" & Request.Form("Uppfylging") & _
", UppfylgingSeljari='"& Request.Form("UppfylgingSeljari") & _
"', Tilboðsnr='"& Request.Form("Tilbodsnr") & _
"', Upphædd='"& Request.Form("Upphadd") & _
"', Kostvirðið='"& Request.Form("Kostvirdid") & _
"', Vinningur='"& Request.Form("Vinningur") & _
"', BAíProsent='"& Request.Form("BAiProsent") & _
"' WHERE IDStat = "& Request.QueryString("intId") &";"

til:

strSQL = "UPDATE TilbodStatus SET " & _
" Tilfarslisti="& Request.Form("Tilfarslisti") <> "" & _
",TilfarslistiSeljari='"& Request.Form("TilfarslistiSeljari") & "'" & _
", PrísInn=" & Request.Form("Innheintad") <> "" & _
", PrísInnSeljari='"& Request.Form("InnheintadSeljari") & "'" & _
", Inntastað=" & Request.Form("Inntastad") <> "" & _
", InntastaðSeljari='"& Request.Form("InntastadSeljari") & "'" & _
", Príssett=" & Request.Form("Prissett") <> "" & _
", PríssettSeljari='"& Request.Form("PrissettSeljari") & "'" & _
", Eftirkannað=" & Request.Form("Eftirkannad") <> "" & _
", EftirkannaðSeljari='"& Request.Form("EftirkannadSeljari") & "'" & _
", Avleverað=" & Request.Form("Avleverad") <> "" & _
", AvleveraðSeljari='"& Request.Form("AvleveradSeljari") & "'" & _
", Uppfylging=" & Request.Form("Uppfylging") <> "" & _
", UppfylgingSeljari='"& Request.Form("UppfylgingSeljari") & "'" & _
", Tilboðsnr='"& Request.Form("Tilbodsnr") & "'" & _
", Upphædd='"& Request.Form("Upphadd") & "'" & _
", Kostvirðið='"& Request.Form("Kostvirdid") & "'" & _
", Vinningur='"& Request.Form("Vinningur") & "'" & _
", BAíProsent='"& Request.Form("BAiProsent") & "'" & _
" WHERE IDStat = "& Request.QueryString("intId") &";"

Det der er sket med koden ovenfor, er at jeg undersøger om indeholdet af checkboxfelterne på formularen der postes er en tom streng. Hvis den er tom resulterer det i false og ellers true.

Desuden har jeg pillet ved formen af ombrydningen. Jeg synes det er mere læsbart at have HELE feltet (incl. værditildelingen) defineret på samme linie, så alle tekstfelters afsluttende apostrof er flyttet op på samme linie som feltet - det er bare noget flueknepperi, som gør at jeg har det bedre, så det kan du jo tage med eller lade ligge som du synes :)

Synes godt om

pallifo Nybegynder

07. oktober 2005 - 00:21 #28

Jeg har lavet de ændringer og får nu denne fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.
/INTRA/tilbod/tilbod_status.asp, line 481

Synes godt om

softspot Forsker

07. oktober 2005 - 00:29 #29

Hmmm... mon der mangler en liniecontinuation (underscore) et eller andet sted eller en apostrof (har checket koden jeg postede sidst igennem og kunne ikke finde noget problem, men derfor kan det jo godt være du kan :)).

Dernæst kunne du måske prøve at sætte de udtryk hvor jeg sammenligner med en tom streng i parantes, altså f.eks.:

" Tilfarslisti="& (Request.Form("Tilfarslisti") <> "") & _

Synes godt om

pallifo Nybegynder

07. oktober 2005 - 00:40 #30

Der var den :o) Det var paranteserne, som gjorde forskellen. Jeg poster lige koden igen:

<%
Set myConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/INTRA/INTRADatabase/Tilbod_intra.mdb")
myConn.Open DSN

if Request("Send") <> "" then
strSQL = "UPDATE TilbodStatus SET " & _
" Tilfarslisti="& (Request.Form("Tilfarslisti") <> "") & _
", TilfarslistiSeljari='"& Request.Form("TilfarslistiSeljari") & "'" & _
", PrísInn=" & (Request.Form("Innheintad") <> "") & _
", PrísInnSeljari='"& Request.Form("InnheintadSeljari") & "'" & _
", Inntastað=" & (Request.Form("Inntastad") <> "") & _
", InntastaðSeljari='"& Request.Form("InntastadSeljari") & "'" & _
", Príssett=" & (Request.Form("Prissett") <> "") & _
", PríssettSeljari='"& Request.Form("PrissettSeljari") & "'" & _
", Eftirkannað=" & (Request.Form("Eftirkannad") <> "") & _
", EftirkannaðSeljari='"& Request.Form("EftirkannadSeljari") & "'" & _
", Avleverað=" & (Request.Form("Avleverad") <> "") & _
", AvleveraðSeljari='"& Request.Form("AvleveradSeljari") & "'" & _
", Uppfylging=" & (Request.Form("Uppfylging") <> "") & _
", UppfylgingSeljari='"& Request.Form("UppfylgingSeljari") & "'" & _
", Tilboðsnr='"& Request.Form("Tilbodsnr") & "'" & _
", Upphædd='"& Request.Form("Upphadd") & "'" & _
", Kostvirðið='"& Request.Form("Kostvirdid") & "'" & _
", Vinningur='"& Request.Form("Vinningur") & "'" & _
", BAíProsent='"& Request.Form("BAiProsent") & "'" & _
" WHERE IDStat = "& Request.QueryString("intId") &";"
myConn.Execute(strSQL)
Response.Buffer=true
Response.Clear
Response.Redirect "tilbod_skriva.asp"
Response.end
end if

Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM TilbodStatus WHERE IDStat = " & Request.QueryString("intId") & ";"
rs.Open strSQL, myConn, 1, 3

%>

<%if not rs.EOF then%>
<form method="POST" action="<%=request.servervariables("SCRIPT_NAME")%>?<%=Request.QueryString%>">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<p><input type="checkbox" name="Tilfarslisti" id="Tilfarslisti" value="<%=rs("Tilfarslisti")%>" <% If rs("Tilfarslisti") = True Then %>checked<% End If %>>
<%
if Trim(Request.Form("Tilfarslisti")) = "True" then
Tilfarslisti = "True"
else
Tilfarslisti = "False"
end if
%> Tilfarslisti</p>

Endnu engang 1000-tak for at have reddet min dag :o) Smid et svar, så får du pointene + mere hvis jeg kan finde ud af det (dette er mit andet spørgsmål på eksperten, så jeg kender ikke så meget til det her med point).

Synes godt om

softspot Forsker

07. oktober 2005 - 00:45 #31

Velbekomme :)

Lad nu være med at pumpe for mange point i det, det var jo trods alt kun et spørgsmål om justering af noget du allerede havde lavet... :)

Synes godt om

softspot Forsker

07. oktober 2005 - 00:47 #32

Tak for point :)

Synes godt om

pallifo Nybegynder

07. oktober 2005 - 00:48 #33

Nå, jeg kunne ikke finde ud af at pumpe flere point i, så jeg håber at 60 point er ok... endnu engang tak for hjælpen :o)

Synes godt om

softspot Forsker

07. oktober 2005 - 00:51 #34

Det er helt fint! :D

Det var jo det jeg gik ind til spørgsmålet med en vished om at kunne tjene på det... hvis det ikke havde været nok for mig, ville jeg have bakket ud tidligere (desuden kan jeg jo heller ikke købe meget Nutella for dem alligevel ;))...

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS