Hello friends this is my asp page coading <!-- METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Library" --> <%@Language=vbscript%> <%response.buffer=true%> <html> <head> <meta http-equiv="Content-Language" content="en-us"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title></title> </head> <body> <% f1room=request.form("Room") f1dd=request.form("DepartureDate") f1fname=request.form("fname") f1lname=request.form("lname") f1email=request.form("email") f1address=request.form("Address") f1city=request.form("City") f1state=request.form("State") f1zip=request.form("Zip") f1q3=request.Form("q3") f1q4=request.Form("q4") f1q5=request.Form("q5") f1q6=request.form("q6") f1q7=request.Form("q7") f18a=request.Form("8a") f18b=request.Form("8b") f18c=request.Form("8c") f18d=request.Form("8d") f18e=request.Form("8e") f18f=request.Form("8f") f19e=request.Form("9e") f110h=request.Form("10h") f111m=request.Form("11m") f112l=request.Form("12l") f113s=request.Form("13s") f114t=request.Form("14t") f115b=request.Form("15b") f116f=request.Form("16f") f18g =request.Form("8g") f117c =request.Form("17c") f118l =request.Form("18l") f119t =request.Form("19t") f120b=request.Form("20b") f121d=request.Form("21d") f122m=request.Form("22m") f123q=request.Form("23q") f124s=request.Form("24s") f125o=request.Form("25o") f126d=request.Form("26d") f127d=request.Form("27d") f128d=request.Form("28d") f129a=request.Form("29a") f130a=request.Form("30a") f131a=request.Form("31a") f132r=request.Form("32r") f133b=request.Form("33b") f134s=request.Form("34s") f135d=request.Form("35d") f136t=request.Form("36t") f18rs=request.Form("8rs") f19a=request.Form("9a") f19b=request.Form("9b") f1r2=request.Form("r2") hidd=Request.Form("hidd1") hidd2=request.form("hidd2") hidd3=request.Form("hidd3") hidd4=request.form("hidd4") subject="Guest Feedback:- " feedback= "Room=" & f1room & "<br>Departure Date=" & f1dd & "<br>First Name=" & f1fname & "<br>Last Name=" & f1lname & "<br>Email=" & f1email & "<br>Address=" & f1address & "<br>City=" & f1city & "<br>State=" & f1state & "<br>Zip=" & f1zip & "<BR>Upon your arrival, were you properly welcomed by our staff? "&f1q3 & "<br>Was your check-in handled in a courteous and efficient manner? "&f1q4 & "<br>Did your accommodations meet your expectations? "& f1q5 & "<br>Did you encounter difficulties with our hotel? " & f1q6 &"<br>Would you return to The Clarks Amer again? "& f1q7 &"<br>Please, rate the following: - <br>Limousine - "& f18a & "<br>Doorman - "&f18b& "<br>Reception - " &f18c& "<br>Bell Desk - " &f18d& "<br>Welcome Assistance -" &f18e& "<br>Telephone Operator -" &f18f & "<br>Cashier -" &f19e & "<br>Housekeeping - " &f110h & "<br>Mini Bar-" &f111m & "<br>Laundry-" &f112lf & "<br>Swimming Pool -" &f113s & "<br>Travel Desk -" &f114t & "<br>Business Centre-" &f115b & "<br>Fitness Centre-" &f116f& "<br>Comments "&f18g & "<br> Rating Your Room-" & "<br>Cleanliness "&f117c& "<br>Lighting "&f118l& "<br>Temprature "&f119t& "<br>Bathroom Amenities "&f120b& "<br>Decor "&f121d& "<br>Mattress/Pillow Comfort "&f122m& "<br>Quitness "&f123q& "<br>Safety and Security "&f124s& "<br>Overall Maintenance "&f125oc& "<br>Darbar : Breakfast "&f126dc& "<br>Darbar : Lunch "&f127d& "<br>Darbar : Dinner "&f128d& "<br>Asthan : Breakfast "&f129a& "<br>Asthan : Lunch "&f130a& "<br>Asthan : Dinner "&f131a& "<br>Room Service "&f132r& "<br>Bar-be-que "&f133b& "<br>Surahi Bar "&f134s& "<br>Dhola Maru "&f135d& "<br>Tablu "&f136t& "<br>Comments "&f18rs& "<br>Was there a member of our staff whom made your stay enjoyable? "&"<br>Employee's Name: "&f19a&"Comments: "&f19b& "<br>Are there any recommendations you have to improve our hotel? "&f1r2&"<br>How did you hear about our hotel? "&hidd & "<br>How did you make your reservations? "&hidd2& "<br>Did you encounter difficulties with our hotel? "&hidd3& "<br>Would you return to The Clarks Amer again? "&hidd4 Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail.hotelclarks.com" .Item(cdoSMTPAuthenticate) = 1 .Item(cdoSendUsername) = "test@hotelclarks.com" .Item(cdoSendPassword) = "test123" .Update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = f1email cdoMessage.To="satishflight@gmail.com" cdoMessage.cc="admin@clarksamer.com" .Subject = subject .htmlBody = feedback .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing 'response.write enqbody response.redirect(submitted.htm") %> </body> </html> this coading work properly but i want that all the static word of mail is show in red color and other dynamic data content show in blue color when some one sen me feed back. for example Room will show in red color and it's vale & f1room & will show in blue color what i will do please help me
Do the following for each name value pair. Example: feedback= "<font color='red'>Room=</font><font color='blue'>" & f1room & "</font>" Or do it via css, will keep it cleaner.
feedback= "<font color=red>Room=</font><font color=blue>" & f1room & "</font>" or feedback= "<font color=""red"">Room=</font><font color=""blue"">" & f1room & "</font>" or feedback=replace(feedback,"Room=","<font color=""red"">Room=</font>") feedback=replace(feedback,f1room,"<font color=""blue"">" & f1room & "</font>") if errors still there then post your error messages here.