Desparate help with CSS and ASP VBScript

Hi all,

trying to apply CSS to and ASP page as below but there is no page structure,
head / body etc. Tried various ways to add CSS but to no avail, cant even
add font size to the ;" code.

Anyone help??

THIS IS THE ENTIRE CODE FORM PAGE - NEED TO APPLY STYLES TO sDetail SECTION.



<%
' 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 * FROM booking_form 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

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

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

sDetail = sDetail & "" &
FormatDateTime(rsBooking.Fields.Item("TimeOfBooking").Value, vbShortTime) &
_
" Price" &
rsBooking.Fields.Item("MileageToDriver").Value & " "

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("COLL_AIRPORT_STATION").Value & " " & _
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 & " " & 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 & ""

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

sResponse = sResponse & "booking_detail=" & Server.URLEncode(sDetail)
sResponse = sResponse & "&booking_found=true"
Else
' sResponse = sResponse & "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)
%>

mayayana
Tue Jun 13 19:18:27 CDT 2006

You can use SPANs and DIVs with an assigned
class or ID, instead of the inline FONT tags.
That will make the page simpler to begin with.
It also gives you easy options for scripted
changes because every element has a style
property. So you can do things like:



Then in script you can do:

span1.style.fontSize = "12px"
span1.style.color = "#FF0000"

>
> trying to apply CSS to and ASP page as below but there is no page
structure,
> head / body etc. Tried various ways to add CSS but to no avail, cant even
> add font size to the ;" code.
>
> Anyone help??
>
> THIS IS THE ENTIRE CODE FORM PAGE - NEED TO APPLY STYLES TO sDetail
SECTION.
>
> 
> 
> <%
> ' 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 * FROM booking_form 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
>
> sDetail = sDetail & "" & rsBooking.Fields.Item("VEHICLE_TYPE").Value
&
> _
> " " & rsBooking.Fields.Item("JOURNEY_TYPE").Value &
" "
>
> sDetail = sDetail & "Booking ref: " & _
> rsBooking.Fields.Item("ID").Value & "  color=""#000066"">C/A " &
> rsBooking.Fields.Item("ACCOUNT").Value & " "
>
> sDetail = sDetail & "" &
> FormatDateTime(rsBooking.Fields.Item("TimeOfBooking").Value, vbShortTime)
&
> _
> " Price" &
> rsBooking.Fields.Item("MileageToDriver").Value & " "
>
> 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("COLL_AIRPORT_STATION").Value & " " & _
> 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 & ""
>
>
> If Len(sResponse) > 0 Then sResponse = sResponse & "&"
>
> sResponse = sResponse & "booking_detail=" & Server.URLEncode(sDetail)
> sResponse = sResponse & "&booking_found=true"
> Else
> ' sResponse = sResponse & "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)
> %>
>
>

Desparate help with CSS and ASP VBScript

Re: Desparate help with CSS and ASP VBScript by mayayana