How to insert 2 tables with same auto increment ID
Hi all, I am having problem inserting the auto_increment id (FID) of table "TOPIC" to FTopicID of Table Msgs, I am using mysql as databse.The code works fine with MS Access Databse.Could any body help me.My codes are as follows:-
Dim rsTopic
set rsTopic = Server.CreateObject("ADODB.Recordset")
rsTopic.Open "Topic", objconn, adOpenForwardOnly, adLockOptimistic, adCmdTable
rsTopic.AddNew
If Request.Cookies("PMBVisit")("UserName") = "" Then
rsTopic("FGuest") = Request.Form("FName")
rsTopic("FTProfile") = False
Else
rsTopic("FName") = Request.Cookies("PMBVisit")("UserID")
rsTopic("FTProfile") = True
End If
rsTopic("FForumJoinID") = Request.Querystring("ForumID")
rsTopic("FSubject") = Request.Form("FSubject")
'the problem is here
Session("FTopicID") = rsTopic("FID")
rsTopic("FIcon") = Request.Form("TopicIcon")
rsTopic.Update
rsTopic.Close
set rsTopic = Nothing
'---------------------------------------------------------
' Dim NewID
' strSQL = "SELECT ID from table ORDER BY ID ASC LIMIT 1"
' "SELECT MAX(FID) from Topic"
' set NewID = Server.CreateObject("ADODB.Recordset")
' NewID.set strSQL, objConn
Dim rsMsgs
set rsMsgs = Server.CreateObject("ADODB.Recordset")
rsMsgs.Open "Msgs", objConn, adOpenForwardOnly, adLockOptimistic, adCmdTable
rsMsgs.AddNew
If Request.Cookies("PMBVisit")("UserName") = "" Then
rsMsgs("FMsgGuest") = Request.Form("FName")
rsMsgs("FMsgEmail") = Request.Form("FEmail")
rsMsgs("FMsgProfile") = False
Else
rsMsgs("FMsgName") = Request.Cookies("PMBVisit")("UserID")
rsMsgs("FMsgEmail") = Request.Cookies("PMBVisit")("Email")
rsMsgs("FMsgProfile") = True
End If
rsMsgs("FMsg") = Request.Form("FMsg")
rsMsgs("FTopicID") = Session("FTopicID")
rsMsgs("FMsgForumID") = Request.QueryString("ForumID")
rsMsgs("FMsgIP") = Request.ServerVariables("LOCAL_ADDR")
rsMsgs.Update
rsMsgs.Close
set rsMsgs = Nothing
:)
|