Problem with form! HELP Please!!!

codefantom · 08-30-2005, 07:19 PM

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???

nikkiH · 08-30-2005, 07:38 PM

That didn't format very well.
Exactly which line is 69?
You probably forgot an End-something somewhere.

nikkiH · 08-30-2005, 07:41 PM

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.

codefantom · 08-30-2005, 07:56 PM

Where would the "End With" or the "If" statements go

Thanks

neocool00 · 08-30-2005, 08:10 PM

Line in red.

Code:

objconn.Execute updateDisputesSQL ' DO IT
End With
End If

codefantom · 08-30-2005, 08:46 PM

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,

nikkiH · 08-30-2005, 09:29 PM

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.