Text size issue on asp page

[Simon Gare]

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

<!--#include file="Vars.asp" -->
<!--#include file="Functions.asp" -->
<%
' 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("MileageToDriv er").Value), -1, -2, -2, -
2)
End If
If 1 = 2 Then ' ----------------- Start Disabled
sDetail = sDetail & "<font color=""#000000""><b>" &
rsBooking.Fields.Item("VEHICLE_TYPE").Value & _
"</b" & rsBooking.Fields.Item("JOURNEY_TYPE").Value &
"</font><br>"

sDetail = sDetail & "<font color=""#000000"">" & "Booking ref: <font
color=""#FF0000""><b>" & _
rsBooking.Fields.Item("ID").Value & "</b></font>&nbsp;<font
color=""#000066""><b>C/A</b></font>&nbsp;<font color=""#FF0000"">" &
rsBooking.Fields.Item("ACCOUNT").Value & "</font></font><br>"

sDetail = sDetail & "<font color=""#FF0000""><b>" &
FormatDateTime(rsBooking.Fields.Item("TimeOfBookin g").Value, vbShortTime) &
_
"</b></font>&nbsp;&nbsp;<font
color=""#0066FF""><b>Quote&nbsp;£" & sQuoteText & "</b></font><br>"

sDetail = sDetail & "<font color=""#0066FF""><b>" &
rsBooking.Fields.Item("TITLE1").Value & "&nbsp;" & _
UCase((rsBooking.Fields.Item("PAX_NAME1").Value)) & "&nbsp;" &
UCase(rsBooking.Fields.Item("PAX_NAME2").Value) & "&nbsp;" & _
rsBooking.Fields.Item("PAX_NAME3").Value & "&nbsp;" &
rsBooking.Fields.Item("PAX_NAME4").Value & "</b></font><br>" & _
"<font color=""#000000"">" & rsBooking.Fields.Item("MOBILE_NO").Value &
"</font><br>"

sDetail = sDetail & "<font color=""#0066FF""><b>" & _
rsBooking.Fields.Item("FLIGHT_NUMBER").Value & "&nbsp;" &
rsBooking.Fields.Item("DEPARTING_FROM").Value & "<br>" & _
rsBooking.Fields.Item("COLL_BUILDING_NAME_NO").Val ue & ",&nbsp;" & _
rsBooking.Fields.Item("COLL_STREET").Value & "<br>" &
rsBooking.Fields.Item("COLL_CITY_TOWN").Value & "<br>" & _
rsBooking.Fields.Item("COLL_COUNTY").Value & "<br>" &
UCase(rsBooking.Fields.Item("COLL_POST_CODE").Valu e) & "&nbsp;" & _
rsBooking.Fields.Item("COLL_CONTACT_TEL").Value & "</b></font><br>"

sDetail = sDetail & "<font color=""#FF6600""><b>" &
rsBooking.Fields.Item("DEST_AIRPORT_STATION").Valu e & "<br>" & _
rsBooking.Fields.Item("DEST_BUILDING_NAME_NO").Val ue & "&nbsp;"
& rsBooking.Fields.Item("DEST_STREET").Value & "<br>" & _
rsBooking.Fields.Item("DEST_CITY_TOWN").Value & "<br>" &
rsBooking.Fields.Item("DEST_COUNTY").Value & "<br>" & _
rsBooking.Fields.Item("DEST_POST_CODE").Value & "</b></font<font
color=""#000000"">" & rsBooking.Fields.Item("DEST_CON_NUMBER").Value &
"</font><br>"

sDetail = sDetail & "<font color=""#000000"">" &
rsBooking.Fields.Item("VIA_ROAD1").Value & "&nbsp;" & _
rsBooking.Fields.Item("VIA_POST_CODE1").Value & "&nbsp;" &
rsBooking.Fields.Item("VIA_ROAD2").Value & "&nbsp;" & _
rsBooking.Fields.Item("VIA_POST_CODE2").Value & "&nbsp;" &
rsBooking.Fields.Item("VIA_ROAD3").Value & "&nbsp;" & _
rsBooking.Fields.Item("VIA_POST_CODE3").Value & "&nbsp;" &
rsBooking.Fields.Item("VIA_ROAD4").Value & "&nbsp;" & _
rsBooking.Fields.Item("VIA_POST_CODE4").Value & "</font><br><br>"

sDetail = sDetail & "<font color=""#000000""><b>Journey
Notes</b></font><br><font color=""#0000CC""><b>" &
rsBooking.Fields.Item("SPECIAL_INSTRUCTIONS").Valu e & "<b></font>"

End If ' ----------------- End Disabled
' ------------------------ Start New Code

