I am in the process of setting up an accident reporting database for HR.
When attempting to use the registration page, the user data gets enterred into the users table but the following message is returned:
Microsoft VBScript runtime error '800a01f5'
Illegal assignment: 'Label'
/accidentdata/register.asp, line 181
Here is the section of register.asp starting with line 177:
DoEvent "AfterSuccessfulRegistration()"
'// send email to user
message="You have registered as user at http://"'>http://"; & request.ServerVariables("SERVER_NAME") & request.ServerVariables("SCRIPT_NAME") & vbcrlf
label = "UserName"
message=message & label & ": " & values.Item("UserName") & vbcrlf
label = "Password"
message=message & label & ": " & values.Item("Password") & vbcrlf
label = "email"
message=message & label & ": " & values.Item("email") & vbcrlf
label = "FirstName"
message=message & label & ": " & values.Item("FirstName") & vbcrlf
label = "LastName"
message=message & label & ": " & values.Item("LastName") & vbcrlf
Call sendmail(strEmail,"Notification on registering",message)
'// send letter to admin
message="User registered at http://"'>http://"; & request.ServerVariables("SERVER_NAME") & request.ServerVariables("SCRIPT_NAME") & vbcrlf
label = "UserName"
message=message & label & ": " & values.Item("UserName") & vbcrlf
label = "Password"
message=message & label & ": " & values.Item("Password") & vbcrlf
label = "email"
message=message & label & ": " & values.Item("email") & vbcrlf
label = "FirstName"
message=message & label & ": " & values.Item("FirstName") & vbcrlf
label = "LastName"
message=message & label & ": " & values.Item("LastName") & vbcrlf
Call sendmail("robert.smith@ips.invensys.com","Notification on registering",message)
'// show Registartion successful message
smarty.add "username",my_htmlspecialchars(strUsername)
smarty.add "password", my_htmlspecialchars(strPassword)
smarty_display("register_success.htm")
response.End
else
DoEvent "AfterUnsuccessfulRegistration()"
end if
smarty.Add "message",strMessage
end if
