CodeCharge Studio
search Register Login  

Visual Web Reporting

Visually create Web Reports in PHP, ASP, .NET, Java, Perl and ColdFusion.
CodeCharge.com

YesSoftware Forums -> Archive -> GotoCode Archive

 <<< Text Area Box question? >>>

Print topic Send  topic

Author Message
Iso
Posted: 01/22/2002, 11:14 AM

I believe the updated version of CC corrects the problem I have, however I already have my site built and working. I just need to find out what I need to do in my html code or anywhere to make the TEXT AREA box look properly.
Currently it looks like this:

Address: 1254 Melrose St. Brooklyn, NY 11205 (this happens to all text area boxes, it enters the text in a long row.)

I need for it to look like this:
Address: 1254 Melrose St. >(press enter)<
Brooklyn, NY 11205
USA

I don't want all text in one long row.
Can anyone please tell me how to correct this, I would really appreciate it.

Thanks,
ISO
ISO
Posted: 01/22/2002, 11:25 AM

I am using ASP / Access.
Iso
Posted: 01/23/2002, 7:26 AM

Need a fix, can anyone help me understand how to fix this?
megan_g
Posted: 01/23/2002, 7:46 AM

In an earlier post, someone suggested:

click "Form properties" icon , select "Events" tab. Select "Show event" . Enter your code
<%

' REPLACE CARRIAGE RETURNS WITH BREAKS

InsertLB = fldSource
ConvertedSource = replace(myMemCvt,chr(13),"<br>")
fldTextField=response.write(ConvertedSource)

%>
ISO
Posted: 01/23/2002, 1:40 PM

Where Exactly do I enter that in my asp code.
Brent
Posted: 01/23/2002, 2:29 PM

Try the BEFORE SHOW event. This event allows you to modify variables before they
are displayed on the screen.
Iso
Posted: 01/24/2002, 9:07 AM

So I enter this code in my asp code, however will this be on my display page?, or input page? Below is my code, I'm really getting frustrated that I can't fix this, and it's probably something very simple. As you can all tell, I'm new at this. Please show me where to make the updates, thanks:

Display Page:

<%
'
'-------------------------------
' EmpDetail CustomIncludes begin
%>

<!-- #INCLUDE FILE="Common.asp" -->
<!-- #INCLUDE FILE="Header.asp" -->

<%
' EmpDetail CustomIncludes end
'-------------------------------

'===============================
' Save Page and File Name available into variables
'-------------------------------
sFileName = "EmpDetail.asp"
'===============================


'===============================
' EmpDetail PageSecurity begin
' EmpDetail PageSecurity end
'===============================

'===============================
' EmpDetail Open Event start
' EmpDetail Open Event end
'===============================

'===============================
' EmpDetail OpenAnyPage Event start
' EmpDetail OpenAnyPage Event end
'===============================

'===============================
' Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================

' EmpDetail Show begin

'===============================
' Page execution
'-------------------------------
'Initialize error variables
'-------------------------------
sRecordErr = ""

'-------------------------------
' Select the FormAction
'-------------------------------
Select Case sForm
Case "Record"
RecordAction(sAction)
end select
'===============================

'===============================
' HTML Page layout
'-------------------------------
%>
<html>
<head>
<title>Property Profile Directory</title>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="expires" content="0">
<meta http-equiv="cache-control" content="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"></head>
<body text="#000000" link="#000080" vlink="#000080" alink="#000080">

<table>
<tr>
<td valign="top">
<% Header_Show %>

</td>
</tr>
</table>

<table>
<tr>

<td valign="top">
<% Record_Show %>

</td>
</tr>
</table>


</body>
</html>
<%
' EmpDetail Show end

' EmpDetail Close Event start
' EmpDetail Close Event end

'-------------------------------
' Destroy connection object
'-------------------------------
cn.close
Set cn = nothing
'===============================


'********************************************************************************

