<% if not Request.form("generate")="" or not request.form("preview")="" then bg_colour=Replace("#","",Request.Form("bgcolour")) table_bg_colour=Replace("#","",Request.Form("tblbgcolour")) table_b_colour=Replace("#","",Request.Form("tblbcolour")) border_width=Request.Form("tblborder") border_style=Request.Form("tblbstyle") text_colour=Replace("#","",Request.Form("textcolour")) link_colour=Replace("#","",Request.Form("linkcolour")) end if if Request.Form("preview")="" then %> <% Dim thecolour(29,2) thecolour(0,1)="#000000" thecolour(0,2)="Black" thecolour(1,1)="white" thecolour(1,2)="White" thecolour(2,1)="#cccccc" thecolour(2,2)="Grey" thecolour(3,1)="orange" thecolour(3,2)="Orange" thecolour(4,1)="red" thecolour(4,2)="Red" thecolour(5,1)="#990000" thecolour(5,2)="Darker Red" thecolour(6,1)="lightblue" thecolour(6,2)="Light Blue" thecolour(7,1)="#0000ff" thecolour(7,2)="Blue" thecolour(8,1)="#00FFFF" thecolour(8,2)="Bright Aqua" thecolour(9,1)="#1C86EE" thecolour(9,2)="Dodger Blue" thecolour(10,1)="#1C86EE" thecolour(10,2)="Cadet Blue" thecolour(11,1)="#006699" thecolour(11,2)="Special Blue" thecolour(12,1)="#FFCCCC" thecolour(12,2)="Flat Pink" thecolour(13,1)="hotpink" thecolour(13,2)="Hot Pink" thecolour(14,1)="#FF1CAE" thecolour(14,2)="Spicy Pink" thecolour(15,1)="#FF00CC" thecolour(15,2)="Rose" thecolour(16,1)="#ff0173" thecolour(16,2)="Hotter Pink" thecolour(17,1)="limegreen" thecolour(17,2)="Lime Green" thecolour(18,1)="lightgreen" thecolour(18,2)="Light Green" thecolour(19,1)="#003300" thecolour(19,2)="Dark Green" thecolour(20,1)="#385E0F" thecolour(20,2)="Forest Green" thecolour(21,1)="#7CFC00" thecolour(21,2)="Grass Green" thecolour(22,1)="turquoise" thecolour(22,2)="Turquoise" thecolour(23,1)="#DAA520" thecolour(23,2)="Gold" thecolour(24,1)="#FFFF00" thecolour(24,2)="Yellow" thecolour(25,1)="#CC00FF" thecolour(25,2)="Purple" thecolour(26,1)="#9A32CD" thecolour(26,2)="Dark Orchid" thecolour(27,1)="#C76114" thecolour(27,2)="Rust" thecolour(28,1)="#AA5303" thecolour(28,2)="Coffee" thecolour(29,1)="#CC1100" thecolour(29,2)="Blood Orange" colours=30 Dim theborder(10,2) theborder(0,1)="0" theborder(0,2)="No Border" theborder(1,1)="1" theborder(1,2)="1 Pixel" theborder(2,1)="2" theborder(2,2)="2 Pixels" theborder(3,1)="3" theborder(3,2)="3 Pixels" theborder(4,1)="4" theborder(4,2)="4 Pixels" theborder(5,1)="5" theborder(5,2)="5 Pixels" theborder(6,1)="6" theborder(6,2)="6 Pixels" theborder(7,1)="7" theborder(7,2)="7 Pixels" theborder(8,1)="8" theborder(8,2)="8 Pixels" theborder(9,1)="9" theborder(9,2)="9 Pixels" theborder(10,1)="10" theborder(10,2)="10 Pixels" borders=11 Dim theborder2(8,2) theborder2(0,1)="none" theborder2(0,2)="No Border" theborder2(1,1)="solid" theborder2(1,2)="Solid" theborder2(2,1)="dashed" theborder2(2,2)="Dashed" theborder2(3,1)="dotted" theborder2(3,2)="Dotted" theborder2(4,1)="double" theborder2(4,2)="Double" theborder2(5,1)="groove" theborder2(5,2)="Groove" theborder2(6,1)="inset" theborder2(6,2)="Inset" theborder2(7,1)="outset" theborder2(7,2)="Outset" theborder2(8,1)="ridge" theborder2(8,2)="Ridge" borders2=9 %> To make your own Custom Profile, fill out the following form, then press "Generate Code" for the code. If you wish to preview the Custom Profile, press "Preview Profile". You can now copy the code from the box below that into your "About Me" or "Who I'd Like to Meet" Box on MySpace

Background Colour
Background Picture " height="50" width="50" align="middle">
 
Table Background Colour
Table Border Colour
Table Border Width
Table Border Style
 
Text Colour
Link Colour
 
Hide Contact Table
Hide Friends
Resize Comment Images
Remove Add Comment Link
 
 
<% if not Request.Form("Generate")="" then %> Code:
<% end if %>
<% else gv_baseurl="http://www.profilestyling.com" %> <%=gv_baseurl%> - Preview
<%=gv_baseurl%>
Male
1 year old
ProfileStyling.com

Last Login: <%=date%>


View More Pics
<% if not Request.Form("hide_contacts")="y" then %>
  Contacting <%=gv_baseurl%>
Send Message Forward to Friend
Add to Friends Add to Favourites
Instant Message Block User
Add to Group Rank User
<% end if %>
Site URL:
<%=gv_baseurl%>
  <%=gv_baseurl%>'s Interests

General I have many General Interests!
Movies I have many Favourite Movies!
Television I have many Favourite TV Shows!
Heroes I have many Heroes!
  <%=gv_baseurl%>'s Details

Status: Single
Orientation: Straight
Hometown: The Internet
Body type: Athletic
Religion: Atheist
Zodiac Sign: Capricorn
Smoke / Drink: No / No
Children: Someday
Education: University
Occupation: Website
<% if not Request.Form("hide_blog")="y" then %>
 
<%=gv_baseurl%> is in your extended network
 
<%=gv_baseurl%>'s Latest Blog Entry [Subscribe to this Blog")
 
[View All Blog Entries")
<% end if %>
  <%=gv_baseurl%>'s Blurbs

About me:
Give your Profile a Custom look free at <%=gv_baseurl%>!

Who I'd like to meet:
<%=gv_baseurl%>!
<% if not Request.Form("hide_friends")="y" then %>
  <%=gv_baseurl%>'s Friend Space

<%=gv_baseurl%> has 1,000,000 friends.

Friend 1
Friend 2
Friend 3
Friend 4
 
Friend 5
Friend 6
Friend 7
Friend 8
View All of ProfileStyling's Friends
<% end if %>
<%=gv_baseurl%>'s Friends Comments

  Displaying 5 of 4,000 comments (View/Edit All Comments)

<% image_height_width=90 if Request.Form("resize_images")="y" then image_height_width=80 end if %>
Friend 1

<%=date%>

Thanks for the Custom Profiles! Now my Profile is great!
 
Friend 2

<%=date%>

Thanks for the Custom Profiles! Now my Profile is great!
 
Friend 3

<%=date%>

Thanks for the Custom Profiles! Now my Profile is great!
 
Friend 4

<%=date%>

Thanks for the Custom Profiles! Now my Profile is great!
 
Friend 5

<%=date%>

Thanks for the Custom Profiles! Now my Profile is great!
<% if not Request.Form("remove_addcomment")="y" then %>
Add Comment
<% end if %>
<% end if %>