If Request.Form("viewType") = "dest" Then
sDetail = sDetail & "<font color=""#FF6600""><b>" & _
rsBooking.Fields.Item("DEST_BUILDING_NAME_NO").Val ue & "&nbsp;"
& rsBooking.Fields.Item("DEST_STREET").Value & "<br>" & _
rsBooking.Fields.Item("DEST_CITY_TOWN").Value & "<br>" &
rsBooking.Fields.Item("DEST_COUNTY").Value & "<br>" & _
rsBooking.Fields.Item("DEST_POST_CODE").Value & "</font><br><font
color=""#0066FF"">" & rsBooking.Fields.Item("DEST_CON_NUMBER").Value &
"</b></font><br>"

sDetail = sDetail & "<font color=""#000000"">" &
rsBooking.Fields.Item("VIA_ROAD1").Value & "&nbsp;" & _
rsBooking.Fields.Item("VIA_POST_CODE1").Value & "&nbsp;" &
rsBooking.Fields.Item("VIA_ROAD2").Value & "&nbsp;" & _
rsBooking.Fields.Item("VIA_POST_CODE2").Value & "&nbsp;" &
rsBooking.Fields.Item("VIA_ROAD3").Value & "&nbsp;" & _
rsBooking.Fields.Item("VIA_POST_CODE3").Value & "&nbsp;" &
rsBooking.Fields.Item("VIA_ROAD4").Value & "&nbsp;" & _
rsBooking.Fields.Item("VIA_POST_CODE4").Value & "</font><br>"

sDetail = sDetail & "<font color=""#ff0000""><b>Journey
Notes</b></font><br><font color=""#ff0000""><b>" &
rsBooking.Fields.Item("SPECIAL_INSTRUCTIONS").Valu e & "<b></font>"
Else
sDetail = sDetail & "<font color=""#000000""><b>" &
rsBooking.Fields.Item("Description").Value & _
"</b" & rsBooking.Fields.Item("JOURNEY_TYPE").Value &
"</font><br>"

sDetail = sDetail & "<font color=""#000000"">" & "Ref: <font
color=""#FF0000""><b>" & _
rsBooking.Fields.Item("ID").Value & "</font>&nbsp;<font
color=""#000066""><b>C/A</font>&nbsp;<font color=""#FF0000"">" &
rsBooking.Fields.Item("CompanyName").Value & "</b></font></font><br>"

sDetail = sDetail & "<font color=""#FF0000""><b>" &
FormatDateTime(rsBooking.Fields.Item("TimeOfBookin g").Value, vbShortTime) &
_
"</b></font>&nbsp;&nbsp;<font color=""#0066FF""><b>Quote £"
& sQuoteText & "</b></font><br>"

sDetail = sDetail & "<font color=""#0066FF""><b>" &
rsBooking.Fields.Item("TITLE1").Value & "&nbsp;" & _
UCase((rsBooking.Fields.Item("PAX_NAME1").Value)) & "&nbsp;"
& UCase(rsBooking.Fields.Item("PAX_NAME2").Value) & "&nbsp;" & _
rsBooking.Fields.Item("PAX_NAME3").Value & "&nbsp;" &
rsBooking.Fields.Item("PAX_NAME4").Value & "</font>" & _
"<font color=""#000000"">" & rsBooking.Fields.Item("MOBILE_NO").Value
& "</b></font><br>"

sDetail = sDetail & "<font color=""#0066FF""><b>" & _
rsBooking.Fields.Item("FLIGHT_NUMBER").Value & "&nbsp;" &
rsBooking.Fields.Item("DEPARTING_FROM").Value & "<br>" & _
rsBooking.Fields.Item("COLL_BUILDING_NAME_NO").Val ue & ",&nbsp;" &
_
rsBooking.Fields.Item("COLL_STREET").Value & "<br>" &
rsBooking.Fields.Item("COLL_CITY_TOWN").Value & "<br>" & _
rsBooking.Fields.Item("COLL_COUNTY").Value & "<br>" &
UCase(rsBooking.Fields.Item("COLL_POST_CODE").Valu e) & "&nbsp;" & _
rsBooking.Fields.Item("COLL_CONTACT_TEL").Value & "</b></font><br>"
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("MES SAGE").Value)))

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

[Anthony Jones]

"Simon Gare" <si***@simongare.comwrote in message
news:e7**************@TK2MSFTNGP04.phx.gbl...

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?

My suggestion would be to use 'View Source'.

Save the resulting file as a HTM and place in the same folder as your ASP.
If you visit the HTM you should see the same results.
Now edit the HTM and start slicing away at the contents to leave only a
small example of the problem
Then if you can't see away to fix it post the HTML to a more appropriate
group (cross-post to here as well if you like). That way we don't have to
wade through all that code.

A better description of the problem would help. 'atter the text size' what
text, where, what size is it now, what do you want it to be?