Text size issue on asp page

Hi,

I cant seem to alter the text size on the code below only the colour, the
code you see is all that the page consists of from start to finish that's
all of it, cant apply css nothing works.

Can anyone help?

Regards
Simon



<%
' Dim itm
' Response.Write("dashboard_done={{")
' For Each itm In Request.Form
' Response.Write(itm & " - " & Request.Form(itm) & ", ")
' Next
' Response.Write("}}")
' Response.End()

Dim id
Dim sql, rsBooking, rsMessage

Dim sResponse
sResponse = ""

id = Request.Form("id")
If Len(id) = 0 OR NOT IsNumeric(id) Then
Response.Write("detail_done=ERROR")
Response.End()
End If

' rsBooking...

sql = "SELECT *, dbo.booking_form.SPECIAL_INSTRUCTIONS,
dbo.CarTypes.Description, dbo.Customers.CompanyName FROM ((dbo.booking_form
INNER JOIN dbo.CarTypes ON dbo.booking_form.VEHICLE_TYPE =
dbo.CarTypes.CarTypeID) INNER JOIN dbo.Customers ON dbo.booking_form.ACCOUNT
= dbo.Customers.AccountNo) WHERE ID=" + EncodeDbParam(id)

Set rsBooking = Server.CreateObject("ADODB.RecordSet")
rsBooking.Open sql, g_ConnectionString

If NOT rsBooking.BOF AND NOT rsBooking.EOF Then
Dim sDetail

Dim sQuoteText

sQuoteText = ""
If Len(rsBooking.Fields.Item("MileageToDriver").Value) > 0 Then
sQuoteText =
FormatNumber((rsBooking.Fields.Item("MileageToDriver").Value ), -1, -2, -2, -
2)
End If


If 1 = 2 Then ' ----------------- Start Disabled


sDetail = sDetail & "" &
rsBooking.Fields.Item("VEHICLE_TYPE").Value & _
" " & rsBooking.Fields.Item("JOURNEY_TYPE").Value &
"
"

sDetail = sDetail & "" & "Booking ref: color=""#FF0000"">" & _
rsBooking.Fields.Item("ID").Value & "  color=""#000066"">C/A " &
rsBooking.Fields.Item("ACCOUNT").Value & "
"

sDetail = sDetail & "" &
FormatDateTime(rsBooking.Fields.Item("TimeOfBooking").Value, vbShortTime) &
_
"   color=""#0066FF"">Quote £" & sQuoteText & "
"

sDetail = sDetail & "" &
rsBooking.Fields.Item("TITLE1").Value & " " & _
UCase((rsBooking.Fields.Item("PAX_NAME1").Value)) & " " &
UCase(rsBooking.Fields.Item("PAX_NAME2").Value) & " " & _
rsBooking.Fields.Item("PAX_NAME3").Value & " " &
rsBooking.Fields.Item("PAX_NAME4").Value & "
" & _
"" & rsBooking.Fields.Item("MOBILE_NO").Value &
"
"

sDetail = sDetail & "" & _
rsBooking.Fields.Item("FLIGHT_NUMBER").Value & " " &
rsBooking.Fields.Item("DEPARTING_FROM").Value & "
" & _
rsBooking.Fields.Item("COLL_BUILDING_NAME_NO").Value & ", " & _
rsBooking.Fields.Item("COLL_STREET").Value & "
" &
rsBooking.Fields.Item("COLL_CITY_TOWN").Value & "
" & _
rsBooking.Fields.Item("COLL_COUNTY").Value & "
" &
UCase(rsBooking.Fields.Item("COLL_POST_CODE").Value) & " " & _
rsBooking.Fields.Item("COLL_CONTACT_TEL").Value & "
"

sDetail = sDetail & "" &
rsBooking.Fields.Item("DEST_AIRPORT_STATION").Value & "
" & _
rsBooking.Fields.Item("DEST_BUILDING_NAME_NO").Value & " "
& rsBooking.Fields.Item("DEST_STREET").Value & "
" & _
rsBooking.Fields.Item("DEST_CITY_TOWN").Value & "
" &
rsBooking.Fields.Item("DEST_COUNTY").Value & "
" & _
rsBooking.Fields.Item("DEST_POST_CODE").Value & " color=""#000000"">" & rsBooking.Fields.Item("DEST_CON_NUMBER").Value &
"
"

sDetail = sDetail & "" &
rsBooking.Fields.Item("VIA_ROAD1").Value & " " & _
rsBooking.Fields.Item("VIA_POST_CODE1").Value & " " &
rsBooking.Fields.Item("VIA_ROAD2").Value & " " & _
rsBooking.Fields.Item("VIA_POST_CODE2").Value & " " &
rsBooking.Fields.Item("VIA_ROAD3").Value & " " & _
rsBooking.Fields.Item("VIA_POST_CODE3").Value & " " &
rsBooking.Fields.Item("VIA_ROAD4").Value & " " & _
rsBooking.Fields.Item("VIA_POST_CODE4").Value & "

