Text size issue on asp page

S

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("MileageToDriver").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("TimeOfBooking").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").Value & ",&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").Value) & "&nbsp;" & _
rsBooking.Fields.Item("COLL_CONTACT_TEL").Value & "</b></font><br>"

sDetail = sDetail & "<font color=""#FF6600""><b>" &
rsBooking.Fields.Item("DEST_AIRPORT_STATION").Value & "<br>" & _
rsBooking.Fields.Item("DEST_BUILDING_NAME_NO").Value & "&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").Value & "<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").Value & "&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").Value & "<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("TimeOfBooking").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").Value & ",&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").Value) & "&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("MESSAGE").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
 
A

Anthony Jones

Simon Gare said:
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?
Click to expand...

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?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How to position the *tooltip* comment on these buttons? 9
"input-group-text" help 7
Help with my responsive home page 2
Help with code 0
Can a querystring be used to load input fields in a target page? 1
Quizz script performance bug -- too many questions? 16
Fading effect between play and play-over and pause and pause-over 0
using refresh to reload page, problem is it loads header, footer andeverything, can I avoind those t 8

Members online

No members online now.
Total: 19 (members: 1, guests: 18)
Robots: 163

Forum statistics

Threads
473,774
Messages
2,569,596
Members
45,143
Latest member
SterlingLa

Latest Threads

Top