2
Hi,
I found a code for a password generator online, said it was VB. I input that code into an email generator code, that was created by someone else. I was told that the email generator code was in VB, so the two should work together. But the As Integer statements keep coming up as errors.
Microsoft VBScript compilation error '800a03ee'
Expected ')'
/ar/createMessage.asp, line 84
Function GeneratePassword(ByVal length As Integer, ByVal
--------------------------------------------------------------^
numberOfNonAlphanumericCharacters As Integer) As String
I keep getting that, almost like it doesn't recognize the statement.
Here is the first half of code, all declarations. Anyone got any ideas?
<script language="VBScript" runat="server">
On Error Resume Next
Response.Expires = 0
Response.Buffer = True
Response.Clear
Dim fName
Dim lName
Dim rfName
Dim rlName
Dim bahID
Dim PD
Dim PDOF
Dim PDOFD
Dim pdPW
Dim pdofPW
Dim ompPW
Dim strMessage
Dim OMPC
Dim DOMP
Dim dompPW
Dim ompcPW
Dim Proj
fName = request.form("First")
lName = request.form("Last")
rfName = request.form("RFirst")
rlName = request.form("RLast")
bahID = request.form("ID")
PD = request.form("PD")
PDOF = request.form("PDOF")
PDOFD = request.form("PDOFD")
OMP = request.form("OMP")
OMPC = request.form("OMPC")
DOMP = request.form ("DOMP")
DD = request.form("DD")
DDOF = request.form("DDOF")
LL = request.form("LL")
VM = request.form("VM")
TR = request.form("TR")
AR = request.form("AR")
Proj = request.form("Project")
TTR = request.form("TTR")
AI = request.form("AI")
IL = request.form("IL")
PIO = request.form("PIO")
Function GeneratePassword(ByVal length As Integer, ByVal numberOfNonAlphanumericCharacters As Integer) As String
'Make sure length and numberOfNonAlphanumericCharacters are valid....
If ((length < 1) OrElse (length > 128)) Then
Throw New ArgumentException("Membership_password_length_inco rrect")
End If
