JMail

Hej jeg prøver at sende en mail med Jmail men det virker kun hvis jeg selv indtaster email hvis jeg henter email fra databasen så virker det ikke:

FUNCTION changeStatus
  Set c = new DBConnection
  c.getConnection()
  Set RSSQ2 = Server.CreateObject("ADODB.Recordset")
  Query =    "SELECT * FROM reservation WHERE bookingID=" & Request("bookingID")
  RSSQ2.Open Query,c.objConn,adOpenDynamic,adLockOptimistic
  RSSQ2("status") = "Confirmed"
  RSSQ2.Update %>
<font size=4 color=navy>The status of reservation nr. <%=Request("bookingID")%> <p>
          has been changed from: Created <p>
          to Confirmed! </font> <br><br>
<a href="showConfirmed.asp"><font size=4>Back</a><p>
<% END FUNCTION

FUNCTION getData()
  Set c = new DBConnection
  c.getConnection()
  Set RSSQ3 = Server.CreateObject("ADODB.Recordset")
  Query1 =    "SELECT name,surname,email FROM client WHERE bookingID=" & Request("bookingID")
  RSSQ3.Open Query1,c.objConn,adOpenDynamic,adLockOptimistic
%>
<% END FUNCTION

FUNCTION SendMail
boatmodel=RSSQ2("boatmodel")
arrivalday=RSSQ2("arrivalday")
arrivalmonth=RSSQ2("arrivalmonth")
arrivalyear=RSSQ2("arrivalyear")
departuredate=RSSQ2("departuredate")
name=RSSQ3("name")
surname=RSSQ3("surname")
'email=RSSQ3("email")
email="chicca@vip.cybercity.dk"

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/plain"
JMail.ServerAddress = "vip.cybercity.dk"
JMail.Priority = 1
JMail.Sender = "chicca@vip.cybercity.dk"
JMail.AddRecipientEx email, name
JMail.AddRecipientCC email
JMail.AddRecipientBCC email
JMail.Subject = "Booking on line - Cerasi Charter"
JMail.Body = JMail.Body & "Thanks for contacting us: " & name  & surname & vbCrLf
JMail.Body = JMail.Body & "We want to confirm your booking of the following:"& vbCrLf
JMail.Body = JMail.Body & "Boatmodel: " &boatmodel& vbCrLf
JMail.Body = JMail.Body & "Arrivalday: " &arrivalday
JMail.Body = JMail.Body & "- " &arrivalmonth
JMail.Body = JMail.Body & "- " & arrivalyear& vbCrLf
JMail.Body = JMail.Body & "Departure date: " &departuredate& vbCrLf

JMail.Execute
Set JMail = Nothing
END FUNCTION
changeStatus()
getData()
SendMail()
%>
Horfor kan jeg ikke hente email fra databasen ???
i databasen er email gemt som tekst 50 !!!
Hvad er galt ???