Help add/update a record in first table and 2nd
i can add the record in first table but cant get it to do with the second one
one of the field in the first table the "mktid" which is the primary and is a forgeiner key in the second table how can i have it insert or update in the second one
addnew.html
addnewcontact.asp
i can add the record in first table but cant get it to do with the second one
one of the field in the first table the "mktid" which is the primary and is a forgeiner key in the second table how can i have it insert or update in the second one
addnew.html
Code:
<head>
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function validateMktID(field) {
var valid = "0123456789-";
if (field.length!=5) {
alert("Please enter 5 digit number");
return false;
}
}
// End -->
</script>
</head>
<body>
<form Method="post" action="addnewcontact.asp" name=MktID onSubmit="return validateMktID(this.MktID.value)">
MktID:<br>
<input type="text" name="MktID" align="left" ><br>
MktMgr:<br>
<input type="text" name="MktMgr" align="left"><br>
MktDesc:<br>
<input type="text" name="MktDesc" align="left"><br>
MktMgrEmail:<br>
<input type="text" name="MktMgrEmail" align="left"><br>
<INPUT type="submit" value="Submit" id=submit1 name=submit1>
<INPUT type="reset" value="Reset" id=reset1 name=reset1><P>
</form>
</body>
</html>
addnewcontact.asp
Code:
<%
'~~~~~~~~~~~~~This connection is for mysql
'set adoConn = Server.CreateObject("ADODB.Connection")
'set adoRS = Server.CreateObject("ADODB.Recordset")
'adoConn.Open "DSN=mysql"
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`
'~~~~~~~~~~~~~~~~`Access Database ADO connection
Dim objDC, objRS
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30
objDC.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20 ;", "username", "password"
Set objRS = Server.CreateObject("ADODB.Recordset")
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~``
Dim ustr, sql
Dim test
MktID = server.HtmlEncode(Request.Form("MktID"))
MktMgr = server.HtmlEncode(Request.Form("MktMgr"))
MktDesc = server.HtmlEncode(Request.Form("MktDesc"))
MktMgrEmail = server.HtmlEncode(Request.Form("MktMgrEmail"))
'~~~~~~~~~~~~~~~~~Insert the records into the dab
'sql="insert into zipcode(MktMgr,MktDesc,City,State,Zip,MktMgrEmail, KAMID,Reg) values ('" & MktMgr & "','" & MktDesc & "','" & City & "','"& State & "','" & Zip & "','" & MktMgrEmail & "','" & KAMID & "','" & Reg & "')"
'sql="insert into zipcode(Zip,Reg,BUID,KAMID,MktID,City,State) values ('" & Zip & "','" & Reg & "','" & BUID & "','"& KAMID & "','" & MktID & "','" & City & "','" & State & "')"
'sql2="insert into NotifyMapping(BUID,KAMID,MktMgr,MktDesc,MktMgrEmai l) values ('" & BUID & "','" & KAMID & "','" & MktMgr & "','"& MktDesc & "','" & MktMgrEmail & "')"
sql="insert into NotifyMapping(MktID,MktMgr,MktDesc,MktMgrEmail) values ('" & MktID & "','" & MktMgr & "','"& MktDesc & "','" & MktMgrEmail & "')"
objDC.Execute sql
Response.write("Record Added")
%>
<br>
<a href="index.asp">Main</a><br>
<a href="listingcontact.asp">Continue >></a>