HELP! Passing from database to asp page allowing user input then passing to another database.

Renie83 · Renie83

My big problem is I'm a newbie working with someone else's code.(See
code below) What I want to do is for the records that have a purchase
order number I want a text box at the end of the line of information
that a user may or may not place a date into. (You'll notice that
there are two sets being drawn into my page that have Purchase Order.)
If the user does enter a date, when they hit submit I want that data
to be sent to a database along with that line of information. The
trouble I'm having is making sure that each record line is being
checked and then sent. If anyone could help with any part of this, I
would really appreciate it.

Okay here is my code:

</script>

<td>


<%Username=Request.ServerVariables("LOGON_USER")
usernamepos=instr(Username,"\")
Username=right(Username,(len(username)-usernamepos))
sql = "SELECT UserName FROM tUsers WHERE UserName='" & Username & "'
and northemployee= 'yes'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Cm, 3, 3
strEmpName = rs("UserName")
rs.close %>
Open
Orders as of <%=now()%> 
<a
href="../production/printable.asp?<%Response.write(strform)%>">Printab le
Version</a> 
 <table width="744" border="0" cellspacing="0"
cellpadding="0">
<%
server.scripttimeout=240
response.flush
Set Cm3 = Server.CreateObject("ADODB.Connection")
Cm3.CommandTimeout = 30
Cm3.ConnectionTimeout = 20
Cm3.Open Application("DB_REPORTS")
Dim strOrderBy

Dim strInClause
Dim strSortLink

for n = 1 to 23
vendorvar="vend" & n
ordervar = "ORDER_BY" & n
wasorderedvar = "WAS_ORDERED_BY" & n
if Request(vendorvar)<>"" then
strSortLink = strSortLink + vendorvar + "=" + Request(vendorvar) +
"&"
end if
if Request(wasorderedvar) <> "" AND Request(ordervar) = "" then
strSortLink = strSortLink + wasorderedvar + "=" +
Request(wasorderedvar) + "&"
end if
if Request(ordervar) <> "" then
if Request(ordervar) = Request(wasorderedvar) then
if Left(Request(wasorderedvar),1) <> "-"then
strSortLink = strSortLink + wasorderedvar + "=" +
"-"+Request(ordervar) + "&"
end if
else
strSortLink = strSortLink + wasorderedvar + "=" + Request(ordervar)
+ "&"
end if
end if

next
for n = 1 to 23

vendorvar="vend" & n
strVendor = Request(vendorvar)
if strVendor <> "" then
sql="SELECT * FROM northprod1 WHERE ([VENDOR CODE] = '"

sql = sql + strVendor + "' AND TYPE = 'P' "

sOrder = Request("ORDER_BY" & n)
strOrderDESC = ""
if sOrder = "" then
sOrder = Request("WAS_ORDERED_BY"&n)
if left(sOrder,1) = "-" then
strOrderDESC = " DESC"
sOrder = right(sOrder,1)
end if
else
if sOrder = Request("WAS_ORDERED_BY"&n) then
strOrderDESC = " DESC"
end if
end if

if sOrder = "" then
sql = sql & "AND [QUANTITY COMMITTED]>0) "
else
sql = sql & ") "
end if

select case sOrder
case ""
strOrderBy = "ORDER BY YEAR, [PURCHASE DATE]"
case "1"
strOrderBy = "ORDER BY [PURCHASE ORDER NUMBER]"
case "2"
strOrderBy = "ORDER BY [LINE NUMBER]"
case "3"
strOrderBy = "ORDER BY YEAR, [PURCHASE DATE]"
case "4"
strOrderBy = "ORDER BY [STOCK NUMBER]"
case "5"
strOrderBy = "ORDER BY [STOCK DESCRIPTION]"
case "6"
strOrderBy = "ORDER BY [UNIT OF SALE]"
case "7"
strOrderBy ="ORDER BY [QUANTITY ON HAND]"
case "8"
strOrderBy = "ORDER BY [QUANTITY ON ORDER]"
case "9"
strOrderBy = "ORDER BY [QUANTITY COMMITTED]"

end select

sql = sql & strOrderBy + strOrderDESC

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

rs3.Open sql, Cm3, 3, 3
strPurchase = rs3("PURCHASE ORDER NUMBER")
if request.form("submitTop") <> "" or request.form("submitBottom")<>
"" then
Dim i
if rs3.eof then
sqlD="INSERT INTO EstDelDate (EnteredBy, PO_PT, Line, FormDate,
Part#, EntryDate, EstDeliveryDate) VALUES ('" & strEmpName & "', '" &
strPurchase & "', '" & strLine & "', '" & strPDate & "', '" &
strPartNo & "', '" & Date() & "', '" & strDel & "')"
Set Con= Server.CreateObject("ADODB.Connetion")
Con.open Application("DB_INTRANET")
response.write(sqlD)
end if
'Cm2.Execute(sqlD)
'con.Close
'Set Cm2 = Nothing
End if
if request.form = "" then
strform = request.QueryString
else
strform = request.Form
end if

%> <form name="myform" action="../production/orders_pro.asp"
method="post">
<tr><td colspan=11 align="right"><input type="submit" value="Submit"
name="submitTop"></td> </tr>
<tr><td colspan="10">Vendor <%=strVendor%></td></tr>
<tr>
<td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER _BY"&n&"=1")%>">PO#/PT#</a></td>
<td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER _BY"&n&"=2")%>">Line#</a></td>
<td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER _BY"&n&"=3")%>">Date</a></td>
<td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER _BY"&n&"=4")%>">Part
No.</a></td>
<td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER _BY"&n&"=5")%>">Description</a></td>
<td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER _BY"&n&"=6")%>">UOS</a></td>
<td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER _BY"&n&"=7")%>">On Hand</a></td>
<td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER _BY"&n&"=8")%>">On Order</a></td>
<td><a href="../production/orders_pro.asp?<%Response.write(strSortLink+"ORDER _BY"&n&"=9")%>">Com</a></td>
<td>Complete</td>
<td>Est.Delivery Date</td>
</tr>
<%

do until rs3.eof
commit=rs3("QUANTITY COMMITTED")
onhand=rs3("QUANTITY ON HAND")
important = commit - onhand
strLine = rs3("LINE NUMBER")
strPDate= rs3("PURCHASE DATE")
strPartNo= rs3("STOCK NUMBER")
%>
<tr<%if important>0 then response.write(" bgcolor='#ccaaaa'")
%>>
<td style='border-right: 1 solid #808080'><a
href="javascript:;" onClick="MM_openBrWindow('../production/orderdetail.asp?po=<%=rs3("PURCHASE
ORDER NUMBER")%>','po','scrollbars=yes,resizable=yes')"> <%=rs3("PURCHASE
ORDER NUMBER")%></a></td>
<td style='border-right: 1 solid #808080'><%=rs3("LINE
NUMBER")%></td>
<td style='border-right: 1 solid #808080'><%=LEFT(rs3("PURCHASE DATE"),2)%><%=MID(rs3("PURCHASE DATE"),
3, 2)%><%=RIGHT(rs3("PURCHASE DATE"),2)%></td>
<td style='border-right: 1 solid #808080'><a
href="javascript:;" onClick="MM_openBrWindow('../production/bomdisplay.asp?partno=<%=rs3("STOCK
NUMBER")%>','bom','scrollbars=yes,resizable=yes,wi dth=500,height=400')"><%=rs3("STOCK
NUMBER")%></a></td>
<td style='border-right: 1 solid #808080'><%=rs3("STOCK
DESCRIPTION")%> <%=rs3("EXTENDED DESCRIPTION 1")%></td>
<td style='border-right: 1 solid #808080'><%=rs3("UNIT OF
SALE")%></td>
<td style='border-right: 1 solid #808080'><%=rs3("QUANTITY
ON HAND")%></td>
<td style='border-right: 1 solid #808080'><%=rs3("QUANTITY
ON ORDER")%></td>
<td><%=rs3("QUANTITY COMMITTED")%></td>
<td><a href="javascript:;"
onClick="MM_openBrWindow('../production/complete.asp?po=<%=rs3("PURCHASE
ORDER NUMBER")+"&vc="+StrVendor%>','po','scrollbars=yes, resizable=yes')">X</a></td>
<td><input type="text" size=10 name="estDel"></td>
</tr>
<%
rs3.movenext
loop
response.flush
rs3.close

sql="SELECT * FROM northprod2 WHERE ([VENDOR NUMBER] = '" + strVendor
sql = sql +"' AND [PICKTICKET TYPE]='N' AND [BIN LOCATION]='ASL'"

if sOrder = "" then
sql = sql & " AND [QUANTITY COMMITTED]>0) "
else
sql = sql & ") "
end if
select case true
case sOrder =""
strOrderBy2 = "ORDER BY [DATE]"
case sOrder = "1"
strOrderBy2 = "ORDER BY [PICKTICKET NUMBER]"
case sOrder = "2"
strOrderBy2 = "ORDER BY [LINE NUMBER]"
case sOrder ="3"
strOrderBy2 = "ORDER BY [DATE]"
case sOrder = "4"
strOrderBy2 = "ORDER BY [STOCK NUMBER]"
case sOrder = "5"
strOrderBy2 = "ORDER BY [STOCK DESCRIPTION]"
case sOrder ="6"
strOrderBy2 = "ORDER BY [UNIT OF SALE]"
case sOrder = "7"
strOrderBy2 = "ORDER BY [QUANTITY ON HAND]"
case sOrder = "8"
strOrderBy2 = "ORDER BY [QUANTITY ON ORDER]"
case sOrder = "9"
strOrderBy2 = "ORDER BY [QUANTITY COMMITTED]"

end select
sql = sql & strOrderBy2 + strOrderDESC

rs3.Open sql, Cm3, 3, 3
do until rs3.eof
commit=rs3("QUANTITY COMMITTED")
onhand=rs3("QUANTITY ON HAND")
important = commit - onhand

%>
<tr<%if important>0 then response.write(" bgcolor='#ccaaaa'")
%>>
<td style='border-right: 1 solid #808080'><a
href="javascript:;" onClick="MM_openBrWindow('../production/orderdetail.asp?pt=<%=rs3("PICKTICKET
NUMBER")%>','pt','scrollbars=yes,resizable=yes')"> <%=rs3("PICKTICKET
NUMBER")%><%=rs3("PICKTICKET TYPE")%></a></td>
<td style='border-right: 1 solid #808080'><%=rs3("LINE
NUMBER")%></td>
<td style='border-right: 1 solid #808080'><%=rs3("DATE")%></td>
<td style='border-right: 1 solid #808080'><a
href="javascript:;" onClick="MM_openBrWindow('../production/bomdisplay.asp?partno=<%=rs3("STOCK
NUMBER")%>','bom','scrollbars=yes,resizable=yes,wi dth=500,height=400')"><%=rs3("STOCK
NUMBER")%></a></td>
<td style='border-right: 1 solid #808080'><%=rs3("STOCK
DESCRIPTION")%></td>
<td style='border-right: 1 solid #808080'><%=rs3("UNIT OF
SALE")%></td>
<td style='border-right: 1 solid #808080'><%=rs3("QUANTITY
ON HAND")%></td>
<td style='border-right: 1 solid #808080'><%=rs3("QUANTITY
ON ORDER")%></td>
<td><%=rs3("QUANTITY COMMITTED")%></td>
<td></td>
<td> </td>

</tr>
<%
rs3.movenext
loop
response.flush
rs3.close
if sOrder = "" then

sql="SELECT * FROM northprod1 WHERE ([VENDOR CODE] = '"+ strVendor
sql = sql + "' AND TYPE='P' AND [QUANTITY COMMITTED]=0) " + sOrderBy

rs3.Open sql, Cm3, 3, 3
do until rs3.eof

%>
<tr>
<td style='border-right: 1 solid #808080'><a
href="javascript:;" onClick="MM_openBrWindow('../production/orderdetail.asp?po=<%=rs3("PURCHASE
ORDER NUMBER")%>','po','scrollbars=yes,resizable=yes')"> <%=rs3("PURCHASE
ORDER NUMBER")%></a></td>
<td style='border-right: 1 solid #808080'><%=rs3("LINE
NUMBER")%></td>
<td style='border-right: 1 solid #808080'><%=LEFT(rs3("PURCHASE DATE"),2)%><%=MID(rs3("PURCHASE DATE"),
3, 2)%><%=RIGHT(rs3("PURCHASE DATE"),2)%></td>
<td style='border-right: 1 solid #808080'><a
href="javascript:;" onClick="MM_openBrWindow('../production/bomdisplay.asp?partno=<%=rs3("STOCK
NUMBER")%>','bom','scrollbars=yes,resizable=yes,wi dth=500,height=400')"><%=rs3("STOCK
NUMBER")%></a></td>
<td style='border-right: 1 solid #808080'><%=rs3("STOCK
DESCRIPTION")%> <%=rs3("EXTENDED DESCRIPTION 1")%></td>
<td style='border-right: 1 solid #808080'><%=rs3("UNIT OF
SALE")%></td>
<td style='border-right: 1 solid #808080'><%=rs3("QUANTITY
ON HAND")%></td>
<td style='border-right: 1 solid #808080'><%=rs3("QUANTITY
ON ORDER")%></td>
<td><%=rs3("QUANTITY COMMITTED")%></td>
<td></td>
<td><input type="text" size=10 name="estDel"></td>
<td><a href="javascript:;"
onClick="MM_openBrWindow('../production/complete.asp?po=<%=rs3("PURCHASE
ORDER NUMBER")+"&vc="+StrVendor%>','po','scrollbars=yes, resizable=yes')">X</a></td>

</tr>
<%
rs3.movenext
loop
%>

<%
rs3.close

sql="SELECT * FROM northprod2 WHERE ([VENDOR NUMBER] = '" + strVendor
sql = sql & "' AND [PICKTICKET TYPE]='N' AND [BIN LOCATION]='ASL' AND
[QUANTITY COMMITTED]=0) " + sOrderBy2

rs3.Open sql, Cm3, 3, 3
do until rs3.eof

%>
<tr>
<td style='border-right: 1 solid #808080'><a
href="javascript:;" onClick="MM_openBrWindow('../production/orderdetail.asp?pt=<%=rs3("PICKTICKET
NUMBER")%>','pt','scrollbars=yes,resizable=yes')"> <%=rs3("PICKTICKET
NUMBER")%><%=rs3("PICKTICKET TYPE")%></a></td>
<td style='border-right: 1 solid #808080'><%=rs3("LINE
NUMBER")%></td>
<td style='border-right: 1 solid #808080'><%=rs3("DATE")%></td>
<td style='border-right: 1 solid #808080'><a
href="javascript:;" onClick="MM_openBrWindow('../production/bomdisplay.asp?partno=<%=rs3("STOCK
NUMBER")%>','bom','scrollbars=yes,resizable=yes,wi dth=500,height=400')"><%=rs3("STOCK
NUMBER")%></a></td>
<td style='border-right: 1 solid #808080'><%=rs3("STOCK
DESCRIPTION")%></td>
<td style='border-right: 1 solid #808080'><%=rs3("UNIT OF
SALE")%></td>
<td style='border-right: 1 solid #808080'><%=rs3("QUANTITY
ON HAND")%></td>
<td style='border-right: 1 solid #808080'><%=rs3("QUANTITY
ON ORDER")%></td>
<td><%=rs3("QUANTITY COMMITTED")%></td>
<td> </td>
</tr>
<%
rs3.movenext
loop
response.flush
rs3.close
end if
set rs3=nothing
%>
<tr><td colspan="9">  </td></tr>
<%
end if
next
response.flush

cm3.close
set cm3=nothing

Ray at · Ray at

Renie83,

May I give you advice without your taking it as an attack? It's really not.

Being a newbie with ASP is fine. There's nothing wrong with that at all.
But being a newbie in the newsgroups can sometimes be harmful and there are
certain actions that will make your getting help less likely. Here are some
samples of things that you should not do anymore.

1. Do not multi-post. (See here for details. [url]http://www.aspfaq.com/5003[/url])
2. Don't post a 10,000 lines of code and html that are irrelevant.
3. Be as concise as possible in your explanation, so people understand what
you mean.
4. Re-read your post and pretend you know nothing about your application
and ask yourself if you'd understand what you're talking about.

Ray at work

"Renie83" <renie83@lycos.com> wrote in message
news:8e153bdf.0307141116.a75afa9@posting.google.co m...

> My big problem is I'm a newbie working with someone else's code.(See
> code below) What I want to do is for the records that have a purchase
> order number I want a text box at the end

<trim>

HELP! Passing from database to asp page allowing user input then passing to another database.

Thread Tools

Display

HELP! Passing from database to asp page allowing user input then passing to another database.

Similar Questions and Discussions

Passing database column names as varable

Passing Database Value to another page

passing data through a database

Passing database resource to object (OO)

Passing database info to page allow user input then pass into another database

Re: HELP! Passing from database to asp page allowing user input then passing to another database.

Posting Permissions