database insert problem

I am having problems with this code but i'm not sure what is wrong with it. The error that i get is "Expected 'End'".

Here is the cod ei hope someboyd can help me.

<%FName = Request.Form("FName")
  LName = Request.Form("LName")
  Title = Request.Form("Title")
  role = Request.Form("role")
  phone = Request.Form("phone")
  email = Request.Form("email")
  cell = Request.Form("cell")
  contactType = Request.Form("ContactType")
  if contactType = "AgencyContact" then
 contactType="1"
  else if contactType = "TechnicalContact" then
 contactType="2"
  end if
Submit = Request.Form("submit")

if (Submit is "next") then
 Response.Redirect "agencyForm2.asp"
else if (Submit is "back") then
 Response.Redirect "agencyForm.asp"
end if
Dim Cn, strSQL
    Set Cn = Server.CreateObject("ADODB.Connection")
    Cn.Open Application("Connection3_ConnectionString")
    strSQL = "INSERT INTO Contacts(FirstName, LastName, title, Responsibilty, PhoneNum, email, Pager_Cell, ContactTypeId, AgencyId)"
    strSQL =strSQL & "Values('"&FName&"', '"&LName&"', '"&Title&"', '"&role&"', '"&phone&"','"&email&"','"&cell&"','"&Session("Username")&"')"
    Cn.Execute(strSQL)%>

Instead of

if (Submit is "next") then
 Response.Redirect "agencyForm2.asp"
else if (Submit is "back") then
 Response.Redirect "agencyForm.asp"
end if

use

if (Submit is "next") then
 Response.Redirect "agencyForm2.asp"
elseif (Submit is "back") then
 Response.Redirect "agencyForm.asp"
end if

"elseif" is one word in Vbscript land.. also higher up, changing:

else if contactType = "TechnicalContact" then
to:
elseif contactType = "TechnicalContact" then

and btw, the error will tell you exactly what line of code to look at