Please start any new threads on our new site at https://forums.sqlteam.com. We've got lots of great SQL Server experts to answer whatever question you can come up with.

All Forums  SQL Server 2000 Forums  SQL Server Development (2000)  Adding data into a table

Author  Topic  Melanie Starting Member 5 Posts Posted - 2000-11-14 : 09:43:09 I can't seem to find anybody to help me. So PLLEEEEASE I beg of you HELP, HELP! I have a form. User inserts data into the form. User clicks submit. Data is carried to this ASP page. I want the data to be inserted into the 4 different tables. What am I doing wrong?????? Someone suggested I use the INSERT INTO statement. But can I use it so that it puts the data into all the tables. How do I write out???? *on hands and knees begging* help :( <%@ Language=VBScript %> <% Option Explicit %> <!--#include file="EventConn.asp"--> <% Dim objRS Set objRS = cnnEvent.openrecordset("SELECT tblEvent.*, tblEventContact.*, tblEventDateTime.*, tblEventLocation.*, tblLocationEvent.* FROM (((tblEvent INNER JOIN tblEventContact ON tblEvent.EventID = tblEventContact.EventID) INNER JOIN tblEventLocation ON tblEvent.EventID = tblEventLocation.EventID) INNER JOIN tblLocationEvent ON (tblEvent.EventID = tblLocationEvent.EventID) AND (tblEventLocation.EventLocationID = tblLocationEvent.EventLocationID)) INNER JOIN tblEventDateTime ON tblLocationEvent.LocationEventID = tblEventDateTime.LocationEventID", adoptimistic) objRS.AddNew objRS("EventName") = Trim(Request("EventName")) objRS("EventStartDate") = Trim(Request("StartDate")) objRS("EventEndDate") = Trim(Request("EventEndDate")) objRS("EventStartTime") = Trim(Request("EventStartTime")) objRS("EventEndTime") = Trim(Request("EventEndTime")) objRS("EventLocation") = Trim(Request("EventLocation")) objRS("EventAddress1") = Trim(Request("EventAddress1")) objRS("EventAddress2") = Trim(Request("EventAddress2")) objRS("EventCity") = Trim(Request("EventCity")) objRS("EventState") = Trim(Request("EventState")) objRS("EventZip") = Trim(Request("EventZip")) objRS("EventContact") = Trim(Request("EventContact")) objRS("EventContactEmail") = Trim(Request("EventContactEmail")) objRS("EventContactPhone") = Trim(Request("EventContactPhone")) objRS("EventContactExten") = Trim(Request("EventContactExten")) objRS("EventDescript") = Trim(Request("EventDescript")) objRS.Update objRS.Close Set objRS = Nothing cnnEvent.close Set cnnEvent = Nothing %>