Expected End?

[Dalsor]

Getting an Expected End error out of this but I can't see it after an hour of staring at it. Can anyone spot my error?


<%
dim lvalue
If Request("FLookup") = "true" Then
If Request("lu_custid") <> "" Then
lvalue = rtrim(Request("lu_custid"))
Response.Write("Lookup by customer id " &lvalue)
cmdTemp.CommandText = "select umFirstName,umMiddleName,umLastName from umrm0101 where CUSTNMBR='"&lvalue&"'"
Set rsCustomer = Server.CreateObject("ADODB.Recordset")
rsCustomer.Open cmdTemp, , adOpenKeyset, adLockReadOnly
Else If Request("lu_phnumber") <> "" Then
lvalue = rtrim(Request("lu_phnumber"))
Response.Write("Lookup by phone number " &lvalue)
cmdTemp.CommandText = "select a.CUSTNMBR,a.umFirstName,a.umMiddleName,a.umLastName from umrm0101 a, umrm0111 where UMRM0111.PHONE1 like '"&lvalue&"%' and a.custnmbr=umrm0111.custnmbr"
Set rsCustomer = Server.CreateObject("ADODB.Recordset")
rsCustomer.Open cmdTemp, , adOpenKeyset, adLockReadOnly
Else If Request("lu_street") <> "" Then
lvalue = rtrim(Request("lu_street"))
Response.Write("Lookup by street address " &lvalue)
cmdTemp.CommandText = "select a.CUSTNMBR,a.umFirstName,a.umMiddleName,a.umLastName, b.umbilltoaddress,c.umstreetnumber, c.umStrNumberSuffix,c.umStreetName from umrm0101 a, umrm0111 b, umrm0112 c, um00600 d where rtrim(rtrim(c.umstreetnumber)+ ' ' + rtrim(c.umstreetname)) like '111 landis%' and a.custnmbr=b.custnmbrand d.umbilltocust=b.custnmbrand d.umserviceaddresscode=c.umaddresscode"
Set rsCustomer = Server.CreateObject("ADODB.Recordset")
rsCustomer.Open cmdTemp, , adOpenKeyset, adLockReadOnly
Else
Response.Write("Huh?")
End If
End If
%>


Thanks!

Eric

[raf]

Else If should be ElseIf

Maybe that's the problem ...

[Dalsor]

That was it! This is what happens when you make a C programmer learn Visual Basic. =D

Thanks, Raf

[raf]

You're welcome.

Yes, VB is unlike almost any language :(