Geocel Devmailer ASP mailer - doesnt error but doesnt send the email

Please could someone run their eyes over this, originally from ASP101 script, and I changed it to Geocel rather than CDONTS, but it just doesnt work.

Any ideas? (obviously I have replaced with dummy IP address and email etc)

-----------------------------------------------------------

<%
Dim strTo, strSubject, strBody 'Strings for recipient, subject, body
Dim objCDOMail 'The CDO object


'First we'll read in the values entered
strTo =  Request.Form("recipient")

'These would read the message subject and body if we let you enter it
'strSubject = Request.Form("subject")
'strBody = Request.Form("body")

' Both of these should be changed before you run this script.
strSubject = "Sample E-mail from blah"

' This is multi-lined simply for readability
strBody = "This message was sent from blah.  "


' Some spacing:
strBody = strBody & vbCrLf & vbCrLf

strBody = strBody & "This was sent to: "

' A lot of people have asked how to use form data in the emails so
' I added this line to the sample as an example of incorporating form
' data in the body of the email.
strBody = strBody & Request.Form("recipient")

' A final carriage return for good measure!
strBody = strBody & vbCrLf


If strTo = "" Or Not IsValidEmail(strTo) Then
      %>
      <FORM ACTION="./email.asp" METHOD="post">
            Enter your e-mail address:<BR>
            
  <INPUT TYPE="text" NAME="recipient" SIZE="30">
  </INPUT>

            <!--  These would be used if we decided to let you edit them
            Subject:&nbsp;
            <INPUT TYPE="text" NAME="subject" SIZE="30"></INPUT><BR>
            
            Message:&nbsp;
            <TEXTAREA NAME="body" ROWS="10" COLS="40" WRAP="virtual"></TEXTAREA><BR>
            -->

            <INPUT TYPE="submit" VALUE="Send Mail!"></INPUT>
      </FORM>
      <%
Else
      ' Create an instance of the NewMail object.
      Set objCDOMail = Server.CreateObject("Geocel.Mailer")
      
      
      ' This syntax works fine
      'objCDOMail.From = "user@domain.com"
      ' But this gets you the appearance of a real name!
objCDOMail.ContentType = "text"
      objCDOMail.FromName    = "User Name <user@domain.com>"
      objCDOMail.AddServer "195.blah.blah.blah", 25
      objCDOMail.Subject = strSubject
      objCDOMail.Body    = strBody
objCDOMail.AddRecipient StrTo, "Steve"

      
      ' Send the message!
      objCDOMail.Send()
      
      ' Set the object to nothing because it immediately becomes
      ' invalid after calling the Send method.
      Set objCDOMail = Nothing

      Response.Write "Message sent to " & strTo & "!"
      'Response.Write "Message ARE NO LONGER BEING SENT because of all the abuse the system was receiving!"
End If
' End page logic
%>

<% ' Only functions and subs follow!

' A quick email syntax checker.  It's not perfect,
' but it's quick and easy and will catch most of
' the bad addresses than people type in.
Function IsValidEmail(strEmail)
      Dim bIsValid
      bIsValid = True
      
      If Len(strEmail) < 5 Then
            bIsValid = False
      Else
            If Instr(1, strEmail, " ") <> 0 Then
                  bIsValid = False
            Else
                  If InStr(1, strEmail, "@", 1) < 2 Then
                        bIsValid = False
                  Else
                        If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
                              bIsValid = False
                        End If
                  End If
            End If
      End If

      IsValidEmail = bIsValid
End Function
%>