| Author |
 Topic  |
|
JohnJohn1186
Junior Member
103 Posts |
 Posted - 27 November 2004 : 12:29:15
|
My forum is working and all but, my admin_hope.asp is not. Error comes up:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'fLang'
/vertical/forum/admin_home.asp, line 127
Here is the script:
" <LI><span class=""spnMessageText""><a href=""admin_config_features.asp"">Feature Configuration</a></span></LI>" & vbNewLine
if strAuthType = "nt" then
Response.Write " <LI><span class=""spnMessageText""><a href=""admin_config_NT_features.asp"">Feature NT Configuration</a></span></LI>" & vbNewLine
end if
Response.Write " <LI><span class=""spnMessageText""><a href=""admin_config_members.asp"">Member Details Configuration</a></span></LI>" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_config_ranks.asp"">Ranking Configuration</a></span></LI>" & vbNewLine & _ |
|
|
OneWayMule
Dev. Team Member & Support Moderator
Austria
4969 Posts |
|
|
JohnJohn1186
Junior Member
103 Posts |
Posted - 27 November 2004 : 13:43:15
|
| thx man |
 |
|
|
JohnJohn1186
Junior Member
103 Posts |
Posted - 27 November 2004 : 14:16:36
|
Oh boy, found another problem...im real sorry guys:
Microsoft VBScript compilation error '800a0400'
Expected statement
/vertical/forum/pop_profile.asp, line 1293
case "ModifyIt"
^
SCRIPT:
if strUseExtendedProfile then
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strRefer & """>Back To Forum</a></font></p>" & vbNewLine
end if
end if
case "ModifyIt"
if strUseExtendedProfile then
Response.Write " <table width=""100%"" border=""0"">" & vbNewLine & _ |
|
|
|
Jorrit787
Average Member
Netherlands
681 Posts |
Posted - 27 November 2004 : 17:58:09
|
Do you have a Select Case statement above what you posted, and an End Select underneath it  Like this:
Select Case
...
if strUseExtendedProfile then
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strRefer & """>Back To Forum</a></font></p>" & vbNewLine
end if
end if
case "ModifyIt"
if strUseExtendedProfile then
Response.Write " <table width=""100%"" border=""0"">" & vbNewLine & _
...
End Select |
eXtremeGossip  |
|
|
|
JohnJohn1186
Junior Member
103 Posts |
Posted - 27 November 2004 : 18:03:24
|
| nope i searched for select case and there is no select case. As well as no end case |
|
|
|
JohnJohn1186
Junior Member
103 Posts |
Posted - 27 November 2004 : 18:06:08
|
| whoops there is a select case lol i forgot to search from the top |
|
|
|
JohnJohn1186
Junior Member
103 Posts |
Posted - 27 November 2004 : 18:07:23
|
| no end case to be found though |
|
|
|
Jorrit787
Average Member
Netherlands
681 Posts |
Posted - 27 November 2004 : 18:08:19
|
Then you should include it  |
eXtremeGossip |
|
|
|
JohnJohn1186
Junior Member
103 Posts |
Posted - 27 November 2004 : 18:16:16
|
Okay man im acting a little weird. I typed end case instead of end select. >_< Ok here is the scripts:
LINE 139:select case Request.QueryString("mode")
LINE 141: case "display" '## Display Profile
if strUseExtendedProfile then
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strRefer & """>Back To Forum</a></font></p>" & vbNewLine
end if
end if
LINE 1292:case "ModifyIt"
if strUseExtendedProfile then
Response.Write " <table width=""100%"" border=""0"">" & vbNewLine & _
LINE 1603:end select
LINE 1605:set rs = nothing
Plz tell me what i am doing wrong and if you need any more information
|
|
|
|
Jorrit787
Average Member
Netherlands
681 Posts |
Posted - 27 November 2004 : 18:26:40
|
Let's see... Where you have those two End If's, I think you need to delete one and place it after the last If, like this:
select case Request.QueryString("mode")
case "display" '## Display Profile
if strUseExtendedProfile then
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strRefer & """>Back To Forum</a></font></p>" & vbNewLine
end if
case "ModifyIt"
if strUseExtendedProfile then
Response.Write " <table width=""100%"" border=""0"">" & vbNewLine & _
end if
end select
set rs = nothing
Nested If and Case blocks are so tricky... |
eXtremeGossip |
|
|
|
JohnJohn1186
Junior Member
103 Posts |
Posted - 27 November 2004 : 18:32:30
|
Alright man, same error comes up pretty much:
Microsoft VBScript compilation error '800a0400'
Expected statement
/vertical/forum/pop_profile.asp, line 1291
case "ModifyIt"
^
|
|
|
|
Jorrit787
Average Member
Netherlands
681 Posts |
Posted - 27 November 2004 : 18:37:25
|
| Looks you're not instructing the script to do anything if UseExtendedProfile is false - You need an else statement for both If blocks, telling the script what you want it to do if UseExtendedProfile is false. |
eXtremeGossip |
|
|
|
JohnJohn1186
Junior Member
103 Posts |
Posted - 27 November 2004 : 18:38:28
|
| should i just reload the old one and try to reconfigure it? |
|
|
|
Jorrit787
Average Member
Netherlands
681 Posts |
Posted - 27 November 2004 : 18:44:48
|
| I could send you my pop_profile.asp to see if that works, otherwise I think that would be best. |
eXtremeGossip |
|
|
|
JohnJohn1186
Junior Member
103 Posts |
Posted - 27 November 2004 : 18:46:06
|
| im going to reload my old one |
|
|
|
Topic |
|
Topic Locked