"

sDetail = sDetail & "Journey
Notes
" &
rsBooking.Fields.Item("SPECIAL_INSTRUCTIONS").Value & ""

End If ' ----------------- End Disabled


' ------------------------ Start New Code

If Request.Form("viewType") = "dest" Then
sDetail = sDetail & "" & _
rsBooking.Fields.Item("DEST_BUILDING_NAME_NO").Value & " "
& rsBooking.Fields.Item("DEST_STREET").Value & "
" & _
rsBooking.Fields.Item("DEST_CITY_TOWN").Value & "
" &
rsBooking.Fields.Item("DEST_COUNTY").Value & "
" & _
rsBooking.Fields.Item("DEST_POST_CODE").Value & "
color=""#0066FF"">" & rsBooking.Fields.Item("DEST_CON_NUMBER").Value &
"
"

sDetail = sDetail & "" &
rsBooking.Fields.Item("VIA_ROAD1").Value & " " & _
rsBooking.Fields.Item("VIA_POST_CODE1").Value & " " &
rsBooking.Fields.Item("VIA_ROAD2").Value & " " & _
rsBooking.Fields.Item("VIA_POST_CODE2").Value & " " &
rsBooking.Fields.Item("VIA_ROAD3").Value & " " & _
rsBooking.Fields.Item("VIA_POST_CODE3").Value & " " &
rsBooking.Fields.Item("VIA_ROAD4").Value & " " & _
rsBooking.Fields.Item("VIA_POST_CODE4").Value & "
"

sDetail = sDetail & "Journey
Notes
" &
rsBooking.Fields.Item("SPECIAL_INSTRUCTIONS").Value & ""
Else
sDetail = sDetail & "" &
rsBooking.Fields.Item("Description").Value & _
" " & rsBooking.Fields.Item("JOURNEY_TYPE").Value &
"
"

sDetail = sDetail & "" & "Ref: color=""#FF0000"">" & _
rsBooking.Fields.Item("ID").Value & "  color=""#000066"">C/A " &
rsBooking.Fields.Item("CompanyName").Value & "
"

sDetail = sDetail & "" &
FormatDateTime(rsBooking.Fields.Item("TimeOfBooking").Value, vbShortTime) &
_
"  Quote £"
& sQuoteText & "
"

sDetail = sDetail & "" &
rsBooking.Fields.Item("TITLE1").Value & " " & _
UCase((rsBooking.Fields.Item("PAX_NAME1").Value)) & " "
& UCase(rsBooking.Fields.Item("PAX_NAME2").Value) & " " & _
rsBooking.Fields.Item("PAX_NAME3").Value & " " &
rsBooking.Fields.Item("PAX_NAME4").Value & "" & _
"" & rsBooking.Fields.Item("MOBILE_NO").Value
& "
"

sDetail = sDetail & "" & _
rsBooking.Fields.Item("FLIGHT_NUMBER").Value & " " &
rsBooking.Fields.Item("DEPARTING_FROM").Value & "
" & _
rsBooking.Fields.Item("COLL_BUILDING_NAME_NO").Value & ", " &
_
rsBooking.Fields.Item("COLL_STREET").Value & "
" &
rsBooking.Fields.Item("COLL_CITY_TOWN").Value & "
" & _
rsBooking.Fields.Item("COLL_COUNTY").Value & "
" &
UCase(rsBooking.Fields.Item("COLL_POST_CODE").Value) & " " & _
rsBooking.Fields.Item("COLL_CONTACT_TEL").Value & "
"
End If
' ------------------------ End New Code

If Len(sResponse) > 0 Then sResponse = sResponse & "&"

sResponse = sResponse & "booking_detail=" & Server.URLEncode(sDetail)
sResponse = sResponse & "&booking_found=true"
Else
' sResponse = sResponse & " Currently logged on - No journies
assigned"
End If

rsBooking.Close
Set rsBooking = NOTHING


' rsMessage ...

sql = "SELECT * FROM MessageToAll ORDER BY ID DESC"

Set rsMessage = Server.CreateObject("ADODB.RecordSet")
rsMessage.Open sql, g_ConnectionString

If NOT rsMessage.BOF AND NOT rsMessage.EOF Then
If Len(sResponse) > 0 Then sResponse = sResponse & "&"

sResponse = sResponse & "message=" &
Server.URLEncode(UCase((rsMessage.Fields.Item("MESSAGE").Val ue)))

sResponse = sResponse & "&message_found=true"
Else
' TODO: ---------------- Response.Write("login_done=Bad username /
password")
End If

If Len(sResponse) > 0 Then sResponse = sResponse & "&"

sResponse = sResponse & "detail_done=SUCCESS"

rsMessage.Close
Set rsMessage = NOTHING

Response.Write(sResponse)
%>

--
Simon Gare
The Gare Group Limited

website: www.thegaregroup.co.uk
website: www.privatehiresolutions.co.uk