'===============================
' Action of the Record Form
'-------------------------------
Sub RecordAction(sAction)
'-------------------------------
' Initialize variables
'-------------------------------
Dim bExecSQL: bExecSQL = true
Dim sActionFileName : sActionFileName = ""
Dim sParams : sParams = "?"
Dim sWhere : sWhere = ""
Dim bErr : bErr = False
Dim pPKemp_id : pPKemp_id = ""
'-------------------------------

'-------------------------------
' Record Action begin
'-------------------------------
sActionFileName = "Default.asp"
sParams = sParams & "dep_id=" & ToURL(GetParam("Trn_dep_id")) & "&"
sParams = sParams & "name=" & ToURL(GetParam("Trn_name")) & "&"
sParams = sParams & "email=" & ToURL(GetParam("Trn_email"))

'-------------------------------
' CANCEL action
'-------------------------------
if sAction = "cancel" then

'-------------------------------
' Record BeforeCancel Event start
' Record BeforeCancel Event end
'-------------------------------
cn.Close
Set cn = Nothing
response.redirect sActionFileName & sParams
end if
'-------------------------------

'-------------------------------
' Load all form fields into variables
'-------------------------------
'-------------------------------
' Record BeforeExecute Event start
' Record BeforeExecute Event end
'-------------------------------

'-------------------------------
' Execute SQL statement
'-------------------------------
if len(sRecordErr) > 0 then Exit Sub
on error resume next
if bExecSQL then
cn.execute sSQL
end if
sRecordErr = ProcessError
on error goto 0
if len(sRecordErr) > 0 then Exit Sub
cn.Close
Set cn = Nothing
response.redirect sActionFileName & sParams
'-------------------------------
' Record Action end
'-------------------------------
end sub
'===============================

'===============================
' Display Record Form
'-------------------------------
Sub Record_Show()
'-------------------------------
' Record Show begin
'-------------------------------
sWhere = ""
Dim sFormTitle: sFormTitle = "Property Profile"
bPK = true

%>

<table border="0" cellspacing="2" cellpadding="0" style="border-left-width: 0; border-top-width: 0; border-bottom-width: 0">
<form method="POST" action="<%= sFileName %>" name="Record">
<tr><td align="center" bgcolor="#000080" colspan="2"><font style="font-size: 12pt; color: #FFFFFF; font-family: Arial, Tahoma, Verdana, Helvetica; font-weight: bold"><%=sFormTitle%></font></td></tr>
<% if not (sRecordErr = "") then %>
<tr><td colspan="2" bgcolor="#0000FF"><font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%= sRecordErr %></font></td></tr>
<% end if %>
<%

'-------------------------------
' Load primary key and form parameters
'-------------------------------
if sRecordErr = "" then
flddep_id = GetParam("dep_id")
fldname = GetParam("name")
fldemail = GetParam("email")
Trn_dep_id = GetParam("dep_id")
Trn_name = GetParam("name")
Trn_email = GetParam("email")
pemp_id = GetParam("emp_id")
else
Trn_dep_id = GetParam("Trn_dep_id")
Trn_name = GetParam("Trn_name")
Trn_email = GetParam("Trn_email")
pemp_id = GetParam("PK_emp_id")
end if

'-------------------------------
' Load all form fields

'-------------------------------

'-------------------------------
' Build WHERE statement

if IsEmpty(pemp_id) then bPK = False

sWhere = sWhere & "emp_id=" & ToSQL(pemp_id, "Number")
PK_emp_id = pemp_id
'-------------------------------
'-------------------------------
' Record Open Event start
' Record Open Event end
'-------------------------------

'-------------------------------
' Build SQL statement and open recordset
'-------------------------------
sSQL = "select * from emps where " & sWhere
openrs rs, sSQL
bIsUpdateMode = (bPK and not(sAction = "insert" and sForm = "Record") and not rs.eof)
'-------------------------------

