1. Advertising
    y u no do it?

    Advertising (learn more)

    Advertise virtually anything here, with CPM banner ads, CPM email ads and CPC contextual links. You can target relevant areas of the site and show ads based on geographical location of the user if you wish.

    Starts at just $1 per CPM or $0.10 per CPC.

Changing the text-area border color

Discussion in 'C#' started by chrisj, Jun 20, 2008.

  1. #1
    I'm using the ASP101 Tell-A-Friend script. And I'd like to change the form's text-area border color. (And I'd like to change the text field border color).

    Can you tell me how/where in this script I would do this, please? Thank you.

    
    <%
    '*************************************************    ******
    '*     ASP 101 Sample Code - http://www.asp101.com/    *
    '*                                                     *
    '*   This code is made available as a service to our   *
    '*      visitors and is provided strictly for the      *
    '*               purpose of illustration.              *
    '*                                                     *
    '*      http://www.asp101.com/samples/license.asp      *
    '*                                                     *
    '* Please direct all inquiries to webmaster@asp101.com *
    '*************************************************    ******
    %>
    <H3>Tell a Friend:</H3>
    <%
    Dim objCDO                    ' Email object
    Dim strFromName               ' From persons' real name
    Dim strFromEmail, strToEmail  ' Email addresses
    Dim strSubject, strBody       ' Message
    Dim strThisPage               ' This page's URL
    Dim strReferringPage          ' The referring page's URL
    Dim bValidInput               ' A boolean indicating valid parameters
    ' Retrieve this page name and referring page name
    strThisPage      = Request.ServerVariables("SCRIPT_NAME")
    strReferringPage = Request.ServerVariables("HTTP_REFERER")
    ' Debugging lines:
    'Response.Write strThisPage & "<BR>" & vbCrLf
    'Response.Write strReferringPage & "<BR>" & vbCrLf
    ' Read in and set the initial values of our message parameters
    strFromName  = Trim(Request.Form("txtFromName"))
    strFromEmail = Trim(Request.Form("txtFromEmail"))
    strToEmail   = Trim(Request.Form("txtToEmail"))
    strSubject   = "Check out ASP 101!"
    strBody      = Trim(Request.Form("txtMessage"))
    
    ' I set the body message to a message that referenced the page the
    ' user arrived from.  This makes it great if you place a link to it
    ' from your different articles, but can be weird if people link in
    ' from other web sites.
    If strBody = "" Then
     If strReferringPage = "" Or InStr(1, strReferringPage, "www.asp101.com", 1) = 0 Then
      strBody = ""
      strBody = strBody & "I found a site I thought you'd like to see:" & vbCrLf
      strBody = strBody & vbCrLf
      strBody = strBody & "   http://www.asp101.com" & vbCrLf
     Else
      strBody = ""
      strBody = strBody & "I found an article I thought you'd like to see:" & vbCrLf
      strBody = strBody & vbCrLf
      strBody = strBody & "   " & strReferringPage & vbCrLf
     End If
    End If
     
    ' Quick validation just to make sure our parameters are somewhat valid
    bValidInput = True
    bValidInput = bValidInput And strFromName <> ""
    bValidInput = bValidInput And IsValidEmail(strFromEmail)
    bValidInput = bValidInput And IsValidEmail(strToEmail)
    ' If valid send email and show thanks, o/w show form
    If bValidInput Then
     ' Set up our email object and send the message
     Set objCDO = Server.CreateObject("CDO.Message")
     objCDO.From     = strFromName & " <" & strFromEmail & ">"
     objCDO.To       = strToEmail
     objCDO.Subject  = strSubject
     objCDO.TextBody = strBody
     objCDO.Send
     Set objCDO = Nothing
     ' Show our thank you message
     ShowThanksMsg
    Else
     If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then
      Response.Write "There's been an error.  Please check your entries:" & "<BR>" & vbCrLf
     End If
     ' Show our information retrieval form
     ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody
    End If
    ' End of page logic... subs and functions follow! 
    %>
    
    <%
    ' Subroutines and Functions that encapsulate some functionality
    ' and make the above code easier to write... and read.
    ' A quick email syntax checker.  It's not perfect,
    ' but it's quick and easy and will catch most of
    ' the bad addresses than people type in.
    Function IsValidEmail(strEmail)
     Dim bIsValid
     bIsValid = True
     
     If Len(strEmail) < 5 Then
      bIsValid = False
     Else
      If Instr(1, strEmail, " ") <> 0 Then
       bIsValid = False
      Else
       If InStr(1, strEmail, "@", 1) < 2 Then
        bIsValid = False
       Else
        If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
         bIsValid = False
        End If
       End If
      End If
     End If
     IsValidEmail = bIsValid
    End Function
    ' I made this a function just to get it out of the
    ' logic and make it easier to read.  It just shows the
    ' form that asks for the input
    Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody)
     ' I use script_name so users can rename this script witout having to change the code.
     %>
     <FORM ACTION="<%= strPageName %>" METHOD="post" name=frmReferral>
     <TABLE BORDER="0">
     <TR>
      <TD VALIGN="top" ALIGN="right"><STRONG>Your Name:</STRONG></TD>
      <TD><INPUT TYPE="text" NAME="txtFromName" VALUE="<%= strFromName %>" SIZE="30"></TD>
     </TR>
     <TR>
      <TD VALIGN="top" ALIGN="right"><STRONG>Your E-mail:</STRONG></TD>
      <TD><INPUT TYPE="text" NAME="txtFromEmail" VALUE="<%= strFromEmail %>" SIZE="30"></TD>
     </TR>
     <TR>
      <TD VALIGN="top" ALIGN="right"><STRONG>Friend's E-mail:</STRONG></TD>
      <TD><INPUT TYPE="text" NAME="txtToEmail" VALUE="<%= strToEmail %>" SIZE="30"></TD>
     </TR>
     <TR>
      <TD VALIGN="top" ALIGN="right"><STRONG>Message:</STRONG></TD>
      <TD><TEXTAREA NAME="txtMessage" COLS="50" ROWS="5" WRAP="virtual" READONLY><%= strBody %></TEXTAREA>
     </TR>
     <TR>
      <TD></TD>
      <TD><INPUT TYPE="reset" VALUE="Reset Form" name=rstReferral>&nbsp;&nbsp;<INPUT TYPE="submit" VALUE="Send E-mail" name=subReferral></TD>
     </TR>
     </TABLE>
     </FORM>
     <%
     '<P>The Message to be sent:</P>
     '<P><B>Subject:</B> < %= strSubject % ></P>
     '<P><B>Body:</B> < %= strBody % ></P>
    End Sub
    ' This just shows our thank you message... probably didn't need to
    ' be a function, but since I made the form one I figured I'd do this
    ' for consistency.
    Sub ShowThanksMsg()
     %>
     <P>Your message has been sent.  Thanks for helping us spread the word about ASP 101!</P>
     <%
    End Sub
    %> 
    Code (markup):

    SEMrush
     
    chrisj, Jun 20, 2008 IP
    SEMrush
  2. saurabhj

    saurabhj Banned

    Messages:
    3,461
    Likes Received:
    61
    Best Answers:
    0
    Trophy Points:
    0
    #2
    Find
    Replace it with:
    This will change the border color of text area to a red color.
     
    saurabhj, Jun 21, 2008 IP
  3. greatpree

    greatpree Guest

    Messages:
    10
    Likes Received:
    0
    Best Answers:
    0
    Trophy Points:
    0
    #3
    add following style in head section

    <html>
    <head>
    <style>
    .textfield {
    font-family: Verdana, Geneva, Arial, helvetica, sans-serif;
    font-size: 11px;
    color: #000000;
    text-decoration: none;
    background-color: #FFFFFF;
    border: 1px solid #A92149;
    }
    </style>
    </head>
    <body>
    <%
    'your code here
    'add class attribute in textarea tag
    %>
    <TEXTAREA NAME="txtMessage" COLS="50" ROWS="5" WRAP="virtual" READONLY class="textfield">
    <%
    'your code here
    %>

    may this help you
     
    greatpree, Jun 21, 2008 IP
  4. chrisj

    chrisj Well-Known Member

    Messages:
    602
    Likes Received:
    0
    Best Answers:
    0
    Trophy Points:
    101
    #4
    Thank you for your replies.

    I tried the first replies solution, replacing a line with:
    <TEXTAREA style="border-bottom-color:red" NAME="txtMessage" COLS="50" ROWS="5" WRAP="virtual" READONLY><%= strBody %></TEXTAREA>  
    
    Code (markup):
    This only changed the text area bottom border line color. So I removed the word "bottom" and it only changed the bottom and left border lines.

    So I added what greatpree suggested and it was promising. The text area border color was changed, but the instead of the text area having this message in it: "Hi, I found a web site I thought you'd like to see:..."
    What shows in the text area box is all the page code.

    So I must have something incorrect on this page, after adding greatpee's suggestion. So I've posted the page code in hopes of getting it set up correctly. Any help will be appreciated. Thanks.


    <!--#include file="inc_header.asp"-->
            <table width="80%" align="center" cellpadding="2" cellspacing="0" border="0"><tr>
        	<td>
            <p><br>
    		<font face="Arial" color="#000000" size="3">Tell a Friend</font><br><font face="Arial" color="#6B6B6B" size="3">Share Our Web Site</font>&nbsp;&nbsp;<img src="img/linkimg5.jpg" style="vertical-align: middle;" width="32" height="23" alt="" border="0"><br><font color="#FF9900">_________________________________________________</font><br><br>
    
    <html>
    <head>
    <style>
    .textfield {
    font-family: Verdana, Geneva, Arial, helvetica, sans-serif;
    font-size: 11px;
    color: #000000;
    text-decoration: none;
    background-color: #FFFFFF;
    border: 1px solid #A92149;
    }
    </style>
    </head>
    <body>
    
    <%
    Dim objCDO                    ' Email object
    Dim strFromName               ' From persons' real name
    Dim strFromEmail, strToEmail  ' Email addresses
    Dim strSubject, strBody       ' Message
    Dim strThisPage               ' This page's URL
    Dim strReferringPage          ' The referring page's URL
    Dim bValidInput               ' A boolean indicating valid parameters
    
    ' Retrieve this page name and referring page name
    strThisPage      = Request.ServerVariables("SCRIPT_NAME")
    strReferringPage = Request.ServerVariables("HTTP_REFERER")
    
    ' Debugging lines:
    'Response.Write strThisPage & "<BR>" & vbCrLf
    'Response.Write strReferringPage & "<BR>" & vbCrLf
    
    ' Read in and set the initial values of our message parameters
    strFromName  = Trim(Request.Form("txtFromName"))
    strFromEmail = Trim(Request.Form("txtFromEmail"))
    strToEmail   = Trim(Request.Form("txtToEmail"))
    strSubject   = ""
    strBody      = Trim(Request.Form("txtMessage"))
    
    
    ' I set the body message to a message that referenced the page the
    ' user arrived from.  This makes it great if you place a link to it
    ' from your different articles, but can be weird if people link in
    ' from other web sites.
    If strBody = "" Then
    	If strReferringPage = "" Or InStr(1, strReferringPage, "", 1) = 0 Then
    		strBody = ""
    		strBody = strBody & "Hi, I found a web site I thought you'd like to see:" & vbCrLf
    		strBody = strBody & vbCrLf
    		strBody = strBody & "" & vbCrLf
    	Else
    		strBody = ""
    		strBody = strBody & "Hi, I found a web site I thought you'd like to see:" & vbCrLf
    		strBody = strBody & vbCrLf
    		strBody = strBody & "   " & strReferringPage & vbCrLf
    	End If
    End If
    
    ' Quick validation just to make sure our parameters are somewhat valid
    bValidInput = True
    bValidInput = bValidInput And strFromName <> ""
    bValidInput = bValidInput And IsValidEmail(strFromEmail)
    bValidInput = bValidInput And IsValidEmail(strToEmail)
    
    ' If valid send email and show thanks, o/w show form
    If bValidInput Then
    	' Set up our email object and send the message
    	Set objCDO = Server.CreateObject("CDO.Message")
    	' existing code
    	 Set objCDO = Server.CreateObject("CDO.Message")
    
    	' mail server configuration
    	objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2
    	objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= ""
    	objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25
    	objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")= 1
    	objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")= ""
    	objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")= ""
    	objCDO.Configuration.Fields.Update
    	objCDO.From     = strFromName & " <" & strFromEmail & ">"
    	objCDO.To       = strToEmail
    	objCDO.Subject  = strSubject
    	objCDO.TextBody = strBody
    	objCDO.Send
    	Set objCDO = Nothing
    
    	' Show our thank you message
    	ShowThanksMsg
    Else
    	If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then
    		Response.Write "There's been an error.  Please check your entries:" & "<BR>" & vbCrLf
    	End If
    	' Show our information retrieval form
    	ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody
    End If
    ' End of page logic... subs and functions follow!
    %>
    
    
    <%
    ' Subroutines and Functions that encapsulate some functionality
    ' and make the above code easier to write... and read.
    
    ' A quick email syntax checker.  It's not perfect,
    ' but it's quick and easy and will catch most of
    ' the bad addresses than people type in.
    Function IsValidEmail(strEmail)
    	Dim bIsValid
    	bIsValid = True
    
    	If Len(strEmail) < 5 Then
    		bIsValid = False
    	Else
    		If Instr(1, strEmail, " ") <> 0 Then
    			bIsValid = False
    		Else
    			If InStr(1, strEmail, "@", 1) < 2 Then
    				bIsValid = False
    			Else
    				If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
    					bIsValid = False
    				End If
    			End If
    		End If
    	End If
    
    	IsValidEmail = bIsValid
    End Function
    
    ' I made this a function just to get it out of the
    ' logic and make it easier to read.  It just shows the
    ' form that asks for the input
    Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody)
    	' I use script_name so users can rename this script witout having to change the code.
    	%>
    	<FORM ACTION="<%= strPageName %>" METHOD="post" name=frmReferral>
    	<TABLE BORDER="0">
    	<TR>
    		<TD VALIGN="top" ALIGN="right"><font face="Arial" color="#6b6b6b" size="2">&nbsp;&nbsp;Your Name:</font></TD>
    		<TD><INPUT TYPE="text" NAME="txtFromName" VALUE="<%= strFromName %>" SIZE="30" border color="#000000"></TD>
    	</TR>
    	<TR>
    		<TD VALIGN="top" ALIGN="right"><font face="Arial" color="#6b6b6b" size="2">&nbsp;&nbsp;Your E-Mail:</font></TD>
    		<TD><INPUT TYPE="text" NAME="txtFromEmail" VALUE="<%= strFromEmail %>" SIZE="30"></TD>
    	</TR>
    	<TR>
    		<TD VALIGN="top" ALIGN="right"><font face="Arial" color="#6b6b6b" size="2">&nbsp;&nbsp;Friend's E-Mail:</font></TD>
    		<TD><INPUT TYPE="text" NAME="txtToEmail" VALUE="<%= strToEmail %>" SIZE="30"></TD>
    	</TR>
    	<TR>
    		<TD VALIGN="top" ALIGN="right"><font face="Arial" color="#6b6b6b" size="2">&nbsp;&nbsp;Message:</font></TD>
            <TD><TEXTAREA NAME="txtMessage" COLS="34" ROWS="8" WRAP="virtual" READONLY class="textfield">
    
    	</TR>
    	<TR>
    		<TD></TD>
    		<TD><INPUT TYPE="reset" VALUE="Reset Form" name=rstReferral>&nbsp;&nbsp;<INPUT TYPE="submit" VALUE="Send E-mail" name=subReferral></TD>
    	</TR>
    	</TABLE>
    	</FORM>
    	<%
    	'<P>The Message to be sent:</P>
    	'<P><B>Subject:</B> < %= strSubject % ></P>
    	'<P><B>Body:</B> < %= strBody % ></P>
    End Sub
    
    ' This just shows our thank you message... probably didn't need to
    ' be a function, but since I made the form one I figured I'd do this
    ' for consistency.
    Sub ShowThanksMsg()
    	%>
    	<P><font face="Arial" color="#6b6b6b" size="2">Your message has been sent.  Thanks for helping us spread the word</font></P>
    	<%
    End Sub
    %>
            </td>
        </tr></table>
    
    <!--#include file="inc_footer.asp"-->
    
    Code (markup):
     
    chrisj, Jun 21, 2008 IP
  5. greatpree

    greatpree Guest

    Messages:
    10
    Likes Received:
    0
    Best Answers:
    0
    Trophy Points:
    0
    #5
    check it:

    <table width="80%" align="center" cellpadding="2" cellspacing="0" border="0"><tr>
    <td>
    <p><br>
    <font face="Arial" color="#000000" size="3">Tell a Friend</font><br><font face="Arial" color="#6B6B6B" size="3">Share Our Web Site</font>&nbsp;&nbsp;<img src="img/linkimg5.jpg" style="vertical-align: middle;" width="32" height="23" alt="" border="0"><br><font color="#FF9900">_________________________________________________</font><br><br>

    <html>
    <head>
    <style>
    .textfield {
    font-family: Verdana, Geneva, Arial, helvetica, sans-serif;
    font-size: 11px;
    color: #000000;
    text-decoration: none;
    background-color: #FFFFFF;
    border: 1px solid #A92149;
    }
    </style>
    </head>
    <body>

    <%
    Dim objCDO ' Email object
    Dim strFromName ' From persons' real name
    Dim strFromEmail, strToEmail ' Email addresses
    Dim strSubject, strBody ' Message
    Dim strThisPage ' This page's URL
    Dim strReferringPage ' The referring page's URL
    Dim bValidInput ' A boolean indicating valid parameters

    ' Retrieve this page name and referring page name
    strThisPage = Request.ServerVariables("SCRIPT_NAME")
    strReferringPage = Request.ServerVariables("HTTP_REFERER")

    ' Debugging lines:
    'Response.Write strThisPage & "<BR>" & vbCrLf
    'Response.Write strReferringPage & "<BR>" & vbCrLf

    ' Read in and set the initial values of our message parameters
    strFromName = Trim(Request.Form("txtFromName"))
    strFromEmail = Trim(Request.Form("txtFromEmail"))
    strToEmail = Trim(Request.Form("txtToEmail"))
    strSubject = ""
    strBody = Trim(Request.Form("txtMessage"))


    ' I set the body message to a message that referenced the page the
    ' user arrived from. This makes it great if you place a link to it
    ' from your different articles, but can be weird if people link in
    ' from other web sites.
    If strBody = "" Then
    If strReferringPage = "" Or InStr(1, strReferringPage, "", 1) = 0 Then
    strBody = ""
    strBody = strBody & "Hi, I found a web site I thought you'd like to see:" & vbCrLf
    strBody = strBody & vbCrLf
    strBody = strBody & "" & vbCrLf
    Else
    strBody = ""
    strBody = strBody & "Hi, I found a web site I thought you'd like to see:" & vbCrLf
    strBody = strBody & vbCrLf
    strBody = strBody & " " & strReferringPage & vbCrLf
    End If
    End If

    ' Quick validation just to make sure our parameters are somewhat valid
    bValidInput = True
    bValidInput = bValidInput And strFromName <> ""
    bValidInput = bValidInput And IsValidEmail(strFromEmail)
    bValidInput = bValidInput And IsValidEmail(strToEmail)

    ' If valid send email and show thanks, o/w show form
    If bValidInput Then
    ' Set up our email object and send the message
    Set objCDO = Server.CreateObject("CDO.Message")
    ' existing code
    Set objCDO = Server.CreateObject("CDO.Message")

    ' mail server configuration
    objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2
    objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= ""
    objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25
    objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")= 1
    objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")= ""
    objCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")= ""
    objCDO.Configuration.Fields.Update
    objCDO.From = strFromName & " <" & strFromEmail & ">"
    objCDO.To = strToEmail
    objCDO.Subject = strSubject
    objCDO.TextBody = strBody
    objCDO.Send
    Set objCDO = Nothing

    ' Show our thank you message
    ShowThanksMsg
    Else
    If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then
    Response.Write "There's been an error. Please check your entries:" & "<BR>" & vbCrLf
    End If
    ' Show our information retrieval form
    ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody
    End If
    ' End of page logic... subs and functions follow!
    %>


    <%
    ' Subroutines and Functions that encapsulate some functionality
    ' and make the above code easier to write... and read.

    ' A quick email syntax checker. It's not perfect,
    ' but it's quick and easy and will catch most of
    ' the bad addresses than people type in.
    Function IsValidEmail(strEmail)
    Dim bIsValid
    bIsValid = True

    If Len(strEmail) < 5 Then
    bIsValid = False
    Else
    If Instr(1, strEmail, " ") <> 0 Then
    bIsValid = False
    Else
    If InStr(1, strEmail, "@", 1) < 2 Then
    bIsValid = False
    Else
    If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
    bIsValid = False
    End If
    End If
    End If
    End If

    IsValidEmail = bIsValid
    End Function

    ' I made this a function just to get it out of the
    ' logic and make it easier to read. It just shows the
    ' form that asks for the input
    Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody)
    ' I use script_name so users can rename this script witout having to change the code.
    %>
    <FORM ACTION="<%= strPageName %>" METHOD="post" name=frmReferral>
    <TABLE BORDER="0">
    <TR>
    <TD VALIGN="top" ALIGN="right"><font face="Arial" color="#6b6b6b" size="2">&nbsp;&nbsp;Your Name:</font></TD>
    <TD><INPUT TYPE="text" NAME="txtFromName" VALUE="<%= strFromName %>" SIZE="30" border color="#000000"></TD>
    </TR>
    <TR>
    <TD VALIGN="top" ALIGN="right"><font face="Arial" color="#6b6b6b" size="2">&nbsp;&nbsp;Your E-Mail:</font></TD>
    <TD><INPUT TYPE="text" NAME="txtFromEmail" VALUE="<%= strFromEmail %>" SIZE="30"></TD>
    </TR>
    <TR>
    <TD VALIGN="top" ALIGN="right"><font face="Arial" color="#6b6b6b" size="2">&nbsp;&nbsp;Friend's E-Mail:</font></TD>
    <TD><INPUT TYPE="text" NAME="txtToEmail" VALUE="<%= strToEmail %>" SIZE="30"></TD>
    </TR>
    <TR>
    <TD VALIGN="top" ALIGN="right"><font face="Arial" color="#6b6b6b" size="2">&nbsp;&nbsp;Message:</font></TD>
    <TD><TEXTAREA NAME="txtMessage" COLS="50" ROWS="5" WRAP="virtual" READONLY class="textfield"><%= strBody %></TEXTAREA>

    </TR>
    <TR>
    <TD></TD>
    <TD><INPUT TYPE="reset" VALUE="Reset Form" name=rstReferral>&nbsp;&nbsp;<INPUT TYPE="submit" VALUE="Send E-mail" name=subReferral></TD>
    </TR>
    </TABLE>
    </FORM>
    <%
    '<P>The Message to be sent:</P>
    '<P><B>Subject:</B> < %= strSubject % ></P>
    '<P><B>Body:</B> < %= strBody % ></P>
    End Sub

    ' This just shows our thank you message... probably didn't need to
    ' be a function, but since I made the form one I figured I'd do this
    ' for consistency.
    Sub ShowThanksMsg()
    %>
    <P><font face="Arial" color="#6b6b6b" size="2">Your message has been sent. Thanks for helping us spread the word</font></P>
    <%
    End Sub
    %>
    </td>
    </tr></table>
     
    greatpree, Jun 22, 2008 IP
  6. chrisj

    chrisj Well-Known Member

    Messages:
    602
    Likes Received:
    0
    Best Answers:
    0
    Trophy Points:
    101
    #6
    Thank you very much for that assistance. It successfully shows the text area border in red. I appreciate that help. Much thanks.

    Would it be a problem if I now asked how I can change the border color of three text field box borders on this page also? The text fields are titled: Your Name, Your E-Mail and Friend's E-Mail.

    Thanks again so much.
     
    chrisj, Jun 22, 2008 IP
  7. greatpree

    greatpree Guest

    Messages:
    10
    Likes Received:
    0
    Best Answers:
    0
    Trophy Points:
    0
    #7
    for textarea

    I have just added class="textfield" in textarea tag.

    see: <TEXTAREA NAME="txtMessage" COLS="50" ROWS="5" WRAP="virtual" READONLY class="textfield"><%= strBody %></TEXTAREA>

    same for text field

    <INPUT TYPE="text" NAME="txtFromName" VALUE="<%= strFromName %>" SIZE="30" class="textfield">
     
    greatpree, Jun 26, 2008 IP