javascript add records in MS DB by using ASP vbscript recordset varible

[anniefs]

hi
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
-------------------------------------------------------------
[CODE=asp]<!--#include file="con_db.as p" -->


<%




dim rs1
set rs1= server.CreateOb ject("ADODB.rec ordset")
rs1.ActiveConne ction=DB_string
rs1.Source="Sel ect * from physical_usage_ data"
rs1.Cursortype= 2
rs1.locktype=3
rs1.open()
rs1_numRows = 0

dim rs2
set rs2= server.CreateOb ject("ADODB.rec ordset")
rs2.ActiveConne ction=DB_string
rs2.Source="Sel ect * from product_data"
rs2.Cursortype= 1
rs2.locktype=2
rs2.open()
rs2_numRows = 0


%>
<script language="javas cript">

var d2_array=new Array;
var p2_array=new Array;
var P2=0;
var D_html;
</script>

<script language="javas cript">


function showHint(p_id, p_val)
{
if (p_id=='Deterge nt')
{
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("P RODUCT").value% >')
{
p2_array[P2]=p_val;
d2_array[P2]='<%=rs2.fields .item("PROD_ID" ).value%>'+'&nb sp;&nbsp;&nbsp; &nbsp;&nbsp;'+' <%=rs2.fields.i tem("PROD_DESC" ).value%>';
P2++;
}
<%
rs2.movenext
next
loop
end if
%>
D_html="<table id='Table2'>";
for (i = 0; i<=d2_array.len gth-1; i++)
{
D_html+="<tr><t d nowrap>";
D_html+=d2_arra y[i];
D_html+="&nbsp; &nbsp;&nbsp; </td><td><input type='text' size='10'>gallo ns &nbsp;&nbsp;&nb sp;&nbsp;";
D_html+="</td><td><input type='button' value='Remove' onclick='P2_del eteRow(this)'></td></tr>";
}
D_html+="</table>";
document.getEle mentById("Deter gent").innerHTM L=D_html;



}
}

function P2_deleteRow(r)
{
var i=r.parentNode. parentNode.rowI ndex;
d2_array.splice (i,1);
p2_array.splice (i,1);
document.getEle mentById('Table 2').deleteRow(i );
P2=d2_array.len gth;
}



///////////////////////////////////////////////////////////////////////////////////////////

function save() {
var record
<%rs2.movefirst %>
for (t = 0; t<=p2_array.len gth-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("PRO D_ID")=rs2.fiel ds("PROD_ID").v alue
rs1.Update

%>
document.getEle mentById("a").i nnerHTML="done" ;
}
<%
rs2.movenext
next
loop
end if
%>
}
}

</script>
[/CODE]--------------------------------------------------------
here is the other file coding where i m callng these functions
---------------------------------------------------------------------------------------
1.asp
-------------------------------------------------------------
[CODE=asp]<%@LANGUAGE="VB SCRIPT"%>
<% response.Buffer =true %>
<!--#include file="2.asp" -->

<%
dim rs,rs4
set rs= server.CreateOb ject("ADODB.rec ordset")
rs.ActiveConnec tion=DB_string
rs.Source="SELE CT DISTINCT sales_data.PROD UCT, product_data.PR OD_CATEGORY, sales_data.CUST _ACCT_ID FROM sales_data INNER JOIN product_data ON sales_data.PROD _ID = product_data.PR OD_ID WHERE (((sales_data.C UST_ACCT_ID)= 'P11618675'))"
rs.Cursortype=1
rs.locktype=2
rs.open()
rs_numRows = 0


set rs4= server.CreateOb ject("ADODB.rec ordset")
rs4.ActiveConne ction=DB_string
rs4.Source="SEL ECT DISTINCT physical_usage_ data.PROD_ID, physical_usage_ data.PROD_CATEG ORY, product_data.PR OD_DESC, physical_usage_ data.PROD_USAGE _AMT, physical_usage_ data.PROD_USAGE _DT, physical_usage_ data.ENTER_BY_I ND, physical_usage_ data.CRE_DT FROM physical_usage_ data INNER JOIN product_data ON physical_usage_ data.PROD_ID = product_data.PR OD_ID WHERE (((physical_usa ge_data.CUST_AC CT_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.ite m("PROD_CATEGOR Y").value)="Det ergent" then

response.Write( "<tr><td>"&rs4. fields.item("PR OD_ID").value&" </td><td nowrap>&nbsp;&n bsp;&nbsp;&nbsp ;"&rs4.fields.i tem("PROD_DESC" ).value&"</td><td>&nbsp;&n bsp;&nbsp;&nbsp ;<input type='text' id='txt' size='10' readonly='text' value='"&rs4.fi elds.item("PROD _USAGE_AMT").va lue&"'>gallons</td><td>&nbsp;&n bsp;&nbsp;&nbsp ;<input type='button' value='Remove' onclick='delete Row(this,myTabl e1.id)'></td></tr>")
'response.Write (rs4.fields.ite m("PROD_ID").va lue &"&nbsp;&nbsp;& nbsp;&nbsp;"&rs 4.fields.item(" PROD_DESC").val ue&"&nbsp;&nbsp ;&nbsp;&nbsp; ")
'response.Write ("<input type='text' id='txt' size='10' value='"&rs4.fi elds.item("PROD _USAGE_AMT").va lue&"'/><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="showH int(this.id,thi s.value)">
<option>Choos e 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)="Dete rgent" then
%>
<option value="<%=rs.fi elds.item("PROD UCT").value%>" > <%=rs.fields.it em("PRODUCT").v alue%></option>
<%
end if
rs.movenext
next
loop
end if
%>
</select>
<input type="button" value="Save" onclick="javasc ript:save('true ')"/>
<%
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing
rs.close
set rs=nothing
rs4.close
set rs4=nothing
%>

</body>
</html>
[/CODE]
-------------------------------------------------------------
reply me fast ........
thanks
ddirector

[acoder]

JavaScript can't interact with a database directly.

Either use Ajax to make a request to the server to save the data or put the data in a form and submit the form to a server-side script which saves the data to the database.