I am having some problem with the following code. I have put the code behind a button. its working perfectly fine when I use it on MDB version. The error message comes when i convert it to MDE.
Can somebody please tell me what I am doing wrong?
Quote
Can somebody please tell me what I am doing wrong?
Quote
Code:
[FONT="]Private Sub Command259_Click()[/FONT]
[FONT="] Dim myDB As DAO.Database[/FONT]
[FONT="] Dim myRS As DAO.Recordset[/FONT]
[FONT="] Dim oHttp As Object[/FONT]
[FONT="] Dim strUrl, strMobileNumber As String[/FONT]
[FONT="] Dim StrJobType As String[/FONT]
[FONT="] Dim StrMsg1 As String[/FONT]
[FONT="] Dim StrMsg2 As String[/FONT]
[FONT="] Dim StrMsg3 As String[/FONT]
[FONT="] [/FONT]
[FONT="] Set myDB = CurrentDb[/FONT]
[FONT="] Set myRS = myDB.OpenRecordset("tbl_SMS_Outbox", dbOpenDynaset)[/FONT]
[FONT="] [/FONT]
[FONT="] Set oHttp = CreateObject("Microsoft.XMLHTTP")[/FONT]
[FONT="] [/FONT]
[FONT="] strMobileNumber = DLookup("Contact", "Qry_SendSMS_Contactinfo")[/FONT]
[FONT="] StrJobType = DLookup("ReqType", "Qry_SendSMS_JobType")[/FONT]
[FONT="] StrMsg1 = "Dear Customer. We are unable to reach you by phone to rectify the fault which you have reported. Please contact our customer service on."[/FONT]
[FONT="] StrMsg2 = "Dear Customer. We have been trying to reach you by phone regarding your installation. Please contact our customer service on."[/FONT]
[FONT="] StrMsg3 = "Dear Customer. We have been trying to reach you by phone regarding your relocation request. Please contact our customer service on."[/FONT]
[FONT="] [/FONT]
[FONT="] If StrJobType = "No Picture" Then[/FONT]
[FONT="] [/FONT]
[FONT="] strUrl = "http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?username=" + "User" + "&password=" + "pass" + "&message=" + StrMsg1 + "&msisdn=" + strMobileNumber[/FONT]
[FONT="] [/FONT]
[FONT="] oHttp.Open "GET", strUrl, False[/FONT]
[FONT="] oHttp.send[/FONT]
[FONT="] [/FONT]
[FONT="] MsgBox (oHttp.responseText)[/FONT]
[FONT="] [/FONT]
[FONT="] With myRS[/FONT]
[FONT="] .AddNew[/FONT]
[FONT="] .Fields!obDate = Date[/FONT]
[FONT="] .Fields!Obtime = Time()[/FONT]
[FONT="] .Fields!ObJob = Me.jobbb[/FONT]
[FONT="] .Fields!ObNumber = strMobileNumber[/FONT]
[FONT="] .Fields!obMessage = StrMsg1[/FONT]
[FONT="] .Fields!obResponse = oHttp.responseText[/FONT]
[FONT="] .Fields!obAccount = Me.Entrance_subform1.Form![AccountNo][/FONT]
[FONT="] .Fields!obsender = DLookup("LogInName", "qryCurrentUser")[/FONT]
[FONT="] .Update[/FONT]
[FONT="] End With[/FONT]
[FONT="] [/FONT]
[FONT="] myRS.Close[/FONT]
[FONT="] [/FONT]
[FONT="] ElseIf StrJobType = "Complaint" Then[/FONT]
[FONT="] [/FONT]
[FONT="] strUrl = "http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?username=" + "User" + "&password=" + "pass" + "&message=" + StrMsg1 + "&msisdn=" + strMobileNumber[/FONT]
[FONT="] [/FONT]
[FONT="] oHttp.Open "GET", strUrl, False[/FONT]
[FONT="] oHttp.send[/FONT]
[FONT="] [/FONT]
[FONT="] MsgBox (oHttp.responseText)[/FONT]
[FONT="] With myRS[/FONT]
[FONT="] .AddNew[/FONT]
[FONT="] .Fields!obDate = Date[/FONT]
[FONT="] .Fields!Obtime = Time()[/FONT]
[FONT="] .Fields!ObJob = Me.jobbb[/FONT]
[FONT="] .Fields!ObNumber = strMobileNumber[/FONT]
[FONT="] .Fields!obMessage = StrMsg1[/FONT]
[FONT="] .Fields!obResponse = oHttp.responseText[/FONT]
[FONT="] .Fields!obAccount = Me.Entrance_subform1.Form![AccountNo][/FONT]
[FONT="].Fields!obsender = DLookup("LogInName", "qryCurrentUser")[/FONT]
[FONT="] .Update[/FONT]
[FONT="] End With[/FONT]
[FONT="] [/FONT]
[FONT="] myRS.Close[/FONT]
[FONT="] ElseIf StrJobType = "MC ROL New" Then[/FONT]
[FONT="] [/FONT]
[FONT="] strUrl = "http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?username=" + "User" + "&password=" + "pass" + "&message=" + StrMsg1 + "&msisdn=" + strMobileNumber[/FONT]
[FONT="] [/FONT]
[FONT="] oHttp.Open "GET", strUrl, False[/FONT]
[FONT="] oHttp.send[/FONT]
[FONT="] [/FONT]
[FONT="] MsgBox (oHttp.responseText)[/FONT]
[FONT="] With myRS[/FONT]
[FONT="] .AddNew[/FONT]
[FONT="] .Fields!obDate = Date[/FONT]
[FONT="] .Fields!Obtime = Time()[/FONT]
[FONT="] .Fields!ObJob = Me.jobbb[/FONT]
[FONT="] .Fields!ObNumber = strMobileNumber[/FONT]
[FONT="] .Fields!obMessage = StrMsg1[/FONT]
[FONT="] .Fields!obResponse = oHttp.responseText[/FONT]
[FONT="] .Fields!obAccount = Me.Entrance_subform1.Form![AccountNo][/FONT]
[FONT="].Fields!obsender = DLookup("LogInName", "qryCurrentUser")[/FONT]
[FONT="] .Update[/FONT]
[FONT="] End With[/FONT]
[FONT="] [/FONT]
[FONT="] myRS.Close[/FONT]
[FONT="] ElseIf StrJobType = "MC ROL Fault" Then[/FONT]
[FONT="] [/FONT]
[FONT="] strUrl = "http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?username=" + "User" + "&password=" + "pass" + "&message=" + StrMsg1 + "&msisdn=" + strMobileNumber[/FONT]
[FONT="] [/FONT]
[FONT="] oHttp.Open "GET", strUrl, False[/FONT]
[FONT="] oHttp.send[/FONT]
[FONT="] [/FONT]
[FONT="] MsgBox (oHttp.responseText)[/FONT]
[FONT="] With myRS[/FONT]
[FONT="] .AddNew[/FONT]
[FONT="] .Fields!obDate = Date[/FONT]
[FONT="] .Fields!Obtime = Time()[/FONT]
[FONT="] .Fields!ObJob = Me.jobbb[/FONT]
[FONT="] .Fields!ObNumber = strMobileNumber[/FONT]
[FONT="] .Fields!obMessage = StrMsg1[/FONT]
[FONT="] .Fields!obResponse = oHttp.responseText[/FONT]
[FONT="] .Fields!obAccount = Me.Entrance_subform1.Form![AccountNo][/FONT]
[FONT="].Fields!obsender = DLookup("LogInName", "qryCurrentUser")[/FONT]
[FONT="] .Update[/FONT]
[FONT="] End With[/FONT]
[FONT="] [/FONT]
[FONT="] myRS.Close[/FONT]
[FONT="] ElseIf StrJobType = "Freezing" Then[/FONT]
[FONT="] [/FONT]
[FONT="] strUrl = "http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?username=" + "User" + "&password=" + "pass" + "&message=" + StrMsg1 + "&msisdn=" + strMobileNumber[/FONT]
[FONT="] [/FONT]
[FONT="] oHttp.Open "GET", strUrl, False[/FONT]
[FONT="] oHttp.send[/FONT]
[FONT="] [/FONT]
[FONT="] MsgBox (oHttp.responseText)[/FONT]
[FONT="] With myRS[/FONT]
[FONT="] .AddNew[/FONT]
[FONT="] .Fields!obDate = Date[/FONT]
[FONT="] .Fields!Obtime = Time()[/FONT]
[FONT="] .Fields!ObJob = Me.jobbb[/FONT]
[FONT="] .Fields!ObNumber = strMobileNumber[/FONT]
[FONT="] .Fields!obMessage = StrMsg1[/FONT]
[FONT="] .Fields!obResponse = oHttp.responseText[/FONT]
[FONT="] .Fields!obAccount = Me.Entrance_subform1.Form![AccountNo][/FONT]
[FONT="].Fields!obsender = DLookup("LogInName", "qryCurrentUser")[/FONT]
[FONT="] .Update[/FONT]
[FONT="] End With[/FONT]
[FONT="] [/FONT]
[FONT="] myRS.Close[/FONT]
[FONT="] ElseIf StrJobType = "SMC Fault" Then[/FONT]
[FONT="] [/FONT]
[FONT="] strUrl = "http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?username=" + "User" + "&password=" + "pass" + "&message=" + StrMsg1 + "&msisdn=" + strMobileNumber[/FONT]
[FONT="] [/FONT]
[FONT="] oHttp.Open "GET", strUrl, False[/FONT]
[FONT="] oHttp.send[/FONT]
[FONT="] [/FONT]
[FONT="] MsgBox (oHttp.responseText)[/FONT]
[FONT="] With myRS[/FONT]
[FONT="] .AddNew[/FONT]
[FONT="] .Fields!obDate = Date[/FONT]
[FONT="] .Fields!Obtime = Time()[/FONT]
[FONT="] .Fields!ObJob = Me.jobbb[/FONT]
[FONT="] .Fields!ObNumber = strMobileNumber[/FONT]
[FONT="] .Fields!obMessage = StrMsg1[/FONT]
[FONT="] .Fields!obResponse = oHttp.responseText[/FONT]
[FONT="] .Fields!obAccount = Me.Entrance_subform1.Form![AccountNo][/FONT]
[FONT="].Fields!obsender = DLookup("LogInName", "qryCurrentUser")[/FONT]
[FONT="] .Update[/FONT]
[FONT="] End With[/FONT]
[FONT="] [/FONT]
[FONT="] myRS.Close[/FONT]
[FONT="] ElseIf StrJobType = "iC ROL Fault" Then[/FONT]
[FONT="] [/FONT]
[FONT="] strUrl = "http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?username=" + "User" + "&password=" + "pass" + "&message=" + StrMsg1 + "&msisdn=" + strMobileNumber[/FONT]
[FONT="] [/FONT]
[FONT="] oHttp.Open "GET", strUrl, False[/FONT]
[FONT="] oHttp.send[/FONT]
[FONT="] [/FONT]
[FONT="] MsgBox (oHttp.responseText)[/FONT]
[FONT="] With myRS[/FONT]
[FONT="] .AddNew[/FONT]
[FONT="] .Fields!obDate = Date[/FONT]
[FONT="] .Fields!Obtime = Time()[/FONT]
[FONT="] .Fields!ObJob = Me.jobbb[/FONT]
[FONT="] .Fields!ObNumber = strMobileNumber[/FONT]
[FONT="] .Fields!obMessage = StrMsg1[/FONT]
[FONT="] .Fields!obResponse = oHttp.responseText[/FONT]
[FONT="] .Fields!obAccount = Me.Entrance_subform1.Form![AccountNo][/FONT]
[FONT="].Fields!obsender = DLookup("LogInName", "qryCurrentUser")[/FONT]
[FONT="] .Update[/FONT]
[FONT="] End With[/FONT]
[FONT="] [/FONT]
[FONT="] myRS.Close[/FONT]
[FONT="] ElseIf StrJobType = "Analog to Digital" Then[/FONT]
[FONT="] [/FONT]
[FONT="] strUrl = "http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?username=" + "User" + "&password=" + "pass" + "&message=" + StrMsg2 + "&msisdn=" + strMobileNumber[/FONT]
[FONT="] [/FONT]
[FONT="] oHttp.Open "GET", strUrl, False[/FONT]
[FONT="] oHttp.send[/FONT]
[FONT="] [/FONT]
[FONT="] MsgBox (oHttp.responseText)[/FONT]
[FONT="] With myRS[/FONT]
[FONT="] .AddNew[/FONT]
[FONT="] .Fields!obDate = Date[/FONT]
[FONT="] .Fields!Obtime = Time()[/FONT]
[FONT="] .Fields!ObJob = Me.jobbb[/FONT]
[FONT="] .Fields!ObNumber = strMobileNumber[/FONT]
[FONT="] .Fields!obMessage = StrMsg2[/FONT]
[FONT="] .Fields!obResponse = oHttp.responseText[/FONT]
[FONT="] .Fields!obAccount = Me.Entrance_subform1.Form![AccountNo][/FONT]
[FONT="].Fields!obsender = DLookup("LogInName", "qryCurrentUser")[/FONT]
[FONT="] .Update[/FONT]
[FONT="] End With[/FONT]
[FONT="] [/FONT]
[FONT="] ElseIf StrJobType = "Digital New" Then[/FONT]
[FONT="] [/FONT]
[FONT="] strUrl = "http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?username=" + "User" + "&password=" + "pass" + "&message=" + StrMsg2 + "&msisdn=" + strMobileNumber[/FONT]
[FONT="] [/FONT]
[FONT="] oHttp.Open "GET", strUrl, False[/FONT]
[FONT="] oHttp.send[/FONT]
[FONT="] [/FONT]
[FONT="] MsgBox (oHttp.responseText)[/FONT]
[FONT="] With myRS[/FONT]
[FONT="] .AddNew[/FONT]
[FONT="] .Fields!obDate = Date[/FONT]
[FONT="] .Fields!Obtime = Time()[/FONT]
[FONT="] .Fields!ObJob = Me.jobbb[/FONT]
[FONT="] .Fields!ObNumber = strMobileNumber[/FONT]
[FONT="] .Fields!obMessage = StrMsg2[/FONT]
[FONT="] .Fields!obResponse = oHttp.responseText[/FONT]
[FONT="] .Fields!obAccount = Me.Entrance_subform1.Form![AccountNo][/FONT]
[FONT="].Fields!obsender = DLookup("LogInName", "qryCurrentUser")[/FONT]
[FONT="] .Update[/FONT]
[FONT="] End With[/FONT]
[FONT="] ElseIf StrJobType = "New" Then[/FONT]
[FONT="] [/FONT]
[FONT="] strUrl = "http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?username=" + "User" + "&password=" + "pass" + "&message=" + StrMsg2 + "&msisdn=" + strMobileNumber[/FONT]
[FONT="] [/FONT]
[FONT="] oHttp.Open "GET", strUrl, False[/FONT]
[FONT="] oHttp.send[/FONT]
[FONT="] [/FONT]
[FONT="] MsgBox (oHttp.responseText)[/FONT]
[FONT="] With myRS[/FONT]
[FONT="] .AddNew[/FONT]
[FONT="] .Fields!obDate = Date[/FONT]
[FONT="] .Fields!Obtime = Time()[/FONT]
[FONT="] .Fields!ObJob = Me.jobbb[/FONT]
[FONT="] .Fields!ObNumber = strMobileNumber[/FONT]
[FONT="] .Fields!obMessage = StrMsg2[/FONT]
[FONT="] .Fields!obResponse = oHttp.responseText[/FONT]
[FONT="] .Fields!obAccount = Me.Entrance_subform1.Form![AccountNo][/FONT]
[FONT="].Fields!obsender = DLookup("LogInName", "qryCurrentUser")[/FONT]
[FONT="] .Update[/FONT]
[FONT="] End With[/FONT]
[FONT="] ElseIf StrJobType = "J-Sat to MSO" Then[/FONT]
[FONT="] [/FONT]
[FONT="] strUrl = "http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?username=" + "User" + "&password=" + "pass" + "&message=" + StrMsg2 + "&msisdn=" + strMobileNumber[/FONT]
[FONT="] [/FONT]
[FONT="] oHttp.Open "GET", strUrl, False[/FONT]
[FONT="] oHttp.send[/FONT]
[FONT="] [/FONT]
[FONT="] MsgBox (oHttp.responseText)[/FONT]
[FONT="] With myRS[/FONT]
[FONT="] .AddNew[/FONT]
[FONT="] .Fields!obDate = Date[/FONT]
[FONT="] .Fields!Obtime = Time()[/FONT]
[FONT="] .Fields!ObJob = Me.jobbb[/FONT]
[FONT="] .Fields!ObNumber = strMobileNumber[/FONT]
[FONT="] .Fields!obMessage = StrMsg2[/FONT]
[FONT="] .Fields!obResponse = oHttp.responseText[/FONT]
[FONT="] .Fields!obAccount = Me.Entrance_subform1.Form![AccountNo][/FONT]
[FONT="].Fields!obsender = DLookup("LogInName", "qryCurrentUser")[/FONT]
[FONT="] .Update[/FONT]
[FONT="] End With[/FONT]
[FONT="] ElseIf StrJobType = "MMDS to MSO" Then[/FONT]
[FONT="] [/FONT]
[FONT="] strUrl = "http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?username=" + "User" + "&password=" + "pass" + "&message=" + StrMsg2 + "&msisdn=" + strMobileNumber[/FONT]
[FONT="] [/FONT]
[FONT="] oHttp.Open "GET", strUrl, False[/FONT]
[FONT="] oHttp.send[/FONT]
[FONT="] [/FONT]
[FONT="] MsgBox (oHttp.responseText)[/FONT]
[FONT="] With myRS[/FONT]
[FONT="] .AddNew[/FONT]
[FONT="] .Fields!obDate = Date[/FONT]
[FONT="] .Fields!Obtime = Time()[/FONT]
[FONT="] .Fields!ObJob = Me.jobbb[/FONT]
[FONT="] .Fields!ObNumber = strMobileNumber[/FONT]
[FONT="] .Fields!obMessage = StrMsg2[/FONT]
[FONT="] .Fields!obResponse = oHttp.responseText[/FONT]
[FONT="] .Fields!obAccount = Me.Entrance_subform1.Form![AccountNo][/FONT]
[FONT="].Fields!obsender = DLookup("LogInName", "qryCurrentUser")[/FONT]
[FONT="] .Update[/FONT]
[FONT="] End With[/FONT]
[FONT="] ElseIf StrJobType = "ACN to ITV" Then[/FONT]
[FONT="] [/FONT]
[FONT="] strUrl = "http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?username=" + "User" + "&password=" + "pass" + "&message=" + StrMsg2 + "&msisdn=" + strMobileNumber[/FONT]
[FONT="] [/FONT]
[FONT="] oHttp.Open "GET", strUrl, False[/FONT]
[FONT="] oHttp.send[/FONT]
[FONT="] [/FONT]
[FONT="] MsgBox (oHttp.responseText)[/FONT]
[FONT="] With myRS[/FONT]
[FONT="] .AddNew[/FONT]
[FONT="] .Fields!obDate = Date[/FONT]
[FONT="] .Fields!Obtime = Time()[/FONT]
[FONT="] .Fields!ObJob = Me.jobbb[/FONT]
[FONT="] .Fields!ObNumber = strMobileNumber[/FONT]
[FONT="] .Fields!obMessage = StrMsg2[/FONT]
[FONT="] .Fields!obResponse = oHttp.responseText[/FONT]
[FONT="] .Fields!obAccount = Me.Entrance_subform1.Form![AccountNo][/FONT]
[FONT="].Fields!obsender = DLookup("LogInName", "qryCurrentUser")[/FONT]
[FONT="] .Update[/FONT]
[FONT="] End With[/FONT]
[FONT="] ElseIf StrJobType = "NPL to FTV" Then[/FONT]
[FONT="] [/FONT]
[FONT="] strUrl = "http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?username=" + "User" + "&password=" + "pass" + "&message=" + StrMsg2 + "&msisdn=" + strMobileNumber[/FONT]
[FONT="] [/FONT]
[FONT="] oHttp.Open "GET", strUrl, False[/FONT]
[FONT="] oHttp.send[/FONT]
[FONT="] [/FONT]
[FONT="] MsgBox (oHttp.responseText)[/FONT]
[FONT="] With myRS[/FONT]
[FONT="] .AddNew[/FONT]
[FONT="] .Fields!obDate = Date[/FONT]
[FONT="] .Fields!Obtime = Time()[/FONT]
[FONT="] .Fields!ObJob = Me.jobbb[/FONT]
[FONT="] .Fields!ObNumber = strMobileNumber[/FONT]
[FONT="] .Fields!obMessage = StrMsg2[/FONT]
[FONT="] .Fields!obResponse = oHttp.responseText[/FONT]
[FONT="] .Fields!obAccount = Me.Entrance_subform1.Form![AccountNo][/FONT]
[FONT="].Fields!obsender = DLookup("LogInName", "qryCurrentUser")[/FONT]
[FONT="] .Update[/FONT]
[FONT="] End With[/FONT]
[FONT="] ElseIf StrJobType = "iC ROL New" Then[/FONT]
[FONT="] [/FONT]
[FONT="] strUrl = "http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?username=" + "User" + "&password=" + "pass" + "&message=" + StrMsg2 + "&msisdn=" + strMobileNumber[/FONT]
[FONT="] [/FONT]
[FONT="] oHttp.Open "GET", strUrl, False[/FONT]
[FONT="] oHttp.send[/FONT]
[FONT="] [/FONT]
[FONT="] MsgBox (oHttp.responseText)[/FONT]
[FONT="] With myRS[/FONT]
[FONT="] .AddNew[/FONT]
[FONT="] .Fields!obDate = Date[/FONT]
[FONT="] .Fields!Obtime = Time()[/FONT]
[FONT="] .Fields!ObJob = Me.jobbb[/FONT]
[FONT="] .Fields!ObNumber = strMobileNumber[/FONT]
[FONT="] .Fields!obMessage = StrMsg2[/FONT]
[FONT="] .Fields!obResponse = oHttp.responseText[/FONT]
[FONT="] .Fields!obAccount = Me.Entrance_subform1.Form![AccountNo][/FONT]
[FONT="].Fields!obsender = DLookup("LogInName", "qryCurrentUser")[/FONT]
[FONT="] .Update[/FONT]
[FONT="] End With[/FONT]
[FONT="] [/FONT]
[FONT="] ElseIf StrJobType = "Relocation" Then[/FONT]
[FONT="] [/FONT]
[FONT="] strUrl = "http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?username=" + "User" + "&password=" + "pass" + "&message=" + StrMsg3 + "&msisdn=" + strMobileNumber[/FONT]
[FONT="] [/FONT]
[FONT="] oHttp.Open "GET", strUrl, False[/FONT]
[FONT="] oHttp.send[/FONT]
[FONT="] [/FONT]
[FONT="] MsgBox (oHttp.responseText)[/FONT]
[FONT="] With myRS[/FONT]
[FONT="] .AddNew[/FONT]
[FONT="] .Fields!obDate = Date[/FONT]
[FONT="] .Fields!Obtime = Time()[/FONT]
[FONT="] .Fields!ObJob = Me.jobbb[/FONT]
[FONT="] .Fields!ObNumber = strMobileNumber[/FONT]
[FONT="] .Fields!obMessage = StrMsg3[/FONT]
[FONT="] .Fields!obResponse = oHttp.responseText[/FONT]
[FONT="] .Fields!obAccount = Me.Entrance_subform1.Form![AccountNo][/FONT]
[FONT="].Fields!obsender = DLookup("LogInName", "qryCurrentUser")[/FONT]
[FONT="] .Update[/FONT]
[FONT="] End With[/FONT]
[FONT="] [/FONT]
[FONT="] End If[/FONT]