Okay, I figured out how to do what I was asking before. However, now that I've gotten just about through with the program it's still not saving my input to the database. Please help:
*I am not receiving an error message, but I know the problem lies somewhere in my INSERT statement.
The database i am using is the Northwinds database from SQL (if any of you are familiar--i believe it is the same one that is also in MS Access).
The tables I am using are:
Customers
Employees
Categories1(table I made up off of the original Categories table from the Northwind database).
Now, the only table I am trying to alter right now is the Categories1 table. I am trying to add data information from an input form
Form:
User enters a category name
User enters a category description
[Insert button - to add data]
[View Changes button - to take user back to "Select Table" page, to select their table again and see the new data added]
I have two files...
ViewTable.asp and InsertCategory.asp
The contents in ViewTable.asp are:
<%
Dim strTableName
Dim strActionName
Dim strSubActionName
strTableName = Request.Form("Table")
strActionName = Request.Form("Action")
strSubActionName = Request.Form("SubAction")
Dim rs
Dim ConnectionString
Dim out
Set rs = CreateObject("ADODB.RecordSet")
ConnectionString = "Provider=SQLOLEDB.1;UID=sa;PWD=;Initial Catalog=Northwind;Data Source=localhost"
Function GetEmployeeTableRows()
rs.open "SELECT * " & _
"FROM EMPLOYEES" _
,ConnectionString
out = ""
If Not rs.EOF Then
'out = out & "<TR>" & vbCrLf
For i = 0 To rs.Fields.Count - 1
out = out & "<TD class=""header"">" & _
rs.Fields(i).name & _
"</TD>" & vbCrLf
Next
'out = out & "</TR>" & vbCrLf
End If
Dim val
While Not rs.EOF
out = out & "<TR>" & vbCrLf
For i = 0 To rs.Fields.Count - 1
val = rs.Fields(i).value
If IsNull(val) Then
val = "no info"
ElseIf IsArray(val) Then
val = "(array)"
End If
out = out & "<TD " & _
"style=""vertical-align: top"" " & _
">" & _
val & _
"</TD>" & vbCrLf
Next
'out = out & "</TR>" & vbCrLf
rs.MoveNext
Wend
%>
NOW VIEWING ALL RECORDS FROM EMPLOYEES TABLE. <BR>
PLEASE SCROLL DOWN TO SELECT A DIFFERENT TABLE.
<%
rs.close
GetEmployeeTableRows = out
End Function
Function GetCustomerTableRows
End Function
Function GetCategoryTableRows
'These two functions have the same exact code as the first function (GetEmployee...) except the Table names in the SELECT statements are different
End Function
%>
<%
If strTableName = "" Then
%>
<HTML>
<HEAD>
<TITLE>NO TABLE SELECTED</TITLE>
<style>
.header {
font: bold 12pt sans-serif;
color: blue;
}
td {
font: 10pt sans-serif;
color: red;
}
</style>
</HEAD>
<BODY>
An Error Has Occured:<BR>
You must select a table name.
<P>
<FORM NAME = "frmClick" ACTION="Tables.asp">
<INPUT TYPE="SUBMIT" NAME="CHOOSE" VALUE="SELECT TABLE" onClick = "Tables.asp">
</FORM>
</BODY>
</HTML>
<%
End If
%>
<%
If strTableName = "Customers" Then
%>
<HTML>
<HEAD>
<TITLE>Upload Table CUSTOMERS</TITLE>
<style>
.header {
font: bold 12pt sans-serif;
color: purple;
}
td {
font: 10pt sans-serif;
color: blue;
}
</style>
</HEAD>
<BODY>
<table border="1">
<%= GetCustomerTableRows %>
</table>
<P>
<FORM NAME = "frmClick" ACTION="Tables.asp">
<INPUT TYPE="SUBMIT" NAME="CHOOSE" VALUE="CHANGE TABLE" onClick = "Tables.asp">
</FORM>
</BODY>
</HTML>
<%
End If
%>
<%
If strTableName = "Employees" Then
%>
<HTML>
<HEAD>
<TITLE>Upload Table EMPLOYEES</TITLE>
<style>
.header {
font: bold 12pt sans-serif;
color: purple;
}
td {
font: 10pt sans-serif;
color: blue;
}
</style>
</HEAD>
<BODY>
<table border="1">
<%= GetEmployeeTableRows %>
</table>
<P>
<FORM NAME = "frmClick" ACTION="Tables.asp">
<INPUT TYPE="SUBMIT" NAME="CHOOSE" VALUE="CHANGE TABLE" onClick = "Tables.asp">
</FORM>
</BODY>
</HTML>
<%
End If
%>
<%
If strTableName = "Categories" Then
%>
<HTML>
<HEAD>
<TITLE>Upload Table CATEGORIES</TITLE>
<style>
.header {
font: bold 12pt sans-serif;
color: purple;
}
td {
font: 10pt sans-serif;
color: blue;
}
</style>
</HEAD>
<BODY>
<table border="1">
<%= GetCategoriesTableRows %>
</table>
<P>
<FORM NAME = "frmClick" ACTION="Tables.asp">
<INPUT TYPE="SUBMIT" NAME="CHOOSE" VALUE="CHANGE TABLE" onClick = "Tables.asp">
</FORM>
<p>
<FORM NAME = "frmClick" ACTION="InsertCategory.asp">
<INPUT TYPE="SUBMIT" NAME="CHOOSE" VALUE="INSERT CATEGORY" onClick = "InsertCategory.asp">
</FORM>
</BODY>
</HTML>
<%
End If
%>
The contents in the InsertCategory.asp file are:
<%
Dim rs
Dim ConnectionString
Dim out
Set rs = CreateObject("ADODB.RecordSet")
ConnectionString = "Provider=SQLOLEDB.1;UID=sa;PWD=;Initial Catalog=Northwind;Data Source=localhost"
Dim strCategoryDescription
Dim strCategoryName
strCategoryDescription = Request.Form("Description")
strCategoryName = Request.Form("CategoryName")
Function InsertCategoryTableRows()
rs.open "INSERT INTO CATEGORIES1" & _
"(CategoryName, Description)" & _
"VALUES(' " & strCategoryName & "' ',' '" & strCategoryDescription & "')" _
,ConnectionString
out = ""
End Function
%>
<%
'the Form collection of the Request object to retrieve
'the values entered by the client into an HTML form.
strCategoryName = Request.Form("CategoryName")
strCategoryDescription = Request.Form("Description")
%>
<HTML>
<HEAD>
<TITLE>INSERT NEW CATEGORY</TITLE>
</HEAD>
<BODY>
<CENTER>
<H1>INSERT CATEGORY</H1>
Please enter category information below:
<FORM NAME = "frmClick" ACTION="InsertCategory.asp" METHOD = "POST">
Category Name: <INPUT TYPE="text" NAME = "CategoryName" ><BR>
Category Description: <INPUT TYPE="text" NAME = "Description" ><BR>
<INPUT TYPE = "Submit" VALUE = "Insert" onClick="InsertCategory.asp"><BR>
</FORM>
<FORM NAME = "frmClick" ACTION="Tables.asp" METHOD="POST">
<INPUT TYPE = "Submit" VALUE = "View Changes" onClick="Tables.asp"><BR>
New Category <%= strCategoryName %>, described as: <%= strCategoryDescription %>, has been inserted.
</FORM>
</BODY>
</HTML>
Okay, I hope I put everything you needed me to put in here for you. If you see why my data is not posting to my table PLEASE let me know!
**Reminder, I'm not receiving an error message, it's just now posting my data to the table.
THANKS FOR ALL YOUR TIME AND PATIENCE!
HAVE A GREAT DAY!
Saving data to a table through form input
