Hello and welcome to our community! Is this your first visit?
Register
Enjoy an ad free experience by logging in. Not a member yet? Register.
Results 1 to 11 of 11
  1. #1
    New Coder
    Join Date
    Jul 2005
    Posts
    17
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Problem with form! HELP Please!!!

    Here is the code
    [code]
    <script type="text/javascript" language="JavaScript1.2" src="../assets/creditform.js"></script>
    <%
    connection = "Data Source=" & Server.Mappath("../_private/credit.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"
    Set objconn = Server.CreateObject("ADODB.Connection")
    objconn.Open connection
    %>
    <%

    set session("dataID") = request.form("dataID")
    on error resume next

    dim dat_id
    dim new_name
    dim new_desc
    dim new_disputes
    dim FormSubmit

    dat_id = Request.form("dataID")
    new_name = Request.form("name")
    new_desc = Request.form("desc")
    new_disputes = Request.form("disputes")
    submit = Request.form("Postback")

    function main()

    If FormSubmit <> "" Then
    with response
    If dat_id = "" Then
    .Write "<body onLoad='error0()>" & vbcrlf

    End If

    If Not IsNumeric(dat_id) Then
    .Write "<body onLoad='error1()>" & vbcrlf

    End If






    updateDataSQL = "UPDATE datas SET dat_name = '" & new_name & "'," _
    & " dat_description = '" & new_desc & "'" _
    & " WHERE dat_id = " & dat_id
    objconn.Execute updateDataSQL

    deleteSQL = "DELETE FROM mydisputes WHERE dat_id = " & dat_id

    .Write "<HR>DEBUG deleteSQL: " & deleteSQL & "<HR>"

    objconn.Execute deleteSQL ' DO IT


    updateDisputesSQL = "INSERT INTO mydisputes (dat_id, dispute_id) " _
    & " SELECT " & dat_id & ", id FROM disputes " _
    & " WHERE id IN (" & new_disputes & ")"

    .Write "<HR>DEBUG updateDisputesSQL: " & updateDisputesSQL & "<HR>"

    objconn.Execute updateDisputesSQL ' DO IT


    End If


    getMainSQL = "SELECT * FROM datas WHERE dat_id = " & dat_id
    Set RS = objconn.Execute( getMainSQL )
    If RS.EOF Then
    .Write "<body onLoad='error2()'>" & vbcrlf

    End If
    ' show the basic info:
    %>

    <FORM name="customerContents" action="test.asp?submitted=true"
    method="post">
    DATA ID: <input type="text" name="dataID"
    value="<%=session.contents("dataID")%>" maxlength="20" size="20"><br/>
    NAME: <INPUT Name="name" Value="<%=RS("dat_name")%>"><br/>
    DESCRIPTION: <INPUT Name="desc" Value="<%=RS("dat_description")%>"><br/>
    DISPUTES:<br/>
    <%



    disputeSQL = "Select D.ID, IIF(ISNULL(M.dispute_id),'','CHECKED') AS CHK,
    D.U_Disputes " _
    & " FROM disputes AS D LEFT JOIN mydisputes AS M " _
    & " ON ( D.id = M.dispute_id AND M.dat_id = " & dat_id & ") " _
    & " ORDER BY D.u_disputes"

    .Write "<HR>DEBUG disputeSQL: " & disputeSQL & "<HR>"

    Set RS = objconn.Execute(SQL)
    count = 0
    CONST CBS_PER_LINE = 2 ' if you have room, make it 3 checkboxes per line
    Do Until RS.EOF
    %>
    <INPUT TYPE="CHECKBOX" Name="disputes" VALUE="<%=RS("id")%>" <%=RS("chk")%>
    > <%=RS("U_Disputes")%>
    <%
    x = x + 1
    If x MOD CBS_PER_LINE = 0 Then .Write "<br/>"
    RS.MoveNext
    Loop
    end if
    end with
    end function

    RS.close
    set RS = nothing
    objconn.close
    set objconn = nothing
    set disputeSQL =nothing
    set updateDataSQL = nothing
    set deleteSQL = nothing
    set updateDisputesSQL = nothing
    set SQL = nothing
    set CBS_PER_LINE = nothing
    set dat_id = nothing
    set new_name = nothing
    set new_desc = nothing
    set new_disputes = nothing

    %>
    <div align="center">
    <INPUT Type="Submit" Name="Postback" Value="Submit changes"></div>
    </FORM>
    [code]

    And this is the error:
    Microsoft VBScript compilation (0x800A0405)
    Expected 'With'
    /myweb/ducredit/includes/test.asp, line 69, column 4
    End If


    Any ideas???

  • #2
    Senior Coder nikkiH's Avatar
    Join Date
    Jun 2005
    Location
    Near Chicago, IL, USA
    Posts
    1,973
    Thanks
    1
    Thanked 32 Times in 31 Posts
    That didn't format very well.
    Exactly which line is 69?
    You probably forgot an End-something somewhere.

    If this post contains any code, I may or may not have tested it. It's probably just example code, so no getting knickers in a bunch over a typo, OK? If it doesn't have basic error checking in it, such as object detection or checking if objects are null before using them, put that in there. I'm giving examples, not typing up your whole app for you. You run code at your own risk.
    Bored? Visit
    http://www.kaelisspace.com/

  • #3
    Senior Coder nikkiH's Avatar
    Join Date
    Jun 2005
    Location
    Near Chicago, IL, USA
    Posts
    1,973
    Thanks
    1
    Thanked 32 Times in 31 Posts
    Code:
    If FormSubmit <> "" Then
       With response
          If dat_id = "" Then
             .Write "<body onLoad='error0()>" & vbcrlf
          End If
          If Not IsNumeric(dat_id) Then
             .Write "<body onLoad='error1()>" & vbcrlf
          End If
          
          updateDataSQL = "UPDATE datas SET dat_name = '" & new_name & "'," _
          & " dat_description = '" & new_desc & "'" _
          & " WHERE dat_id = " & dat_id
          objconn.Execute updateDataSQL
    
          deleteSQL = "DELETE FROM mydisputes WHERE dat_id = " & dat_id
          .Write "<HR>DEBUG deleteSQL: " & deleteSQL & "<HR>"
    
          objconn.Execute deleteSQL ' DO IT
          updateDisputesSQL = "INSERT INTO mydisputes (dat_id, dispute_id) " _
          & " SELECT " & dat_id & ", id FROM disputes " _
          & " WHERE id IN (" & new_disputes & ")"
    
          .Write "<HR>DEBUG updateDisputesSQL: " & updateDisputesSQL & "<HR>"
    
          objconn.Execute updateDisputesSQL ' DO IT
    
    End If << ==  here is the problem, now that I see formattting.
    Got an End If with no If!!
    If that was supposed to be there, you had to put End With first. Nesting must be done properly.

    If this post contains any code, I may or may not have tested it. It's probably just example code, so no getting knickers in a bunch over a typo, OK? If it doesn't have basic error checking in it, such as object detection or checking if objects are null before using them, put that in there. I'm giving examples, not typing up your whole app for you. You run code at your own risk.
    Bored? Visit
    http://www.kaelisspace.com/

  • #4
    New Coder
    Join Date
    Jul 2005
    Posts
    17
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Where would the "End With" or the "If" statements go

    Thanks

  • #5
    Regular Coder
    Join Date
    Sep 2004
    Posts
    152
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Line in red.
    Code:
    objconn.Execute updateDisputesSQL ' DO IT
    End With
    End If

  • #6
    New Coder
    Join Date
    Jul 2005
    Posts
    17
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Now I get this error message

    Microsoft VBScript compilation (0x800A0409)
    Unterminated string constant
    /myweb/ducredit/includes/test.asp, line 91, column 73
    disputeSQL = "Select D.ID, IIF(ISNULL(M.dispute_id),'','CHECKED') AS CHK,

  • #7
    Senior Coder nikkiH's Avatar
    Join Date
    Jun 2005
    Location
    Near Chicago, IL, USA
    Posts
    1,973
    Thanks
    1
    Thanked 32 Times in 31 Posts
    Well, it's an unterminated string.
    Terminate it.
    (hint: that line isn't like your other lines...it's missing something...)

    You have to help yourself a LITTLE.

    If this post contains any code, I may or may not have tested it. It's probably just example code, so no getting knickers in a bunch over a typo, OK? If it doesn't have basic error checking in it, such as object detection or checking if objects are null before using them, put that in there. I'm giving examples, not typing up your whole app for you. You run code at your own risk.
    Bored? Visit
    http://www.kaelisspace.com/

  • #8
    Regular Coder
    Join Date
    Aug 2002
    Location
    USA
    Posts
    478
    Thanks
    0
    Thanked 2 Times in 2 Posts
    codefantom:
    disputeSQL = "Select D.ID, IIF(ISNULL(M.dispute_id),'','CHECKED') AS CHK,
    nikkiH:
    (hint: that line isn't like your other lines...it's missing something...)
    And we can end up QUOTING you on that, right?
    Last edited by Bullschmidt; 08-30-2005 at 09:36 PM.
    J. Paul Schmidt
    www.Bullschmidt.com - Freelance Web and Database Developer
    www.Bullschmidt.com/DevTip.asp - Classic ASP Design Tips

  • #9
    Senior Coder nikkiH's Avatar
    Join Date
    Jun 2005
    Location
    Near Chicago, IL, USA
    Posts
    1,973
    Thanks
    1
    Thanked 32 Times in 31 Posts
    Um...well, you just did, eh?

    (did I miss something...I HAVE been a bit on the slow side today...?)

    If this post contains any code, I may or may not have tested it. It's probably just example code, so no getting knickers in a bunch over a typo, OK? If it doesn't have basic error checking in it, such as object detection or checking if objects are null before using them, put that in there. I'm giving examples, not typing up your whole app for you. You run code at your own risk.
    Bored? Visit
    http://www.kaelisspace.com/

  • #10
    Regular Coder
    Join Date
    Aug 2002
    Location
    USA
    Posts
    478
    Thanks
    0
    Thanked 2 Times in 2 Posts
    I just enjoyed reading your hint and added slightly to it...
    J. Paul Schmidt
    www.Bullschmidt.com - Freelance Web and Database Developer
    www.Bullschmidt.com/DevTip.asp - Classic ASP Design Tips

  • #11
    Senior Coder nikkiH's Avatar
    Join Date
    Jun 2005
    Location
    Near Chicago, IL, USA
    Posts
    1,973
    Thanks
    1
    Thanked 32 Times in 31 Posts
    Oh, okay.
    I thought...well...nevermind what I was thinking. It's been a rough day.
    Please, someone help me. I need chocolate. Or something.

    If this post contains any code, I may or may not have tested it. It's probably just example code, so no getting knickers in a bunch over a typo, OK? If it doesn't have basic error checking in it, such as object detection or checking if objects are null before using them, put that in there. I'm giving examples, not typing up your whole app for you. You run code at your own risk.
    Bored? Visit
    http://www.kaelisspace.com/


  •  

    Posting Permissions

    • You may not post new threads
    • You may not post replies
    • You may not post attachments
    • You may not edit your posts
    •