ASP Error

gust1480 · Sep 10, 2002

I have 2 asp page, query_portfolio and query_write. In my query_portfolio page, I have a link to query_write and when that link is clicked ,well obviously it goes to query_write page, it passes the value fundid, accountid, plannum and partnum which in turn is used by query_write and it works fine. In my query_write page, it also have a link to itself (it serves as a refresh button) that also passes the said value but an error occurs when this link is clicked. How come when I clicked the link to query_write in the query_portfolio no errors occurs but when I clicked the the link to itself (query_write) it produces an error! What’s wrong with my script?

Here’s the script along with the error it gives….

<%@ Language=VBScript %>
<%
Response.Expires=-1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control", "no-store"
session("fundid&quot

= Request.QueryString("fundid&quot

session("partnum&quot

= Request.QueryString("partnum&quot

session("plannum&quot

= Request.QueryString("plannum&quot

session("userid&quot

= Request.QueryString("userid&quot

session("accountid&quot

= Request.QueryString("accountid&quot

%>

<%

if trim(session("userid&quot

) <> "" then
set fund=server.createobject("Adodb.connection&quot

fund.Open "funds","sa","barit123"

set inv=server.CreateObject("ADODB.connection&quot

inv.Open "investor","sa","barit123"

sql = "SELECT * FROM CASHPOSITION WHERE ACCOUNT_NO = '" & Request.QueryString("accountid&quot

& "'"
set rs=inv.Execute(sql)

sqlid = "select user_id from accounts where account_id = '" & Request.QueryString("accountid&quot

& "'"
id = inv.Execute(sqlid).fields(0).Value

dim myarray()
redim myarray(5)
ctr = 0
for each item in Request.Querystring

myarray(ctr) = Request.QueryString(item)
ctr=ctr + 1
next

fund_id = trim(Request.QueryString ("fundid&quot

)
plan_no = trim(Request.QueryString("plannum&quot

)
partnum = Request.QueryString("partnum&quot

'THIS IS LINE 56
sql3 = "select * from bpi_fund_outs where fund_id='"& trim(myarray(0)) &"' and user_id='"& trim(myarray(2)) &"' and plan_no ='"& trim(myarray(3)) &"' and os_bal_remaining<>0 and participant_no = " & myarray(4) &" "
set rs_outs= fund.Execute(sql3)

if not rs_outs.eof and not rs_outs.bof then
share_oper=cdbl(trim(rs_outs("shares_hold_oper_remaining&quot

))
share_wper=cdbl(trim(rs_outs("shares_hold_wper_remaining&quot

))
contr_today=cdbl(trim(rs_outs("contr_today&quot

))
end if

%>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<form METHOD="post" action="/secured/confirm_sellfixed.asp" id="form1" name="form1" onSubmit="return validate('form1');">
<BODY>
<%
sql4="select * from bpi_fund_omniparams where fund_id='"& fund_id &"' and plan_no ='"& myarray(3) &"'"
set rs_omni=fund.Execute(sql4)
%>

<%
nav=trim(rs_omni("nav_sell&quot

)
erp=trim(rs_omni("erp_per_unit&quot

)
nav_orig=trim(rs_omni("nav_orig&quot

)
value_oper=share_oper*nav
value_wper=share_wper*erp
value_contr=contr_today*nav
total_share=cdbl(share_oper)+cdbl(share_wper)+cdbl(contr_today)
tot_value=cdbl(value_oper)+cdbl(value_wper)+cdbl(value_contr)%>

<table border="0" width="100%">
<tr>
<td> 
</td>
</tr>
</table>
<% if trim(Request.QueryString("plannum&quot

) = "000006" then %>
<table border="0" width="100%">
<tr>
<td bgcolor="#99CCFF" height="20">
P O R T F O L I O</td>
</tr>
</table>
<%else %>
<table border="0" width="100%">
<tr>
<td bgcolor="#99CCFF" height="20">
P O R T F O L I O</td>
</tr>
</table>
<%end if%>
 
<TABLE WIDTH="100%" BORDER=0 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD bgcolor=#99ccff width="15%" align=right>User ID > </TD>
<TD bgcolor=lightyellow width="20%" align=middle><%Response.Write id%></TD>
<TD width="2%"> </TD>
<TD bgcolor=#99ccff width="20%" align=right>Account Name > </TD>
<TD bgcolor=lightyellow width="30%" align=middle>
<%if not rs.EOF and not rs.BOF then
if trim(rs("account_name&quot

) <> "" then
Response.Write rs("account_name&quot

else
Response.Write " "
end if
else
Response.Write "&nbsp"
end if%>
</TD>
</TR>
</TABLE>
 

<TABLE WIDTH="97%" ALIGN=left BORDER=0 CELLSPACING=1 CELLPADDING=1>

'THIS PART IS THE REFRESH
<TR>
<TD width="35%" ALIGN=right><A href="querywrite_funds.asp?fundid = <% Response.write session("fundid&quot

%> &accountid=<%Response.Write session("accountid&quot

%>&userid=<%Response.Write session("userid&quot

%>&plannum=<%Response.Write session("plannum&quot

%> &partnum = <%Response.Write session("partnum&quot

%>" target=_self>

Refresh Portfolio Page</A></TD>
</TR>
</TABLE>
 
 

<TABLE WIDTH="82.1%" align=center BORDER=0 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD width="30%" bgcolor=#9999ff> </TD>
<TD width="15%" align=middle bgcolor=#9999ff>No. of <%if plan_no="000006" then Response.Write "Shares" else Response.Write "Units" end if%> </TD>
<TD align=middle bgColor=#9999ff width=15%>Price per <%if plan_no="000006" then Response.Write "Share" else Response.Write "Unit" end if%>
<TD width="20%" align=middle bgcolor=#9999ff>Value </TD>
</TR>
<%if share_oper<>0 then
color="lightyellow"%>

<TR>
<TD width="30%" align=middle bgcolor=#9999ff>Outside Holding
Period</TD>
<TD width="15%" align=right bgcolor=lightyellow>
<%Response.Write formatnumber(share_oper,0)%></TD>
<TD align=right bgColor=#ffffe0 width=15%>
<%Response.Write nav%>
<TD width="20%" align=right bgcolor=lightyellow>
<%Response.Write formatnumber(value_oper,2)%></TD>
</TR>
<%end if%>
<%if share_wper<>0 then
if color="lightyellow" then
bcolor="lightgrey"
color="lightgrey"
else
bcolor="lightyellow"
end if
%>
<TR>
<TD width="30%" align=middle bgcolor=#9999ff>Within Holding Period</TD>
<TD width="15%" align=right bgcolor=<%Response.Write bcolor%>>
<%Response.Write formatnumber(share_wper,0)%></TD>
<TD align=right bgColor=<%Response.Write bcolor%> width=15%>
<%Response.Write erp%>
<TD width="20%" align=right bgcolor=<%Response.Write bcolor%>>
<%Response.Write formatnumber(value_wper,2)%></TD>
</TR>
<%end if%>
<%if contr_today<>0 then
if color="lightyellow" then
bcolor="lightgrey"
color="lightgrey"
else
bcolor="lightyellow"
color="lightyellow"
end if
%>
<TR>
<TD width="30%" align=middle bgcolor=#9999ff>Contribution Today</TD>
<TD width="15%" align=right bgcolor=<%Response.Write bcolor%>>
<%Response.Write formatnumber(contr_today,0)%></TD>
<TD align=right bgColor=<%Response.Write bcolor%> width=15%>
<%Response.Write nav%>
<TD width="20%" align=right bgcolor=<%Response.Write bcolor%>>
<%Response.Write formatnumber(value_contr,2)%></TD>
</TR>
<%
end if%>
<%if color="lightyellow" then
bcolor="lightgrey"
color="lightgrey"
else
bcolor="lightyellow"
end if%>
<TR>
<TD width="30%" align=middle bgcolor=#9999ff >Total <%if plan_no="000006" then Response.Write "Shares" else Response.Write "Units" end if%></TD>
<TD align=middle bgColor=<%Response.Write bcolor%> width=15%>
<DIV align=right><%Response.Write formatnumber(total_share,0)%></DIV>
<TD align=middle bgColor=#9999ff width=15%>Total Value
<TD width="20%" align=right bgcolor=<%Response.Write bcolor%>><%Response.Write formatnumber(tot_value,2)%></TD>
</TR>

</TABLE>

<%
inv.Close
fund.Close
%>

</BODY>
</FORM>
<% else%>

<SCRIPT LANGUAGE ="JavaScript">
window1 = open("bpi.asp","_top&quot

</script>

<%end if%>
</HTML>

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC SQL Server Driver][SQL Server]Line 1: Incorrect syntax near '='.

/querywrite_funds.asp, line 56

onpnt · Sep 10, 2002

try placing single quotes around the writes in the href.
<A href="querywrite_funds.asp?fundid = '<% Response.write session("fundid&quot

%>'

http://www.onpntwebdesigns.com

admin@onpntwebdesigns.com

onpnt · Sep 10, 2002

after a loong boring meeting that I day dreamed in [lol]

I realized that was a stupid thing to try with the quotes in a link. sorry!

one thing, in your question you say when you submit the page to itself it doesn't work. well the one thing I can think is the use of request.querystring and a form method of POST being used. if you did submit this page you posted to itself it qould probably not work for that one reason. try changing the request.querystring to request.form and see how that works. either that or change to GET in the method attrib.

http://www.onpntwebdesigns.com

admin@onpntwebdesigns.com

Tarwn · Sep 10, 2002

I can't tell why your using the array to pul the values out. In my experince you can use both a POST method and a querystring such as you have, but could it be possible that assigning values to the array is your problem? I would double check and make sure the values are getting into your array in the correct order (or throw out the array all together and use Request.QueryString as you have it already in there). Other than that I can't see an error off the top of my head.
Print the SQL string out and make sure the values are being set correctly (comment out the execute function so you can see the print out).
-Tarwn ------------ My Little Dictionary ---------
Extreme Programming - (1)Trying to code before my second cup of coffee. (2) While(1){ Ctrl+C; Ctrl+V; }
FAQ - Web-ese for "Forget Asking Questions, I am to busy"

GaryC123 · Sep 10, 2002

Maybe not the problem, but the Post action isnt great if your using request.querystring and also (I'm still fairly new to this) surely you don't need to pass the session variable in an hyperlink since these values are available for the whole session no matter what page you are on.

Tarwn · Sep 10, 2002

I agree, thanks for noticing. If you are already storing these values in session variables, that you should be able to just pull them back out, and in that case all you would need to do is refresh the page with javascript on the button click.
-Tarwn ------------ My Little Dictionary ---------
Extreme Programming - (1)Trying to code before my second cup of coffee. (2) While(1){ Ctrl+C; Ctrl+V; }
FAQ - Web-ese for "Forget Asking Questions, I am to busy"

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

ASP Error

gust1480

Programmer

onpnt

Programmer

onpnt

Programmer

Tarwn

Programmer

GaryC123

Programmer

Tarwn

Programmer

Similar threads

Part and Inventory Search

Sponsor