Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
ASP mail bugs?
- Thread starter Ragol1
- Start date
- Thread starter
- #3
Sure here
Thanks
<%
<%
Set mail = Server.CreateObject("Persits.Mailsender"
Mail.Host = "mymailserver.com"
strEmail = request.form("Email"
strUser = request.form("User"
strLevel = request.form("Level"
strHours = request.form("Hours"
strMag = request.form("Mag"
strStyle = request.form("Style"
strVeralt = request.form("Veralt"
strPassword = request.form("Password"
strCard = request.form("Card"
Mail.From = strEmail
Mail.FromName = strUser
Mail.AddBCC "Webmaster@mysite.com"
'Mail.AddBCC "anotheremailaddress@hotmail.com"
'Mail.AddAddress strEmail
'Mail.AddReplyTo strEmail
'Mail.AddAttachment "c:\any file"
strBodyHeader = "A Member has updated their Stats" & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Level : " & strLevel & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Hours : " & strHours & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Mag : " & strMag & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Version : " & strVeralt & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Style : " & strStyle & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Password : " & strPassword & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Card Number : " & strCard & chr(13) & chr(10)
strBody = strBodyHeader & strBody
Mail.Subject = "A Member has updated their stats"
Mail.body = strBody
'Mail.Body = "Dear Fan:" & Chr(13) & Chr(10) & "Thank you for your business."
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>
<%
ID = request.querystring("ID"
UserId = request.form("UserId"
Name = request.form("Name"
Password = request.form("Password"
Level = request.form("Level"
Hours = request.form("Hours"
Veralt = request.form("Veralt"
Mag = request.form("Mag"
Style = request.form("Style"
Card = request.form("Card"
update_date = request.form("update_date"
' declaring variables
' not neccesary but a good habit
Dim DataConn
Dim UpdateRecord
Dim MYSQL
Set DataConn = Server.CreateObject("ADODB.Connection"
Set UpdateRecord = Server.CreateObject("ADODB.Recordset"
DataConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=E:\mydatabase.mdb"
MYSQL = "SELECT mine.* FROM mine WHERE (ID = " & ID & ""
UpdateRecord.Open MYSQL, DataConn, 1, 3
UpdateRecord.Fields("Password" = Password
UpdateRecord.Fields("Level" = Level
UpdateRecord.Fields("Hours" = Hours
UpdateRecord.Fields("Mag" = Mag
'UpdateRecord.Fields("System" = System
UpdateRecord.Fields("update_date" = update_date
UpdateRecord.Fields("Veralt" = Veralt
UpdateRecord.Update
UpdateRecord.Close
Set UpdateRecord= Nothing
DataConn.Close
Set DataConn = Nothing
'Response.Write "Information Updated"
%><title>Info Updated</title>
<body bgcolor="#000000" text="#FFCC00">
<p> </p>
<div id="Layer1" style="position:absolute; left:34px; top:17px; width:629px; height:87px; z-index:1"><img src="../Pics/rr_banner2.jpg" width="576" height="180"></div>
<div align="center">
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p>Thank you your info has been updated</p>
<p>Go back to Members seciton<a href="../Members.asp"> Click Here.</a></p>
</div>
Thanks
<%
<%
Set mail = Server.CreateObject("Persits.Mailsender"
Mail.Host = "mymailserver.com"
strEmail = request.form("Email"
strUser = request.form("User"
strLevel = request.form("Level"
strHours = request.form("Hours"
strMag = request.form("Mag"
strStyle = request.form("Style"
strVeralt = request.form("Veralt"
strPassword = request.form("Password"
strCard = request.form("Card"
Mail.From = strEmail
Mail.FromName = strUser
Mail.AddBCC "Webmaster@mysite.com"
'Mail.AddBCC "anotheremailaddress@hotmail.com"
'Mail.AddAddress strEmail
'Mail.AddReplyTo strEmail
'Mail.AddAttachment "c:\any file"
strBodyHeader = "A Member has updated their Stats" & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Level : " & strLevel & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Hours : " & strHours & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Mag : " & strMag & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Version : " & strVeralt & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Style : " & strStyle & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Password : " & strPassword & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Card Number : " & strCard & chr(13) & chr(10)
strBody = strBodyHeader & strBody
Mail.Subject = "A Member has updated their stats"
Mail.body = strBody
'Mail.Body = "Dear Fan:" & Chr(13) & Chr(10) & "Thank you for your business."
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>
<%
ID = request.querystring("ID"
UserId = request.form("UserId"
Name = request.form("Name"
Password = request.form("Password"
Level = request.form("Level"
Hours = request.form("Hours"
Veralt = request.form("Veralt"
Mag = request.form("Mag"
Style = request.form("Style"
Card = request.form("Card"
update_date = request.form("update_date"
' declaring variables
' not neccesary but a good habit
Dim DataConn
Dim UpdateRecord
Dim MYSQL
Set DataConn = Server.CreateObject("ADODB.Connection"
Set UpdateRecord = Server.CreateObject("ADODB.Recordset"
DataConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=E:\mydatabase.mdb"
MYSQL = "SELECT mine.* FROM mine WHERE (ID = " & ID & "
"UpdateRecord.Open MYSQL, DataConn, 1, 3
UpdateRecord.Fields("Password"
= PasswordUpdateRecord.Fields("Level"
= LevelUpdateRecord.Fields("Hours"
= HoursUpdateRecord.Fields("Mag"
= Mag'UpdateRecord.Fields("System"
= SystemUpdateRecord.Fields("update_date"
= update_dateUpdateRecord.Fields("Veralt"
= VeraltUpdateRecord.Update
UpdateRecord.Close
Set UpdateRecord= Nothing
DataConn.Close
Set DataConn = Nothing
'Response.Write "Information Updated"
%><title>Info Updated</title>
<body bgcolor="#000000" text="#FFCC00">
<p> </p>
<div id="Layer1" style="position:absolute; left:34px; top:17px; width:629px; height:87px; z-index:1"><img src="../Pics/rr_banner2.jpg" width="576" height="180"></div>
<div align="center">
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p>Thank you your info has been updated</p>
<p>Go back to Members seciton<a href="../Members.asp"> Click Here.</a></p>
</div>
krisbrixon
Programmer
Is this happening in testing (from yourself) or in production (from users)?
- Thread starter
- #5
Both
I use the same code to send a daily email to users in a DB and it only sends one, here it is below , it seems when it reads from a DB it only sends one but when it send to an address it sends 3
<%
' connect to the MS Access database in the same directory
strDbPath = Server.MapPath("." & "\users.mdb"
ConnectStr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & strDbPath
Set rs = Server.CreateObject("adodb.recordset"
rs.Open "Users", ConnectStr, 2, 3
If Request("Send" <> "" Then
' send email to all users
Set Mail = Server.CreateObject("Persits.MailSender"
Mail.Host = "mymailserver.com"
strShip = request("ship"
strBlock = request("block"
strLobby = request("lobby"
strLoc = request("Loc"
strpcship = request("pcship"
strpcblock = request("pcblock"
strpclobby = request("pclobby"
strpcloc = request("pcloc"
strPassword = request("password"
Mail.From = "Webmaster@mysite.com.com"
Mail.FromName = "Webmaster"
strBodyHeader = "Greetings fellow Raiders!" & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Here is today's game play information." & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "If you do not receive an e-mail tomorrow please continue to use the game play information provided below." & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is Todays DC Ship : " & strShip & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is The DC Location : " & strLoc & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is Todays DC Block : " & strBlock & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is Todays DC Lobby : " & strLobby & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "" & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "" & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is Todays PC Ship : " & strpcship & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is The PC Location : " & strpcloc & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is Todays PC Block : " & strpcblock & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is Todays PC Lobby : " & strpclobby & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "" & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "" & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is Todays Password : " & strPassword & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "A few reminders:" & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Please do not give out the passwords to players who are not members of RR. If you wish to play with friends who are not RR members, please do so in a NON RR game." & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Also, please do not type the password in the lobby. If someone asks you for the password, make sure you are certain that they are a member and only give it to them via the game's simple mail funtion." & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Whenever you create a room, please precede the name of the room with the letters RR - this will designate the room as an official Ragol Raiders' game." & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Please exchange ." & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "If you want to see a listing of current members you can always search for other clanmates by clikcing on the list all members button located at the bottom of the members page." & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "We encourage you to use the calendar tool located within the members page to post your game times and activities (e.g., quests, battle, challenge, etc.)" & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Please reply with any comments and/or suggestions." & chr(13) & chr(10) & chr(13) & chr(10)
strBody = strBodyHeader & strBody
Mail.Subject = "Todays Ship/Block and Password"
Mail.body = strBody
While not rs.EOF
Mail.AddBcc rs("Email"
rs.MoveNext
Wend
' finally: send message
Mail.Send
Response.Write "Success!"
Else
' simply display the list of users in the database
Response.Write "<B>Currently in the user database:</B><P>"
While not rs.EOF
Response.Write rs("UserID" & " (" & rs("Email" & "<BR>"
rs.MoveNext
Wend
End If
%>
I use the same code to send a daily email to users in a DB and it only sends one, here it is below , it seems when it reads from a DB it only sends one but when it send to an address it sends 3
<%
' connect to the MS Access database in the same directory
strDbPath = Server.MapPath("."
& "\users.mdb"ConnectStr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & strDbPath
Set rs = Server.CreateObject("adodb.recordset"
rs.Open "Users", ConnectStr, 2, 3
If Request("Send"
<> "" Then' send email to all users
Set Mail = Server.CreateObject("Persits.MailSender"
Mail.Host = "mymailserver.com"
strShip = request("ship"
strBlock = request("block"
strLobby = request("lobby"
strLoc = request("Loc"
strpcship = request("pcship"
strpcblock = request("pcblock"
strpclobby = request("pclobby"
strpcloc = request("pcloc"
strPassword = request("password"
Mail.From = "Webmaster@mysite.com.com"
Mail.FromName = "Webmaster"
strBodyHeader = "Greetings fellow Raiders!" & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Here is today's game play information." & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "If you do not receive an e-mail tomorrow please continue to use the game play information provided below." & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is Todays DC Ship : " & strShip & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is The DC Location : " & strLoc & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is Todays DC Block : " & strBlock & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is Todays DC Lobby : " & strLobby & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "" & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "" & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is Todays PC Ship : " & strpcship & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is The PC Location : " & strpcloc & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is Todays PC Block : " & strpcblock & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is Todays PC Lobby : " & strpclobby & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "" & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "" & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "This is Todays Password : " & strPassword & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "A few reminders:" & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Please do not give out the passwords to players who are not members of RR. If you wish to play with friends who are not RR members, please do so in a NON RR game." & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Also, please do not type the password in the lobby. If someone asks you for the password, make sure you are certain that they are a member and only give it to them via the game's simple mail funtion." & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Whenever you create a room, please precede the name of the room with the letters RR - this will designate the room as an official Ragol Raiders' game." & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Please exchange ." & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "If you want to see a listing of current members you can always search for other clanmates by clikcing on the list all members button located at the bottom of the members page." & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "We encourage you to use the calendar tool located within the members page to post your game times and activities (e.g., quests, battle, challenge, etc.)" & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Please reply with any comments and/or suggestions." & chr(13) & chr(10) & chr(13) & chr(10)
strBody = strBodyHeader & strBody
Mail.Subject = "Todays Ship/Block and Password"
Mail.body = strBody
While not rs.EOF
Mail.AddBcc rs("Email"
rs.MoveNext
Wend
' finally: send message
Mail.Send
Response.Write "Success!"
Else
' simply display the list of users in the database
Response.Write "<B>Currently in the user database:</B><P>"
While not rs.EOF
Response.Write rs("UserID"
& " (" & rs("Email" & "<BR>"rs.MoveNext
Wend
End If
%>
krisbrixon
Programmer
![[bugeyed]](/data/assets/smilies/bugeyed.gif "[bugeyed] [bugeyed]")
I have no idea.Maybe add a persistant variable (cookie or session var or ...) with an value that changes each time it is hit and add that to the email. This might tell you if the code is looping. (If all the values are different in each email then the code is looping.)
Kris
- Thread starter
- #7
krisbrixon
Programmer
You just need to setup a variable (like a number) in something that you can always reference (like a cookie) and in your body of the message pull the value from the cookie then add 1 to the value and stick that in the email and write the new value to the cookie.
Start Web Page
Write Cookie with value of 1
Run Email Code
Pull Cookie Value of 1
Add 1 to the Cookie Value
Stick this new value in the email
ReWrite the Cookie with the new value.
If the emails have different values then your code is looping somewhere, if not then you sorta wasted your time.
I would first test the looping with a simple email that you plan to loop several times to make sure the value is incrementing. Then move that code to your real problem.
Kris
Start Web Page
Write Cookie with value of 1
Run Email Code
Pull Cookie Value of 1
Add 1 to the Cookie Value
Stick this new value in the email
ReWrite the Cookie with the new value.
If the emails have different values then your code is looping somewhere, if not then you sorta wasted your time.
I would first test the looping with a simple email that you plan to loop several times to make sure the value is incrementing. Then move that code to your real problem.
Kris
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question
