B
Barton
What's wrong with this code?
I'm getting an "expected 'end'" error, but all IFs are closed!
<%
Dim iid
Dim pid
Dim engid
Dim check
Dim lang2
Dim ttsurl
Dim url2
Dim pagename
iid = Request.QueryString("iid")
pid = Request.QueryString("pid")
engid = Request.QueryString("engid")
check = Request.QueryString("check")
lang2 = Request.QueryString("lang")
ttsurl = "http://sales.teleticketservice.com/gva/proc?action=link"
url2 = "http://www.goformusic.be"
If iid<>"" AND pid<>"" AND engid<>"" AND check<>"" Then
pagename = ttsurl & "&iid=" & iid & "&pid=" & pid & "&engid=" &
engid & "&url=" & url2 & "&check=" & check & "&lang=" & lang2
Else
pagename = "error.html"
End If
If lang2="DUT" OR lang2="dut" OR lang2="NL" OR lang2="nl" Then
left="column_left_nl.html"
top ="top_nl.html"
Else if lang2="FRE" OR lang2="fre" OR lang2="FR" OR lang2="fr"
Then
left="column_left_fr.html"
top ="top_fr.html"
Else if lang2="ENG" OR lang2="eng" Then
left="column_left_eng.html"
top ="top_eng.html"
End If
%>
I'm getting an "expected 'end'" error, but all IFs are closed!
<%
Dim iid
Dim pid
Dim engid
Dim check
Dim lang2
Dim ttsurl
Dim url2
Dim pagename
iid = Request.QueryString("iid")
pid = Request.QueryString("pid")
engid = Request.QueryString("engid")
check = Request.QueryString("check")
lang2 = Request.QueryString("lang")
ttsurl = "http://sales.teleticketservice.com/gva/proc?action=link"
url2 = "http://www.goformusic.be"
If iid<>"" AND pid<>"" AND engid<>"" AND check<>"" Then
pagename = ttsurl & "&iid=" & iid & "&pid=" & pid & "&engid=" &
engid & "&url=" & url2 & "&check=" & check & "&lang=" & lang2
Else
pagename = "error.html"
End If
If lang2="DUT" OR lang2="dut" OR lang2="NL" OR lang2="nl" Then
left="column_left_nl.html"
top ="top_nl.html"
Else if lang2="FRE" OR lang2="fre" OR lang2="FR" OR lang2="fr"
Then
left="column_left_fr.html"
top ="top_fr.html"
Else if lang2="ENG" OR lang2="eng" Then
left="column_left_eng.html"
top ="top_eng.html"
End If
%>