Update og insert into statement kan nogen se fejlen
Hejjeg har denne asp side hvor alt sker, både instastning af nye records og updates a indtastede records, dog får jeg en fejl i update statementet, hvorfor har jeg en ide om;
jeg har lavet en dropdown list box som viser ja eller nej værdier og dertil har jeg sat den til at vise hvilken værdi list boxen har hvis man vil update recorden. dog hvis jeg tager denne væk virker den fint
----Først update og new record ----
<%
Dim strSQL
Dim strAutoID
strAutoID=Request.Querystring("AutoID")
If Request.Form("hidSubmitted")<>"" Then
Set oDB = Server.CreateObject("ADODB.connection")
oDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../../db/intprofil.mdb")
If Request.Form("hidSubmitted")="New" Then
'Opret ny post
strSQL="INSERT INTO [profiler] (navn,knavn,nat,fdag,klub,udd,hojde,vagt,st,tidls,hobby,beskr,disc,"
strSQL=strSQL & "truge,tph,ypas,sv,cy,lo,sponsorer,site,opl,res,forsiden,tb,tb2,billede,billede2,updated) VALUES ('"
strSQL=strSQL & Request.Form("txtnavn")&"','"
strSQL=strSQL & Request.Form("txtknavn")&"','"
strSQL=strSQL & Request.Form("txtnat")&"','"
strSQL=strSQL & Request.Form("txtfdag")&"','"
strSQL=strSQL & Request.Form("txtklub")&"','"
strSQL=strSQL & Request.Form("txtudd")&"','"
strSQL=strSQL & Request.Form("txthojde")&"','"
strSQL=strSQL & Request.Form("txtvagt")&"','"
strSQL=strSQL & Request.Form("txtst")&"','"
strSQL=strSQL & Request.Form("txttidls")&"','"
strSQL=strSQL & Request.Form("txthobby")&"','"
strSQL=strSQL & Request.Form("txtbeskr")&"','"
strSQL=strSQL & Request.Form("txtdisc")&"','"
strSQL=strSQL & Request.Form("txttruge")&"','"
strSQL=strSQL & Request.Form("txttph")&"','"
strSQL=strSQL & Request.Form("txtypas")&"','"
strSQL=strSQL & Request.Form("txtsv")&"','"
strSQL=strSQL & Request.Form("txtcy")&"','"
strSQL=strSQL & Request.Form("txtlo")&"','"
strSQL=strSQL & Request.Form("txtsponsorer")&"','"
strSQL=strSQL & Request.Form("txtsite")&"','"
strSQL=strSQL & Request.Form("txtopl")&"','"
strSQL=strSQL & Request.Form("txtres")&"','"
strSQL=strSQL & Request.Form("txtforsiden")&"','"
strSQL=strSQL & Request.Form("txttb")&"','"
strSQL=strSQL & Request.Form("txttb2")&"','"
strSQL=strSQL & Request.Form("txtbillede")&"','"
strSQL=strSQL & Request.Form("txtbillede2")&"','"
strSQL=strSQL & Request.Form("txtupdated")&"')"
oDB.Execute(strSQL)
strHeadline=Request.Form("txtSwimProfil")
Set oRS = oDB.execute("SELECT AutoID FROM [Profiler] order by AutoID desc")
strAutoID=oRS.Fields("AutoID")
Set oRS = Nothing
Response.write "<b>Profilen er nu tilføjet kataloget</b> <a href='admin/index2.asp'>Klik her for at gå til forside!</a>"
Else
'Opdater post
strSQL="UPDATE [profiler] SET "
strSQL=strSQL & "navn='" & Request.Form("txtnavn")&"', "
strSQL=strSQL & "knavn='" & Request.Form("txtknavn")&"', "
strSQL=strSQL & "nat='" & Request.Form("txtnat")&"', "
strSQL=strSQL & "fdag='" & Request.Form("txtfdag")&"', "
strSQL=strSQL & "klub='" & Request.Form("txtklub")&"', "
strSQL=strSQL & "udd='" & Request.Form("txtudd")&"', "
strSQL=strSQL & "hojde='" & Request.Form("txthojde")&"', "
strSQL=strSQL & "vagt='" & Request.Form("txtvagt")&"', "
strSQL=strSQL & "st='" & Request.Form("txtst")&"', "
strSQL=strSQL & "tidls='" & Request.Form("txttidls")&"', "
strSQL=strSQL & "hobby='" & Request.Form("txthobby")&"', "
strSQL=strSQL & "beskr='" & Request.Form("txtbeskr")&"', "
strSQL=strSQL & "disc='" & Request.Form("txtdisc")&"', "
strSQL=strSQL & "truge='" & Request.Form("txttruge")&"', "
strSQL=strSQL & "tph='" & Request.Form("txttph")&"', "
strSQL=strSQL & "ypas='" & Request.Form("txtypas")&"', "
strSQL=strSQL & "sv='" & Request.Form("txtsv")&"', "
strSQL=strSQL & "cy='" & Request.Form("txtcy")&"', "
strSQL=strSQL & "lo='" & Request.Form("txtlo")&"', "
strSQL=strSQL & "sponsorer='" & Request.Form("txtsponsorer")&"', "
strSQL=strSQL & "site='" & Request.Form("txtsite")&"', "
strSQL=strSQL & "opl='" & Request.Form("txtopl")&"', "
strSQL=strSQL & "res='" & Request.Form("txtres")&"', "
strSQL=strSQL & "forsiden='" & Request.Form("txtforsiden")&"', "
strSQL=strSQL & "tb='" & Request.Form("txttb")&"', "
strSQL=strSQL & "tb2='" & Request.Form("txttb2")&"', "
strSQL=strSQL & "billede='" & Request.Form("txtbillede")&"', "
strSQL=strSQL & "billede2='" & Request.Form("txtbillede2")&"', "
strSQL=strSQL & "updated='" & Request.Form("txtupdated")&"' WHERE autoID=" & Request.Form("hidSubmitted")
oDB.Execute(strSQL)
End If
oDB.Close
set oDB = Nothing
End If
---- slut ----
---- min select box ----
<select name="txtforsiden" size="1">
<option value="ja"
<% if strforsiden = "ja" then Response.Write " SELECTED" %>>Ja</option>
<option value="nej"
<% if strforsiden = "nej" then Response.Write " SELECTED" %>>Nej</option>
</select>
--- slut ---
er der nogen som kan se hvor jeg går galt i byen, fejlen er bare at der er fejl i update statementet, men jeg kan ikke se nogen fejl
feltet "forsiden" er et text felt i en access database
mvh
