114
Please could someone help me with this code? The problem appears to be a simple one, but i'm not html or ASP literate and need to modify the below code to add 2 things.
First a bit about the website: It's a news website, which has talkback, where the public register to post comments. One of the options in the comments is for the commentator to leave an email icon, if they want private emails from other readers. The initial email is sent through a form, When someone clicks a link they are taken to this form below, which is a form on a commenting website, where they can send a blind email to the commentator.
Blind email means that they are sending an email to the person's username, and at the same time their own email which will be shown to whomever gets the email. The form's "Name" is where the email will be sent, and the "Name" field has the email in the database, only the "Name" is shown in public (which is the username)
The form has a Name, Subject and Comment section, which they fill in, and then once clicked, the email is sent.
I want to add the following 2 things
1. I want a blind carbon copy of the email sent to "admin@myweb.co m" . I have tried the bcc. but can't get it right, don't know where to put it.
2. I also want to add a signature at the bottom of the email, so that it shows it came from my website. Something simple like a few lines of
"You are receiving this email from the talkback at mywebsite.com. It is a response to your talkback message. Thank you for using our talkback"
Could someone tell me what to include and where exactly? I am not familiar with html or ASP. Thank you in advance.
<!--#include file="inc_api.a sp"-->
<!--#include file="config.as p"-->
<% Dim ID, RS, SQL, NAME, EMAIL, COMMENT, sDATE, IO, M_ID, SUBJECT, CITY, COUNTRY, ALLOW_E, AID, NEXT_ID, C_NAME, C_EMAIL, MESSAGE, _
blDONE, blLOGGED_IN
ID = Trim(Request.Qu eryString("ID") )
AID = Trim(Request.Qu eryString("AID" ))
IF IS_VALID_ID(ID) = False OR IS_VALID_ID(AID ) = False THEN Response.END
MODE = Request.Form("m ode")
IF Trim(Session("P MMS_IN")) = "True" THEN blLOGGED_IN = True
IF MODE = "send" THEN
NAME = Request.Form("n ame")
EMAIL = Request.Form("e mail")
CONTENT = Request.Form("c ontent")
Call GET_DETAILS()
IF NAME = "" OR IsNull(NAME) THEN MESSAGE = MESSAGE & "<li />Please enter your name.<br />"
IF EMAIL = "" OR IsNull(EMAIL) THEN MESSAGE = MESSAGE & "<li />Please enter your email address.<br />"
IF CONTENT = "" OR IsNull(CONTENT) THEN MESSAGE = MESSAGE & "<li />Please enter your message.<br />"
IF MESSAGE = "" THEN
Call SEND_EMAIL_OUT( CONTENT, "RE:" & SUBJECT, C_EMAIL, EMAIL, "smtp.mywebsite .com")
blDONE = True
'Response.Redir ect "_comment_view. asp?ID=" & ID & "&AID=" & AID
'Response.END
END IF
ELSE
Call GET_DETAILS()
NAME = Session("PMMS_N AME")
EMAIL = Session("PMMS_E MAIL")
END IF
SUB GET_DETAILS()
SQL = "SELECT fldNAME, fldEMAIL, fldCOMMENT, fldDATE, fldIP, fldM_ID, fldSUBJECT, fldCITY, fldCOUNTRY, fldALLOW FROM nm_tbl_comment WHERE ID = " & ID
Call OPEN_DB()
Set RS = Server.CreateOb ject("ADODB.Rec ordset")
RS.LockType = 1
RS.CursorType = 0
RS.Open SQL, MyConn
IF NOT RS.EOF THEN
C_NAME = trim(RS("fldNAM E"))
C_EMAIL = trim(RS("fldEMA IL"))
SUBJECT = trim(RS("fldSUB JECT"))
ALLOW_E = trim(RS("fldALL OW"))
END IF
RS.Close
Set RS = Nothing
MyConn.Close
Set MyConn = Nothing
END SUB
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head>
<link rel="STYLESHEET " type="text/css" href="styles.cs s">
<link href="styles.cs s" rel="stylesheet " type="text/css">
</head><body bgcolor="#fffff f">
<%IF blDONE = True THEN%>
<br />
<table width="95%" align="center" cellpadding="2" cellspacing="0" border="0"><tr>
<td>
Thank you. Your email has been sent.<br />
</td>
</tr></table>
<br />
<!--#include file="inc_foote r1Close.asp"-->
</body></html>
<%Response.END% >
<%END IF%>
<%IF NOT MESSAGE = "" THEN%>
<table width="95%" align="center" cellpadding="2" cellspacing="0" border="0"><tr>
<td><%=MESSAGE% ></td>
</tr></table>
<br />
<%END IF%>
<form action="?ID=<%= ID%>&AID=<%=AID %>" method="post">
<table cellpadding="2" cellspacing="0" border="0" width="95%" align="center"> <tr>
<td colspan="2">Sen d email to: <span style="color:#d d4800;"><strong ><%=C_NAME%></strong></span>; </td>
</tr><tr>
<td>Your Name:</td>
<td><input style="width: 400px;" type="Text" name="name" value="<%=NAME% >" maxlength="180" class="textbox" /></td>
</tr><tr>
<td>Your Email:</td>
<td><input style="width: 400px;" type="Text" name="email" value="<%=EMAIL %>" maxlength="180" class="textbox" /></td>
</tr><tr>
<td colspan="2"><te xtarea class="textbox" rows="10" name="content" style="width: 100%;"><%=CONTE NT%></textarea></td>
</tr><tr>
<td colspan="2"><br /><input type="Submit" value="Send Email" /></td>
</tr></table>
<input type="Hidden" name="mode" value="send" />
</form>
