Tweet
Ok, due to the field in the database giving me fits, I've changed what I was trying to do in a previous post. The new details (and problem) follows...
Ok, the base of my code is Ocean12 ASP Mailing List Manager. The free version of the script has it's limitations, so I'm attempting to add a feature here & there on my own.
As it stands, when you sign up for the Newsletter, it adds your e-mail to the database and that's it. The next step is I send a mailing to the list and get bounced e-mails for the people that say their e-mail address has a coma in it or that don't give me the "@yahoo.com" portion of their address.
Rather than get 5-10 bounced e-mails at once, I'd rather 'weed them out' as I go. And provide a security feature into the script. The database table looks like this at Download:
ID | EMail | First Name | Last Name | Date Joined
I've added a sixth column to the table, "Conf" which is a Text Field, Max 1 char, either Y or N. I should mentioned, I'm running off of Access. By default, when a user signs up, the Conf field is blank; I'll worry about setting it to N by default later. For all intents and purposes, this means they haven't "Confirmed" their subscription yet.
At this point, an e-mail would be sent to them directing them to a particular URL which will 'confirm' their subscription. I've skipped the automated e-mail for now, because I'm working on the page it directs them to first.
This is where my problem comes in. To keep the the confirmation process somewhat secure, I'm directing them to "[email protected]" for instance. I chose this route rather than confirm.asp?ID=blah so that some script kiddie couldn't go thru and just hit every record , since the IDs are incremental.
However, it's returning nothing. A blank page. I have it set up (I think) so that it will display an error if something goes wrong. But, nothing is happening.
The code I'm using is this:
Immediately below that I then have my DisplayGood() & DisplayBad().
DisplayBad() is identical, except for the name and it says "This is a Bad Display." But all I'm getting when I hit the page is a blank page. I view the source, and it's just this:
Any ideas? I'm at a loss...
Thanks!
Jer!
Ok, the base of my code is Ocean12 ASP Mailing List Manager. The free version of the script has it's limitations, so I'm attempting to add a feature here & there on my own.
As it stands, when you sign up for the Newsletter, it adds your e-mail to the database and that's it. The next step is I send a mailing to the list and get bounced e-mails for the people that say their e-mail address has a coma in it or that don't give me the "@yahoo.com" portion of their address.
Rather than get 5-10 bounced e-mails at once, I'd rather 'weed them out' as I go. And provide a security feature into the script. The database table looks like this at Download:
ID | EMail | First Name | Last Name | Date Joined
I've added a sixth column to the table, "Conf" which is a Text Field, Max 1 char, either Y or N. I should mentioned, I'm running off of Access. By default, when a user signs up, the Conf field is blank; I'll worry about setting it to N by default later. For all intents and purposes, this means they haven't "Confirmed" their subscription yet.
At this point, an e-mail would be sent to them directing them to a particular URL which will 'confirm' their subscription. I've skipped the automated e-mail for now, because I'm working on the page it directs them to first.
This is where my problem comes in. To keep the the confirmation process somewhat secure, I'm directing them to "[email protected]" for instance. I chose this route rather than confirm.asp?ID=blah so that some script kiddie couldn't go thru and just hit every record , since the IDs are incremental.
However, it's returning nothing. A blank page. I have it set up (I think) so that it will display an error if something goes wrong. But, nothing is happening.
The code I'm using is this:
Code:
<% @Language=VBScript %>
<% Option Explicit %>
*******Begin Included Code from dsn.asp********
<%
dim dsn
dim Conn
dsn="DBQ=" & Server.Mappath("db.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn
%>
*******End Included Code from dsn.asp********
<%
Dim strSql, infoRS, Email
Email = Request.QueryString("Email")
%>
<% Sub GetImage()
strSql = "SELECT * FROM List WHERE Email = '" & Email & "'"
set infoRS = Conn.Execute(strSql)
IF infoRS.EOF THEN
GetImage()
DisplayBad()
ELSE
UPDATEQUERY = "UPDATE List SET Conf = Y WHERE Email = '" & Email & "'"
DisplayGood()
END IF
End Sub %>
Code:
<% Sub DisplayGood() %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252" x-undefined> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> </head> <body> This is a Good Display. </form> </body> </html> <!--#include file="dsn2.asp"--> <% End Sub %>
Code:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=Content-Type content="text/html; charset=windows-1252"></HEAD> <BODY></BODY></HTML>
Thanks!
Jer!
Comment