|
| |
|
|
climberman
Posts: 99
Joined: 8/1/2007
Status: offline
 |
Creating multiple comments - 1/19/2008 20:16:57
I am trying to do something like (evansforsyth- post) in
" Creating a number of records" but not quiet sure if it is the same thing so here goes the question.
I want everyone logged in to be able to leave comments about someone else. And other people can also leave a comment about the same person. So I added another table in the db called comments. I need to be able to pull up all of the comments about one person into a page. I have made the insert page and the read only page but not sure if I have the mechanics right and for sure I don't know the code that I will need to use. I need to be able to send and receive information from the comments table about a person and there may be more than one comment from different people.
|
|
|
|
climberman
Posts: 99
Joined: 8/1/2007
Status: offline
|
RE: Creating multiple comments - 1/21/2008 20:20:34
I am not sure I even understand enough to ask the right question but your response is helping.
Ok, Right it is like a guest book except anyone can add to the comment so the one being commented about isn't logged in. When a comment is being made about a person there needs to be a unique number made automatically for that person or maybe the auto number can be used and then someone else can come along and add to the comment by leaving another comment and so that unique number needs to be generated again.
Its like here in the forum but someone else is asking your question.
Thanks
| |
|
|
|
climberman
Posts: 99
Joined: 8/1/2007
Status: offline
|
RE: Creating multiple comments - 1/22/2008 10:47:05
Not at first someone has to add them and make a comment. Then they are in the database. And then other people can make a comment about them later on if they do a search and find them.
| |
|
|
|
climberman
Posts: 99
Joined: 8/1/2007
Status: offline
|
RE: Creating multiple comments - 1/23/2008 11:56:58
Thanks Douglass I have to go clean windows for a guy right now(it is only 8 degrees outside - go figure) so I will start working on it later. Thanks for the email
| |
|
|
|
climberman
Posts: 99
Joined: 8/1/2007
Status: offline
|
RE: Creating multiple comments - 1/23/2008 20:45:24
Here is what I have so far.
I called my comments table (comments)
I have a field in the comments table I called it AutoNumber. Thought that might make it easy to know what its for. I also have a field called (userid) that is where the unique number will go of the person that is logged in. I have that worked out already and it is working.
Here is the code that I have come up with, and I will probably be out in left field. This is to get the auto number from the table that I call PostPeople. That is where the persons name will go.
comments.AutoNumber=" & session("AutoNumber")
I haven't tried it yet I don't know where it will go anyway.
Thanks man
| |
|
|
|
climberman
Posts: 99
Joined: 8/1/2007
Status: offline
|
RE: Creating multiple comments - 1/27/2008 19:23:44
Still having problems could someone help.
Thanks
| |
|
|
|
rdouglass
Posts: 9167
From: Biddeford, ME USA
Status: offline
|
RE: Creating multiple comments - 1/28/2008 8:51:57
How about posting the code of the page you have so far?
_____________________________
Don't take you're eye off your final destination.
ASP Checkbox Function Tutorial.
| |
|
|
|
climberman
Posts: 99
Joined: 8/1/2007
Status: offline
|
RE: Creating multiple comments - 1/28/2008 15:43:09
Thanks Douglass,
Here is the code I started over and left out the html stuff to keep it simple.
This is the comment page, there is a postpeople table that I need to get the autonumber from. I have a field in the comments table that is autonumber that is where I would put the number from the postpeople table, that being the number I need to get some how.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/reputation.asp" -->
<%
' *** Edit Operations: declare variables
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) = "form1") Then
MM_editConnection = MM_reputation_STRING
MM_editTable = "Description"
MM_editRedirectUrl = "Succsessful.asp"
MM_fieldsStr = "Userid|value|Discription|value|Comments|value"
MM_columnsStr = "Userid|',none,''|Discription|',none,''|Comments|',none,''"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
Dim MM_tableValues
Dim MM_dbValues
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_reputation_STRING
Recordset1.Source = "SELECT * FROM Description"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>
<table width="565" height="181" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
<td>
<form method="post" action="<%=MM_editAction%>" name="form1">
<table align="center">
<tr valign="baseline">
<td nowrap align="right">Userid:</td>
<td><input type=hidden name=userid value="<%=session("userid")%>">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Discription:</td>
<td><input type="text" name="Discription" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Comments:</td>
<td><input type="text" name="Comments" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"> </td>
<td><input type="submit" value="Insert record">
</td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form1">
</form>
<p> </p></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
Thanks man
| |
|
 New Messages |
 No New Messages |
 Hot Topic w/ New Messages |
 Hot Topic w/o New Messages |
 Locked w/ New Messages |
 Locked w/o New Messages |
|
Post New Thread
Reply to Message
Post New Poll
Submit Vote
Delete My Own Post
Delete My Own Thread
Rate Posts
|
|
|
Printable Version 
k¥ 