Thread: Syntax error near =

Hi All,

Can someone see where I messed up? I was adding sPlanYr to the mix and now get error on line in red.

Code:

<%
Dim sDistricts, sItemID, sPlanID, sPlanYr, sQ1, sQ2, sQ3, sQ4, sMyInputCost, sMyPlanDesc
Dim rs, sSql
Dim nCounter

nCounter = 1

sItemID = Request("ItemIDRow" & nCounter)
sPlanID = Request("PlanID" & nCounter)
sPlanYr = Request("PlanYr" & nCounter)
do while len(sItemID) > 0

sDistricts = Request("DistrictID")

sQ1 = sZeroCheck(Request.Form("SQtr1" & nCounter))
sQ2 = sZeroCheck(Request.Form("SQtr2" & nCounter))
sQ3 = sZeroCheck(Request.Form("SQtr3" & nCounter))
sQ4 = sZeroCheck(Request.Form("SQtr4" & nCounter))
sMyInputCost = sZeroCheck(Request.Form("InputCost" & nCounter))
sMyPlanDesc = Request.Form("InputItemDesc" & nCounter)
%>

<%

Set rs = Server.CreateObject("ADODB.Recordset")

'build SQL
sSql = "update tblDetails set Qtr1 = " & sQ1 & ", Qtr2 = " & sQ2 & ", Qtr3 = " & sQ3 & ", Qtr4 = " & sQ4 & ", InputCost = convert(money, '" & sMyInputCost * 1000 & "'), PlanDesc = '" & ValidateStr(sMyPlanDesc) & "'"
sSql = sSql & " WHERE ItemID=" & sItemID & " and DistrictID=" & sDistricts & " and PlanTypeID= " & sPlanID & " and PlanYr= " & sPlanYr & " "

	rs.Open sSql, Conn, 3, 1

nCounter = nCounter + 1
sItemID = Request("ItemIDRow" & nCounter)
Loop

response.redirect "PlanDistResults.asp?DistrictID=" & sDistricts &  "&PlanYr=" & sPlanYr & "&PlanTypeID=" & sPlanID

Conn.Close
Set Conn = Nothing
%>

Hi All,

If nothing is wrong with the syntax could it be the line in green below? If I remove line in green can I replace with line in orange?

Code:

<%
Dim sDistricts, sItemID, sPlanID, sPlanYr, sQ1, sQ2, sQ3, sQ4, sMyInputCost, sMyPlanDesc
Dim rs, sSql
Dim nCounter

nCounter = 1

sItemID = Request("ItemIDRow" & nCounter)
sPlanID = Request("PlanID" & nCounter)
sPlanYr = Request("PlanYr" & nCounter)
do while len(sItemID) > 0

sDistricts = Request("DistrictID")
sPlanYr = Requset("PlanYr")

sQ1 = sZeroCheck(Request.Form("SQtr1" & nCounter))
sQ2 = sZeroCheck(Request.Form("SQtr2" & nCounter))
sQ3 = sZeroCheck(Request.Form("SQtr3" & nCounter))
sQ4 = sZeroCheck(Request.Form("SQtr4" & nCounter))
sMyInputCost = sZeroCheck(Request.Form("InputCost" & nCounter))
sMyPlanDesc = Request.Form("InputItemDesc" & nCounter)
%>

<%

Set rs = Server.CreateObject("ADODB.Recordset")

'build SQL
sSql = "update tblDetails set Qtr1 = " & sQ1 & ", Qtr2 = " & sQ2 & ", Qtr3 = " & sQ3 & ", Qtr4 = " & sQ4 & ", InputCost = convert(money, '" & sMyInputCost * 1000 & "'), PlanDesc = '" & ValidateStr(sMyPlanDesc) & "'"
sSql = sSql & " WHERE ItemID=" & sItemID & " and DistrictID=" & sDistricts & " and PlanTypeID= " & sPlanID & " and PlanYr= " & sPlanYr & " "

	rs.Open sSql, Conn, 3, 1

nCounter = nCounter + 1
sItemID = Request("ItemIDRow" & nCounter)
Loop

response.redirect "PlanDistResults.asp?DistrictID=" & sDistricts &  "&PlanYr=" & sPlanYr & "&PlanTypeID=" & sPlanID

Conn.Close
Set Conn = Nothing
%>

This one:

Code:

Microsoft OLE DB Provider for SQL Server error '80040e14' 

Line 1: Incorrect syntax near '='.

This error is appearing when calling the Update asp page, and on Edit page I have the following:

Code:

<INPUT TYPE="hidden" NAME="DistrictID" readonly VALUE="<%= sDistricts %>">
	<INPUT TYPE="hidden" NAME="PlanYr" readonly VALUE="<%= sPlanYr %>">
	<INPUT TYPE="hidden" NAME="PlanID" readonly VALUE="<%= sPlanID %>">

Results:

Code:

update tblDetails set Qtr1 = 0, Qtr2 = 0, Qtr3 = 0, Qtr4 = 0, InputCost = convert(money, '0'), PlanDesc = '' WHERE ItemID=1 and DistrictID=4 and PlanTypeID= 1 and PlanYr=

So why no year?

Ok, when I use this line it shows the year:

Code:

sPlanYr = Request("PlanYr")

Does it matter where it is? It is ok where I highlighted in orange on post#2?