ASP, insert problem

Prøv denne kombination:

strSQL = "Insert into forum (navn, dato, emne, origin) values('"& Request.Form("navnforum") & "', '" & Request.Form("datoforum") & "', '" & Request.Form("titelb") & "', " & Request.Form("originb")&"" <> "" & ")"


og en checkboks der ser således ud:

<input type="hidden" name="originb" class="forms" value="enellerandenværdi_BAREIKKETOM!">

Hvis checkboksen er checked vil den findes i request.form ellers ikke. Det er det jeg benytter mig af i denne konstruktion

Request.Form("originb")&"" <> ""

...og det skal vel være en checkboks og ikke et hidden felt...? Eller fungerer ovenstående  eksempel ikke helt efter hensigten :)

Nu kommer fejlen:

Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.

Det skal være en checkbox men skjult. Det virker i noget andet kode jeg har lavet. Der indsætter den TRUE i feltet i databasen når jeg benytter:

<input type="hidden" name="originb" class="forms" value="True">

Hmmm... kan evt. være der skal parantes omkring det udtryk jeg indsatte:

strSQL = "Insert into forum (navn, dato, emne, origin) values('"& Request.Form("navnforum") & "', '" & Request.Form("datoforum") & "', '" & Request.Form("titelb") & "', " & (Request.Form("originb")&"" <> "") & ")"

30/11-2005 20:09:09 >> Systemet opfatter det ikke som en tekstboks med den type, hvilket gør at den opfører sig anderledes end en checkboks ville gøre. Derfor skal du, hvis du vil have en checkboks ud af det, ændre koden til:

<input type="checkbox" name="originb" class="forms" value="True" style="display:none">

Så kommer fejlen:

Syntax error in string in query expression ''True)'.

Det er ene og alene pga af den checkbox.

Er det nemmere hvis du får hele koden?

Det ser ud som om der mangler et komma for den sidste parameter (men den SQL jeg har set her mangler ikke dette komma...?

Og du siger at origin er et Ja/Nej-felt i databasen?

Ja, origin er et True/False felt.

Tjekker lige efter komma.

Det kommer an på hvormeget kode der er :)

Jeg kopierede linien fra 30/11-2005 20:10:18.
Nu siger den igen:
Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.

<%if Request.Form("forfatterb") <> "" then
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../../db/data.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect   
        Function fncTextChange(strText)
strTekst = Trim(strText)
            fncTextChange = Replace(strTekst,"'","''")
            fncTextChange = Replace(fncTextChange,"""","""")
            fncTextChange = Replace(fncTextChange,"  "," &nbsp;")
            fncTextChange = Replace(fncTextChange,vbCrLf,"<br>")
            fncTextChange = Replace(fncTextChange,"å","&aring;")
            fncTextChange = Replace(fncTextChange,"æ","&aelig;")
            fncTextChange = Replace(fncTextChange,"ø","&oslash;")
            fncTextChange = Replace(fncTextChange,"Å","&Aring;")
            fncTextChange = Replace(fncTextChange,"Æ","&AElig;")
            fncTextChange = Replace(fncTextChange,"Ø","&Oslash;")
            fncTextChange = Replace(fncTextChange,"[img]","<center><img src='/pics/")
            fncTextChange = Replace(fncTextChange,"[/img]","' alt='Pic'></center>")
            fncTextChange = Replace(fncTextChange,"[imgs]","<img src='/pics/baggrund/")
            fncTextChange = Replace(fncTextChange,"[/imgs]","' alt='Pic'>")
            fncTextChange = Replace(fncTextChange,"","<b>")
            fncTextChange = Replace(fncTextChange,"","</b>")
            fncTextChange = Replace(fncTextChange,"","<i>")
            fncTextChange = Replace(fncTextChange,"","</i>")
            fncTextChange = Replace(fncTextChange,"","<u>")
            fncTextChange = Replace(fncTextChange,"","</u>")
           
        End Function

    indhold = fncTextChange(request.form("anmeldb"))
    indholda = fncTextChange(request.form("boksenb"))
    indholdb = fncTextChange(request.form("teaserb"))
    indholdc = fncTextChange(request.form("omtaleb"))


strSQL = "Insert into forum (navn, dato, emne, origin) values('"& Request.Form("navnforum") & "', '" & Request.Form("datoforum") & "', '" & Request.Form("titelb") & "', " & Request.Form("originb")&"" <> "" & ")"


objConn.Execute(strSQL)


end if

Du skal ikke tage dig af:
indhold = fncTextChange(request.form("anmeldb"))
    indholda = fncTextChange(request.form("boksenb"))
    indholdb = fncTextChange(request.form("teaserb"))
    indholdc = fncTextChange(request.form("omtaleb"))

Det kommer i brug når jeg får denne her checkbox til at virke.

Prøv lige at ændre denne sætning

strSQL = "Insert into forum (navn, dato, emne, origin) values('"& Request.Form("navnforum") & "', '" & Request.Form("datoforum") & "', '" & Request.Form("titelb") & "', " & Request.Form("originb")&"" <> "" & ")"

til denne:

strSQL = "Insert into forum (navn, dato, emne, origin) values('"& Request.Form("navnforum") & "', '" & Request.Form("datoforum") & "', '" & Request.Form("titelb") & "', " & (Request.Form("originb")&"" <> "") & ")"

Igen fejl nu og den indsætter også i forum. Men den sætter ikke origin til true. Og det skal den.

Har du husket at checke din checkbox? Sådan:

<input type="checkbox" name="originb" class="forms" value="True" style="display:none" checked>

Ellers kommer den ikke med over til serveren (det er som nævnt tidligere, kun checkbokse der er afkrydset, som kommer med til serveren).

...jeg går ud fra at du mener "INGEN fejl" når du skriver "igen fejl"... :)

Jeg prøvede lige at lave input feltet om til:
<input type="hidden" name="originb" class="forms" value="True">

Nu virker det. :)

Smider du lige et svar. For det var også ændringen af SQL'en der gjorde det.

Men så vil den jo altid indsætte true i origin... skal den det?

...hvis den skal det, så kan du ligeså godt bare indsætte true i feltet i SQL-sætningen i stedet for.

Lige en enkelt ting, hvis du gider.

Jeg skal have denne her ind i koden:
indholdb

Prøvede sådan her:
strSQL = "Insert into forum (navn, dato, emne, origin, indhold) values('"& Request.Form("navnforum") & "', '" & Request.Form("datoforum") & "', '" & Request.Form("titelb") & "', " & (Request.Form("originb")&"" <> "") & indholdb & "')"

Men nu kan jeg ikke overskue alle de " ' ().. ;)

Ja, den skal altid indsætte true i feltet. Koden bliver brugt til at lægge en anmeldelsen online. Og koden vi har rodet med nu oprette emnet for anmeldelsen i et forum.

Skidt pyt med det sidst. fandt ud af det :)

Godt :)

...og tak for point :)