Endnu én Syntax error in INSERT INTO

Ret
sql = sql & "'" & billede & "', "
til
sql = sql & "'" & billede & "'"

Og så fjern '...' omkring værdier i tal-felter, og lav #...# omkring værdier i dato-felter (så vidt jeg husker)

Hej erik !


Der er dog et lille problem med datoen - dato feltet er dato/klokkeslæt i databasen, men i formen skal man "kun" indtaste datoen og når man kikker i databasen efter man har indtastede en dato står der 00:00:00 ???

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

dato = Replace(Request.form("dato"),"'","''") 'dato og klokkeslæt
if isDate(dato) then
    dato = year(dato) & "-" & month(dato) & "-" & day(dato)
  end if
klokke = Replace(Request.form("klokke"),"'","") ' tal
sted = Replace(Request.form("sted"),"'","''") ' tekst
vindretning = Replace(Request.form("vindretning"),"'","''") 'tekst
vindstyrke = Replace(Request.form("vindstyrke"),"'","") ' notat
vandstand = Replace(Request.form("vandstand"),"'","") ' notat
vandtemparatur = Replace(Request.form("vandtemparatur"),"'","") ' notat
art = Replace(Request.form("art"),"'","''") ' tekst
langde = Replace(Request.form("langde"),"'","") ' notat
vagt = Replace(Request.form("vagt"),"'","") ' notat
agn = Replace(Request.form("agn"),"'","") ' notat
bemarkning = Replace(Request.form("bemarkning"),"'","") ' notat
billede = Replace(Request.form("billede"),"'","''") ' tekst

bemarkning = Replace(bemarkning,vbCrLf,"<br>")
 
 
 
if dato="" or sted="" or art="" or vagt="" or agn=""  then
  Response.Write "Fejl i indtastningen."
  Response.End
else
  'kolonne typerne : navn :tekst, dato :date/time, karakter :tal, beskrivelse :notat/tekst
  sql = "insert into skema (dato, klokke, sted, vindretning, vindstyrke, vandstand, vandtemparatur, art, langde, vagt, agn, bemarkning, billede  ) values ("
  sql = sql & "#" & dato & "#, "
  sql = sql & "" & klokke & ", "
  sql = sql & "'" & sted & "', "
  sql = sql & "'" & vindretning & "', "
  sql = sql & "'" & vindstyrke & "', "
  sql = sql & "'" & vandstand & "', "
  sql = sql & "'" & vandtemparatur & "', "
  sql = sql & "'" & art & "', "
  sql = sql & "'" & langde & "', "
  sql = sql & "'" & vagt & "', "
  sql = sql & "'" & agn & "', "
  sql = sql & "'" & bemarkning & "', "
  sql = sql & "'" & billede & "'"
  sql = sql & ")"




  set Conn = Server.CreateObject("ADODB.Connection")
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("fang.mdb")
  Conn.Open strConn

  Conn.Execute(sql)
  Conn.Close
  Set conn=nothing
 
  Response.redirect "side1.asp" 
end if
end if 
%>

Så brug ikke et dato-tid felt, men kun et dato felr

Tak for det Erik - smider du lige et svar ?

Nej tak, jeg samler slet ikke på point. Svar selv, accepter eget svar.

HMmm - jamen tak for hjælpen ;o}