23. januar 2006 - 22:54Der er
4 kommentarer og 1 løsning
insert skal acceptere mellemrum i form
Hey E
ASP/IIS/ACCESS/IE
fejlen lyder: Microsoft OLE DB Provider for ODBC Drivers fejl '80040e14'
[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl, fordi der mangler en operator. i forespørgselsudtrykket (reference til den input der sender et mellemrum).
hvordan får jeg nedenstående kode til at acceptere et mellemrum i form inputs?
if mode = "make" then if Request.ServerVariables("REQUEST_METHOD") = "POST" then dim SQL rs_select(1) SQL = "INSERT INTO aircraft (" for each x in rs.fields if x.name <> "aircraft_id" then if Request.Form("" & x.name) <> "" then SQL = SQL & x.name &"," else SQL = SQL end if end if next SQL = left(SQL, len(SQL) -1) SQL = SQL & ") VALUES (" for each x in rs.fields if x.name <> "aircraft_id" then if Request.Form("" & x.name) <> "" then SQL = SQL & Request.Form("" & x.name) & "," else SQL = SQL end if end if next SQL = left(SQL, len(SQL) -1) SQL = SQL & ")" rsConn.EXECUTE(SQL) Response.Redirect("default.asp?mode=view") rs_end() else 'post%> <div class="left"> <form action="default.asp?mode=make" method="post"> <table> <% rs_select_1(3) 'start db for each x in rs.fields if x.name <> "aircraft_id" then%> <tr> <td><%=x.value%></td> <td><input type="text" value="" name="<%=x.name%>"></td> </tr> <% end if next rs_end()%> <tr> <td colspan="2" align="right"><input type="submit" value="Create" style="height:18px;"></td> </tr> </table> </form> </div> <% end if 'post end if 'make %>
Kommunerne har digitaliseret indgangen for borgerne. Men bag skærmen håndteres mange arbejdsgange stadig manuelt mellem systemer, mails og organisatoriske siloer.
for each x in rs.fields if x.name <> "aircraft_id" then if Request.Form("" & x.name) <> "" then SQL = SQL & "'" & Request.Form("" & x.name) & "'," else SQL = SQL end if end if next
løsningen: <% if mode = "make" then if Request.ServerVariables("REQUEST_METHOD") = "POST" then dim SQL rs_select(3) SQL = "INSERT INTO aircraft (" for each x in rs.fields if x.name <> "aircraft_id" then if Request.Form("" & x.name) <> "" then SQL = SQL & x.name & "," elseif Request.Form("" & x.name) = "" then SQL = SQL & x.name & "," end if end if next SQL = left(SQL, len(SQL) -1) SQL = SQL & ") VALUES (" for each x in rs.fields if x.name <> "aircraft_id" then if Request.Form("" & x.name) <> "" then SQL = SQL & "'" & Request.Form("" & x.name) & "'," elseif Request.Form("" & x.name) = "" then SQL = SQL & "'" & Request.Form("" & x.name) & "'," end if end if next SQL = left(SQL, len(SQL) -1) SQL = SQL & ")" rsConn.EXECUTE(SQL) Response.Redirect("default.asp?mode=view") rs_end() else 'post%> <div class="left"> <form action="default.asp?mode=make" method="post"> <table> <% rs_select_1(3) 'start db for each x in rs.fields if x.name <> "aircraft_id" then varSplit = x.value if left((right(x.value,7)),1) = "#" then antal = len(x.value) - 7 varSplit = left(x.value,antal) varSplitColor = right(x.value,7) else varSplitColor = "" end if %> <tr> <td><%=varSplit%></td> <td><input type="text" value="" name="<%=x.name%>"></td> </tr> <% end if next rs_end()%> <tr> <td colspan="2" align="right"><input type="submit" value="create" style="height:18px;"></td> </tr> </table> </form> </div> <% end if 'post end if 'make %>
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.