Whats Wrong?

[Guest_imported]

Can anyone see anything wrong with this code?
It keeps giving me "Expected 'End' on the last line of the code: Thanks!

<%
Set orasession = createobject(&quot;oracleinprocserver.xorasession&quot
Set oradatabase = orasession.opendatabase(&quot;&quot;,&quot;*/*&quot;,CInt(0))

Set check = oradatabase.dbcreatedynaset(&quot;select * from users where user_name='&quot; & Request.Form(&quot;username&quot &&quot;'&quot;,CInt(0))


If Request.Form(&quot;username&quot = check.fields(&quot;user_name&quot_
And Request.Form(&quot;userpassword&quot = check.fields(&quot;password&quot_
And check.fields(&quot;user_type&quot = &quot;Student&quot; Then
response.cookies(&quot;user&quot = check.fields(&quot;full_name&quot
response.cookies(&quot;type&quot = check.fields(&quot;user_type&quot
Response.Redirect(&quot;marvelstudent.htm&quot

Else If Request.Form(&quot;username&quot = check.fields(&quot;user_name&quot_
And Request.Form(&quot;userpassword&quot = check.fields(&quot;password&quot_
And check.fields(&quot;user_type&quot = &quot;Faculty&quot; Then
response.cookies(&quot;user&quot = check.fields(&quot;full_name&quot
response.cookies(&quot;type&quot = check.fields(&quot;user_type&quot
Response.Redirect(&quot;marvelfaculty.htm&quot

Else If Request.Form(&quot;username&quot = check.fields(&quot;user_name&quot_
And Request.Form(&quot;userpassword&quot = check.fields(&quot;password&quot_
And check.fields(&quot;user_type&quot = &quot;admin&quot; Then
response.cookies(&quot;user&quot = check.fields(&quot;full_name&quot
response.cookies(&quot;type&quot = check.fields(&quot;user_type&quot
Response.Redirect(&quot;marveladmin.htm&quot

Else If Request.Form(&quot;username&quot = check.fields(&quot;user_name&quot_
And Request.Form(&quot;userpassword&quot = check.fields(&quot;password&quot_
And check.fields(&quot;user_type&quot = &quot;guest&quot; Then
response.cookies(&quot;user&quot = check.fields(&quot;full_name&quot
response.cookies(&quot;type&quot = check.fields(&quot;user_type&quot
Response.Redirect(&quot;marvelguest.htm&quot

Else response.redirect(&quot;tryagain.html&quot
End If

OnError response.Redirect (&quot;tryagain.html&quot

check.Close
orasession.Close
Set orasession = Nothing

%>

 

[JohnYingling]

Change &quot;Else If &quot;
to
&quot;ElseIf&quot;

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript