help me i m so much stuck int he code and i have no time ....
i used ASP VBscipt and javascript functions with MS database
javascript function add records in MS DB by using ASP vbscript recordset varible
when user click the save button then some values save in the database so i write javascript function to add the records...
here is the code
---------------------------------------------------------------------------------------
2.asp
-------------------------------------------------------------
Expand|Select|Wrap|Line Numbers
- <!--#include file="con_db.asp" -->
- <%
- dim rs1
- set rs1= server.CreateObject("ADODB.recordset")
- rs1.ActiveConnection=DB_string
- rs1.Source="Select * from physical_usage_data"
- rs1.Cursortype=2
- rs1.locktype=3
- rs1.open()
- rs1_numRows = 0
- dim rs2
- set rs2= server.CreateObject("ADODB.recordset")
- rs2.ActiveConnection=DB_string
- rs2.Source="Select * from product_data"
- rs2.Cursortype=1
- rs2.locktype=2
- rs2.open()
- rs2_numRows = 0
- %>
- <script language="javascript">
- var d2_array=new Array;
- var p2_array=new Array;
- var P2=0;
- var D_html;
- </script>
- <script language="javascript">
- function showHint(p_id, p_val)
- {
- if (p_id=='Detergent')
- {
- p2_array[P2]=p_val;
- <%
- rs2.movefirst
- if not(rs2.eof and rs2.bof) then
- do until rs2.eof
- for i=1 to rs2.recordcount
- %>
- if (p_val=='<%=rs2.fields.item("PRODUCT").value%>')
- {
- p2_array[P2]=p_val;
- d2_array[P2]='<%=rs2.fields.item("PROD_ID").value%>'+' '+'<%=rs2.fields.item("PROD_DESC").value%>';
- P2++;
- }
- <%
- rs2.movenext
- next
- loop
- end if
- %>
- D_html="<table id='Table2'>";
- for (i = 0; i<=d2_array.length-1; i++)
- {
- D_html+="<tr><td nowrap>";
- D_html+=d2_array[i];
- D_html+=" </td><td><input type='text' size='10'>gallons ";
- D_html+="</td><td><input type='button' value='Remove' onclick='P2_deleteRow(this)'></td></tr>";
- }
- D_html+="</table>";
- document.getElementById("Detergent").innerHTML=D_html;
- }
- }
- function P2_deleteRow(r)
- {
- var i=r.parentNode.parentNode.rowIndex;
- d2_array.splice(i,1);
- p2_array.splice(i,1);
- document.getElementById('Table2').deleteRow(i);
- P2=d2_array.length;
- }
- ///////////////////////////////////////////////////////////////////////////////////////////
- function save() {
- var record
- <%rs2.movefirst%>
- for (t = 0; t<=p2_array.length-1; t++){
- record=p2_array[t];
- <%if not(rs2.eof and rs2.bof) then
- do until rs2.eof
- for i=1 to rs2.recordcount
- %>
- if (record == '<%=rs2.fields.item("PRODUCT").value%>')
- {
- <%
- rs1.AddNew
- rs1.fields("PROD_ID")=rs2.fields("PROD_ID").value
- rs1.Update
- %>
- document.getElementById("a").innerHTML="done";
- }
- <%
- rs2.movenext
- next
- loop
- end if
- %>
- }
- }
- </script>
here is the other file coding where i m callng these functions
---------------------------------------------------------------------------------------
1.asp
-------------------------------------------------------------
Expand|Select|Wrap|Line Numbers
- <%@LANGUAGE="VBSCRIPT"%>
- <% response.Buffer=true %>
- <!--#include file="2.asp" -->
- <%
- dim rs,rs4
- set rs= server.CreateObject("ADODB.recordset")
- rs.ActiveConnection=DB_string
- rs.Source="SELECT DISTINCT sales_data.PRODUCT, product_data.PROD_CATEGORY, sales_data.CUST_ACCT_ID FROM sales_data INNER JOIN product_data ON sales_data.PROD_ID = product_data.PROD_ID WHERE (((sales_data.CUST_ACCT_ID)= 'P11618675'))"
- rs.Cursortype=1
- rs.locktype=2
- rs.open()
- rs_numRows = 0
- set rs4= server.CreateObject("ADODB.recordset")
- rs4.ActiveConnection=DB_string
- rs4.Source="SELECT DISTINCT physical_usage_data.PROD_ID, physical_usage_data.PROD_CATEGORY, product_data.PROD_DESC, physical_usage_data.PROD_USAGE_AMT, physical_usage_data.PROD_USAGE_DT, physical_usage_data.ENTER_BY_IND, physical_usage_data.CRE_DT FROM physical_usage_data INNER JOIN product_data ON physical_usage_data.PROD_ID = product_data.PROD_ID WHERE (((physical_usage_data.CUST_ACCT_NBR)= 'P11618675'))"
- rs4.Cursortype=1
- rs4.locktype=2
- rs4.open()
- rs4_numRows = 0
- %>
- <html>
- <head>
- <title>java</title>
- </head>
- <body>
- <%
- if not(rs4.eof and rs4.bof) then
- rs4.movefirst
- response.write("<table id='myTable1'>")
- do until rs4.eof
- for i=1 to rs4.recordcount
- if (rs4.fields.item("PROD_CATEGORY").value)="Detergent" then
- response.Write("<tr><td>"&rs4.fields.item("PROD_ID").value&"</td><td nowrap> "&rs4.fields.item("PROD_DESC").value&"</td><td> <input type='text' id='txt' size='10' readonly='text' value='"&rs4.fields.item("PROD_USAGE_AMT").value&"'>gallons</td><td> <input type='button' value='Remove' onclick='deleteRow(this,myTable1.id)'></td></tr>")
- 'response.Write(rs4.fields.item("PROD_ID").value &" "&rs4.fields.item("PROD_DESC").value&" ")
- 'response.Write("<input type='text' id='txt' size='10' value='"&rs4.fields.item("PROD_USAGE_AMT").value&"'/><br>")
- 'response.Write("<input type='button' value='Remove' ><br>")
- end if
- rs4.movenext
- next
- loop
- response.write("</table>")
- end if
- %>
- <a id="a"></a><br>
- <a id="b"></a><br>
- <a id="Detergent"></a><br>
- <select id="Detergent" onchange="showHint(this.id,this.value)">
- <option>Choose Product..</option>
- <%
- rs.movefirst
- if not(rs.eof and rs.bof) then
- do until rs.eof
- for RD=1 to rs.recordcount
- if (rs.fields.item("PROD_CATEGORY").value)="Detergent" then
- %>
- <option value="<%=rs.fields.item("PRODUCT").value%>"> <%=rs.fields.item("PRODUCT").value%></option>
- <%
- end if
- rs.movenext
- next
- loop
- end if
- %>
- </select>
- <input type="button" value="Save" onclick="javascript:save('true')"/>
- <%
- rs2.close
- set rs2=nothing
- rs1.close
- set rs1=nothing
- rs.close
- set rs=nothing
- rs4.close
- set rs4=nothing
- %>
- </body>
- </html>
reply me fast ........
thanks
ddirector