'-------------------------------
' Load all fields into variables from recordset or input parameters
'-------------------------------
if bIsUpdateMode then
fldaddress = GetValue(rs, "address")
fldcell_phone = GetValue(rs, "cell_phone")
flddep_id = GetValue(rs, "dep_id")
fldemail = GetValue(rs, "email")
fldemp_id = GetValue(rs, "emp_id")
fldhome_phone = GetValue(rs, "home_phone")
fldname = GetValue(rs, "name")
fldpicture = GetValue(rs, "picture")
fldpicture2 = GetValue(rs, "picture2")
fldtitle = GetValue(rs, "title")
fldwork_phone = GetValue(rs, "work_phone")
fldilec = GetValue(rs, "ilec")
fldunits = GetValue(rs, "units")
fldvendor = GetValue(rs, "vendor")
flddemarc = GetValue(rs, "demarc")
fldsecurity = GetValue(rs, "security")
fldsac = GetValue(rs, "sac")
fldterminal = GetValue(rs, "terminal")
fldwire_agree = GetValue(rs, "wire_agree")
fldcomplex = GetValue(rs, "complex")
fldcustomer = GetValue(rs, "customer")
fldproperty_name = GetValue(rs, "property_name")
fldproperty_contact = GetValue(rs, "property_contact")
fldproperty_address = GetValue(rs, "property_address")
fldcity_state = GetValue(rs, "city_state")
fldagent_id = GetValue(rs, "agent_id")
fldprice_plans = GetValue(rs, "price_plans")
fldresi_plan = GetValue(rs, "resi_plan")
flddirections = GetValue(rs, "directions")
fldnote = GetValue(rs, "note")

'-------------------------------
' Record ShowEdit Event start
' Record ShowEdit Event end
'-------------------------------
else
if sRecordErr = "" then
fldname = ToHTML(GetParam("name"))
flddep_id = ToHTML(GetParam("dep_id"))
fldemail = ToHTML(GetParam("email"))
end if
'-------------------------------
' Record ShowInsert Event start
' Record ShowInsert Event end
'-------------------------------
end if

'-------------------------------
' Set lookup fields
'-------------------------------
flddep_id = DLookUp("deps", "name", "dep_id=" & ToSQL(flddep_id, "Number"))
if sRecordErr = "" then
'-------------------------------
' Record Show Event start

fldpicture="<img border=0 src=""images/emps/" & fldpicture & """>"
fldpicture2="<img border=0 src=""images/emps/" & fldpicture2 & """>"

' Record Show Event end
'-------------------------------
end if

