quote:

---

Yeah, I can identify the errors you are getting. I was just testing this thing and realized there is a bug in the mod. And I can't beleive no one has reported it.
*looks for the bug spray*

I'm working on it now.

---

*hands Davio the bug spray*
See knew i could help out some way

function emailPassword(sendemail)
'// Create an array of characters to choose from for the passwords.
'// If you would like to add uppercase letters or high ASCII characters,
'// simply add them to the array, just remember to modify intNumChars
'// variable to match number of characters in the array.

intNumChars = 35

pwArray = Array("a","b","c","d","e","f","g","h","i","j","k","l", _
                "m","n","o","p","q","r","s","t","u","v","w","x", _
                "y","z","1","2","3","4","5","6","7","8","9")
				
'// This picks 6 random numbers and pulls corresponding letters from the
'// array. If you want a larger, or smaller, password simply adjust the
'// number of characters you grab.

Randomize
pwd1 = (Int(((intNumChars - 1) * Rnd) + 1))
pwd2 = (Int(((intNumChars - 1) * Rnd) + 1))
pwd3 = (Int(((intNumChars - 1) * Rnd) + 1))
pwd4 = (Int(((intNumChars - 1) * Rnd) + 1))
pwd5 = (Int(((intNumChars - 1) * Rnd) + 1))
pwd6 = (Int(((intNumChars - 1) * Rnd) + 1))

'// Make the password!

strPassword = pwArray(pwd1) & pwArray(pwd2) & pwArray(pwd3) & _
            pwArray(pwd4) & pwArray(pwd5) & pwArray(pwd6)

emailPassword = strPassword

if sendemail = "yes" then
		'## Emails Password to the new email address.  
		strRecipientsName = Request.Form("Name")
		strRecipients = Request.Form("Email")
		strFrom = strSender
		strFromName = strForumTitle
		strsubject = strForumTitle & "- Your Email Address Has Been Changed "
		strMessage = "Hello " & Request.Form("name") & vbCrLf & vbCrLf
		if Request.QueryString("mode") <> "EditIt" then
			strMessage = strMessage & "You received this message from " & strForumTitle & " because someone has changed your email address on the forums at " & strForumURL & vbCrLf & vbCrLf
		else
			strMessage = strMessage & "You received this message from " & strForumTitle & " because you have changed your email address on the forums at " & strForumURL & vbCrLf & vbCrLf
		end if
		if strAuthType="db" then
			strMessage = strMessage & "Your New Password is: " & strPassword & vbCrLf & vbCrLf
		end if
		strMessage = strMessage & "You can change your information and password at our website by selecting the ""Profile"" link." & vbCrLf & vbCrLf
		strMessage = strMessage & "Happy Posting!"
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
end if
end function

quote:

---

*sprays*

And I'll fix the other files for you.
Doesn't that sound great?

---

oh my god aint you the best?
owk am going to work on that and send you the files after i replaced the code with what you just posted here

quote:

---

Gee, you got yer eye on this topic don't you?

---

err no i have a nose for bugspray

quote:

---

err no i have a nose for bugspray

---

LoL!!

Sent them back!

quote:

---

It should be separated, like this:

intNumChars = 35

pwArray = Array("a","b","c","d","e","f","g","h","i","j","k","l", _

---