'-------------------------------
' Show form fields
'-------------------------------
%>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; " width="0">
<font style="font-size: 10pt; font-family: Arial; font-weight:700" color="#FFFFFF">
Property Owner Name          </font></td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=ToHTML(fldproperty_name)%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font size="2">
<span style="font-family: Arial">Property
Owner Contact</span></font><font face="Arial" size="2"> Info</font></font></b></td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=ToHTML(fldproperty_contact)%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font style="font-size: 10pt; font-family: Arial">
Property Owner Address</font><font face="Arial" size="2"> </font> </font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=ToHTML(fldproperty_address)%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font style="font-size: 10pt; font-family: Arial">
Site Name</font><font face="Arial" size="2"> </font> </font>
</b>
</td>
<td bgcolor="#FFFF00" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=ToHTML(fldname)%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font style="font-size: 10pt; font-family: Arial">
Address</font><font face="Arial" size="2"> </font> </font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldaddress%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font style="font-size: 10pt; font-family: Arial">
City, State, Zip Code</font><font face="Arial" size="2"> </font> </font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=ToHTML(fldcity_state)%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font style="font-size: 10pt; font-family: Arial">
Manager Contact Name</font><font face="Arial" size="2"> </font> </font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldemail%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font style="font-size: 10pt; font-family: Arial">
Main Contact Telephone</font><font face="Arial" size="2"> </font> </font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldwork_phone%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font style="font-size: 10pt; font-family: Arial">
Agent and their ID's</font><font face="Arial" size="2"> </font> </font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldagent_id%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font style="font-size: 10pt; font-family: Arial">
Price Plans</font><font face="Arial" size="2"> </font> </font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldprice_plans%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font style="font-size: 10pt; font-family: Arial">
Residential Plan Info</font><font face="Arial" size="2"> </font>
</font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldresi_plan%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font size="2" color="#FFFFFF">
<span style="font-family: Arial">ILEC                                           </span></font><font color="#FFFFFF" face="Arial" size="2"> </font></b></td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldilec%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font size="2">
<span style="font-family: Arial">Total
Units</span></font><font face="Arial" size="2"> </font>
</font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldunits%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font style="font-size: 10pt; font-family: Arial">
Inside Wire Vendor</font><font face="Arial" size="2"> </font>
</font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldvendor%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font style="font-size: 10pt; font-family: Arial">
Central Demarc YES or NO</font><font face="Arial" size="2"> </font>
</font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=flddemarc%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<p style="margin-top: 0; margin-bottom: 0">
<font size="2" color="#FFFFFF">
<span style="font-family: Arial; font-weight:700">Security
Code If Site</span></font></p>
<p style="margin-top: 0; margin-bottom: 0">
<b>
<font size="2" color="#FFFFFF">
<span style="font-family: Arial">Has
Central Demarc</span></font><font color="#FFFFFF" face="Arial" size="2">
</font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldsecurity%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font style="font-size: 10pt; font-family: Arial">
SAC Box YES or NO</font><font face="Arial" size="2"> </font>
</font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldsac%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font style="font-size: 10pt; font-family: Arial">
Terminal YES or NO</font><font face="Arial" size="2"> </font>
</font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldterminal%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font style="font-size: 10pt; font-family: Arial">
Inside Wire Site Agreement</font><font face="Arial" size="2"> </font>
</font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldwire_agree%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font style="font-size: 10pt; font-family: Arial">
Complex Is Billed If:</font><font face="Arial" size="2"> </font>
</font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldcomplex%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<font style="font-size: 10pt; font-family: Arial; font-weight:700" color="#FFFFFF">
Customer is billed if:</font></td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldcustomer%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font color="#FFFFFF">
<font style="font-size: 10pt; font-family: Arial">
Please Note:</font><font face="Arial" size="2"> </font>
</font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldnote%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<b>
<font size="2" color="#FFFFFF"><span style="font-family: Arial">
Directions</span></font><font color="#FFFFFF"><font style="font-size: 10pt; font-family: Arial">:</font><font face="Arial" size="2"> </font>
</font>
</b>
</td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=flddirections%></font> </td>
</tr>
<tr>
<td bgcolor="#0000FF" style="border-style:solid; border-width:1; ">
<font size="2" color="#FFFFFF"><b><span style="font-family: Arial">
Pictures (</span></b></font><b><font face="Arial" size="2" color="#FFFFFF">Central
Demarc):</font></b></td>
<td bgcolor="#FFFFFF" style="border-style:solid; border-width:1; " >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%=fldpicture%> <%=fldpicture2%></font> </td>
</tr>
<tr><td colspan="2" align="right">

<input type="submit" value="Back" onclick="document.Record.FormAction.value = 'cancel';">
<input type="hidden" name="FormName" value="Record">

<input type="hidden" name="Trn_dep_id" value="<%= Trn_dep_id %>">
<input type="hidden" name="Trn_name" value="<%= Trn_name %>">
<input type="hidden" name="Trn_email" value="<%= Trn_email %>">
<input type="hidden" name="PK_emp_id" value="<%= pemp_id %>">
<input type="hidden" value="cancel" name="FormAction">

</td></tr>
</form>
</table>
<%


'-------------------------------
' Record Close Event start
' Record Close Event end
'-------------------------------

Set rs = Nothing

'-------------------------------
' Record Show end
'-------------------------------
End Sub
'===============================

%>



   


These are Community Forums for users to exchange information.
If you would like to obtain technical product help please visit http://support.yessoftware.com.

MS Access to Web

Convert MS Access to Web.
Join thousands of Web developers who build Web applications with minimal coding.

CodeCharge.com

Home   |    Search   |    Members   |    Register   |    Login


Powered by UltraApps Forum created with CodeCharge Studio
Copyright © 2003-2004 by UltraApps.com  and YesSoftware, Inc.