ISO
|
| Posted: 01/22/2002, 2:51 PM |
|
My text in the Text Area Box is appearing all in one long line. I wanted to space them out by pressing enter, I doens't work. Need help.
Using ASP / Access
|
|
|
 |
Stuart Sammels
|
| Posted: 01/22/2002, 3:16 PM |
|
Example:
If the field name is event_desc then you would use this code in the form events - before show.
fldevent_desc=replace(fldevent_desc,vbCRLF,"<br>")
|
|
|
|
beer-monkey.com
|
| Posted: 01/23/2002, 12:41 AM |
|
Also don't forget to click the 'html' checkbox on the field properties tab of the text field!
Rgds
Paul
|
|
|
|
Where?, Please
|
| Posted: 01/23/2002, 7:05 AM |
|
<%
' Filename: EmpRecords.asp
' Generated with CodeCharge 2.0.4
' ASP 2.0.ccp build 11/30/2001
'-------------------------------
' EmpsRecord CustomIncludes begin
%>
<!-- #INCLUDE FILE="Common.asp" -->
<!-- #INCLUDE FILE="Header.asp" -->
<%
' EmpsRecord CustomIncludes end
'-------------------------------
'===============================
' Save Page and File Name available into variables
'-------------------------------
sFileName = "EmpsRecord.asp"
'===============================
'===============================
' EmpsRecord PageSecurity begin
CheckSecurity(3)
' EmpsRecord PageSecurity end
'===============================
'===============================
' EmpsRecord Open Event start
' EmpsRecord Open Event end
'===============================
'===============================
' EmpsRecord OpenAnyPage Event start
' EmpsRecord OpenAnyPage Event end
'===============================
'===============================
' Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================
' EmpsRecord Show begin
'===============================
' Page execution
'-------------------------------
'Initialize error variables
'-------------------------------
sempsErr = ""
'-------------------------------
' Select the FormAction
'-------------------------------
Select Case sForm
Case "emps"
empsAction(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">
<% emps_Show %>
<SCRIPT Language="JavaScript" type="text/javascript">
if (document.forms["emps"])
document.emps.onsubmit=delconf;
function delconf() {
if (document.emps.FormAction.value == 'delete')
return confirm('Delete record?');
}
</SCRIPT>
</td>
</tr>
</table>
</body>
</html>
<%
' EmpsRecord Show end
' EmpsRecord Close Event start
' EmpsRecord Close Event end
'-------------------------------
' Destroy connection object
'-------------------------------
cn.close
Set cn = nothing
'===============================
'********************************************************************************
'===============================
' Action of the Record Form
'-------------------------------
Sub empsAction(sAction)
'-------------------------------
' Initialize variables
'-------------------------------
Dim bExecSQL: bExecSQL = true
Dim sActionFileName : sActionFileName = ""
Dim sWhere : sWhere = ""
Dim bErr : bErr = False
Dim pPKemp_id : pPKemp_id = ""
Dim fldname : fldname = ""
Dim fldtitle : fldtitle = ""
Dim fldemp_login : fldemp_login = ""
Dim fldemp_password : fldemp_password = ""
Dim fldemp_level : fldemp_level = ""
Dim flddep_id : flddep_id = ""
Dim fldaddress : fldaddress = ""
Dim fldemail : fldemail = ""
Dim fldwork_phone : fldwork_phone = ""
Dim fldhome_phone : fldhome_phone = ""
Dim fldcell_phone : fldcell_phone = ""
Dim fldpicture : fldpicture = ""
Dim fldpicture2 : fldpicture2 = ""
Dim fldilec : fldilec = ""
Dim fldunits : fldunits = ""
Dim fldvendor : fldvendor = ""
Dim flddemarc : flddemarc = ""
Dim fldsecurity : fldsecurity = ""
Dim fldsac : fldsac = ""
Dim fldterminal : fldterminal = ""
Dim fldwire_agree : fldwire_agree = ""
Dim fldcomplex : fldcomplex = ""
Dim fldcustomer : fldcustomer = ""
Dim fldnote : fldnote = ""
Dim fldproperty_name : fldproperty_name = ""
Dim fldproperty_contact : fldproperty_contact = ""
Dim fldproperty_address : fldproperty_address = ""
Dim fldcity_state : fldcity_state = ""
Dim fldagent_id : fldagent_id = ""
Dim fldprice_plans : fldprice_plans = ""
Dim fldresi_plan : fldresi_plan = ""
Dim flddirections : flddirections = ""
'-------------------------------
'-------------------------------
' emps Action begin
'-------------------------------
sActionFileName = "EmpsGrid.asp"
'-------------------------------
' CANCEL action
'-------------------------------
if sAction = "cancel" then
'-------------------------------
' emps BeforeCancel Event start
' emps BeforeCancel Event end
'-------------------------------
cn.Close
Set cn = Nothing
response.redirect sActionFileName
end if
'-------------------------------
'-------------------------------
' Build WHERE statement
'-------------------------------
if sAction = "update" or sAction = "delete" then
pPKemp_id = GetParam("PK_emp_id")
if IsEmpty(pPKemp_id) then exit sub
sWhere = "emp_id=" & ToSQL(pPKemp_id, "Number")
end if
'-------------------------------
'-------------------------------
' Load all form fields into variables
'-------------------------------
fldname = GetParam("name")
fldtitle = GetParam("title")
fldemp_login = GetParam("emp_login")
fldemp_password = GetParam("emp_password")
fldemp_level = GetParam("emp_level")
flddep_id = GetParam("dep_id")
fldaddress = GetParam("address")
fldemail = GetParam("email")
fldwork_phone = GetParam("work_phone")
fldhome_phone = GetParam("home_phone")
fldcell_phone = GetParam("cell_phone")
fldpicture = GetParam("picture")
fldpicture2 = GetParam("picture2")
fldilec = GetParam("ilec")
fldunits = GetParam("units")
fldvendor = GetParam("vendor")
flddemarc = GetParam("demarc")
fldsecurity = GetParam("security")
fldsac = GetParam("sac")
fldterminal = GetParam("terminal")
fldwire_agree = GetParam("wire_agree")
fldcomplex = GetParam("complex")
fldcustomer = GetParam("customer")
fldnote = GetParam("note")
fldproperty_name = GetParam("property_name")
fldproperty_contact = GetParam("property_contact")
fldproperty_address = GetParam("property_address")
fldcity_state = GetParam("city_state")
fldagent_id = GetParam("agent_id")
fldprice_plans = GetParam("price_plans")
flddirections = GetParam("directions")
fldresi_plan = GetParam("resi_plan")
'-------------------------------
' Validate fields
'-------------------------------
if sAction = "insert" or sAction = "update" then
if IsEmpty(fldname) then
sempsErr = sempsErr & "The value in field Name is required.<br>"
end if
if IsEmpty(flddep_id) then
sempsErr = sempsErr & "The value in field Department is required.<br>"
end if
if not isNumeric(fldemp_level) then
sempsErr = sempsErr & "The value in field Level is incorrect.<br>"
end if
if not isNumeric(flddep_id) then
sempsErr = sempsErr & "The value in field Department is incorrect.<br>"
end if
if not IsEmpty(fldemp_login) then
iCount = 0
if sAction = "insert" then
iCount = Clng(DLookUp("emps", "count(*)", "emp_login=" & toSQL(fldemp_login, "Text")))
elseif sAction = "update" then
iCount = Clng(DLookUp("emps", "count(*)", "emp_login=" & toSQL(fldemp_login, "Text") & " and not(" & sWhere & ")"))
end if
if iCount > 0 then
sempsErr = sempsErr & "The value in field Login is already in database.<br>"
end if
end if
'-------------------------------
' emps Check Event start
' emps Check Event end
'-------------------------------
If len(sempsErr) > 0 then
exit sub
end if
end if
'-------------------------------
'-------------------------------
' Create SQL statement
'-------------------------------
select case sAction
case "insert"
'-------------------------------
' emps Insert Event start
' emps Insert Event end
'-------------------------------
sSQL = "insert into emps (" & _
"[name]," & _
"[title]," & _
"[emp_login]," & _
"[emp_password]," & _
"[emp_level]," & _
"[dep_id]," & _
"[address]," & _
"[email]," & _
"[work_phone]," & _
"[home_phone]," & _
"[cell_phone]," & _
"[ilec]," & _
"[units]," & _
"[vendor]," & _
"[demarc]," & _
"[security]," & _
"[sac]," & _
"[terminal]," & _
"[wire_agree]," & _
"[complex]," & _
"[customer]," & _
"[property_name]," & _
"[property_contact]," & _
"[property_address]," & _
"[city_state]," & _
"[agent_id]," & _
"[price_plans]," & _
"[resi_plan]," & _
"[directions]," & _
"[picture]," & _
"[picture2]," & _
"[note])" & _
" values (" & _
ToSQL(fldname, "Text") & "," & _
ToSQL(fldtitle, "Text") & "," & _
ToSQL(fldemp_login, "Text") & "," & _
ToSQL(fldemp_password, "Text") & "," & _
ToSQL(fldemp_level, "Number") & "," & _
ToSQL(flddep_id, "Number") & "," & _
ToSQL(fldaddress, "Text") & "," & _
ToSQL(fldemail, "Text") & "," & _
ToSQL(fldwork_phone, "Text") & "," & _
ToSQL(fldhome_phone, "Text") & "," & _
ToSQL(fldcell_phone, "Text") & "," & _
ToSQL(fldilec, "Text") & "," & _
ToSQL(fldunits, "Text") & "," & _
ToSQL(fldvendor, "Text") & "," & _
ToSQL(flddemarc, "Text") & "," & _
ToSQL(fldsecurity, "Text") & "," & _
ToSQL(fldsac, "Text") & "," & _
ToSQL(fldterminal, "Text") & "," & _
ToSQL(fldwire_agree, "Text") & "," & _
ToSQL(fldcomplex, "Text") & "," & _
ToSQL(fldcustomer, "Text") & "," & _
ToSQL(fldproperty_name, "Text") & "," & _
ToSQL(fldproperty_contact, "Text") & "," & _
ToSQL(fldproperty_address, "Text") & "," & _
ToSQL(fldcity_state, "Text") & "," & _
ToSQL(fldagent_id, "Text") & "," & _
ToSQL(fldprice_plans, "Text") & "," & _
ToSQL(fldresi_plan, "Text") & "," & _
ToSQL(flddirections, "Text") & "," & _
ToSQL(fldpicture, "Text") & "," & _
ToSQL(fldpicture2, "Text") & "," & _
ToSQL(fldnote, "Text") & _
")"
case "update"
'-------------------------------
' emps Update Event start
' emps Update Event end
'-------------------------------
sSQL = "update emps set " & _
"[name]=" & ToSQL(fldname, "Text") & _
",[title]=" & ToSQL(fldtitle, "Text") & _
",[emp_login]=" & ToSQL(fldemp_login, "Text") & _
",[emp_password]=" & ToSQL(fldemp_password, "Text") & _
",[emp_level]=" & ToSQL(fldemp_level, "Number") & _
",[dep_id]=" & ToSQL(flddep_id, "Number") & _
",[address]=" & ToSQL(fldaddress, "Text") & _
",[email]=" & ToSQL(fldemail, "Text") & _
",[work_phone]=" & ToSQL(fldwork_phone, "Text") & _
",[home_phone]=" & ToSQL(fldhome_phone, "Text") & _
",[cell_phone]=" & ToSQL(fldcell_phone, "Text") & _
",[ilec]=" & ToSQL(fldilec, "Text") & _
",[units]=" & ToSQL(fldunits, "Text") & _
",[vendor]=" & ToSQL(fldvendor, "Text") & _
",[demarc]=" & ToSQL(flddemarc, "Text") & _
",[security]=" & ToSQL(fldsecurity, "Text") & _
",[sac]=" & ToSQL(fldsac, "Text") & _
",[terminal]=" & ToSQL(fldterminal, "Text") & _
",[wire_agree]=" & ToSQL(fldwire_agree, "Text") & _
",[complex]=" & ToSQL(fldcomplex, "Text") & _
",[customer]=" & ToSQL(fldcustomer, "Text") & _
",[property_name]=" & ToSQL(fldproperty_name, "Text") & _
",[property_contact]=" & ToSQL(fldproperty_contact, "Text") & _
",[property_address]=" & ToSQL(fldproperty_address, "Text") & _
",[city_state]=" & ToSQL(fldcity_state, "Text") & _
",[agent_id]=" & ToSQL(fldagent_id, "Text") & _
",[price_plans]=" & ToSQL(fldprice_plans, "Text") & _
",[resi_plan]=" & ToSQL(fldresi_plan, "Text") & _
",[directions]=" & ToSQL(flddirections, "Text") & _
",[picture]=" & ToSQL(fldpicture, "Text") & _
",[picture2]=" & ToSQL(fldpicture2, "Text") & _
",[note]=" & ToSQL(fldnote, "Text")
sSQL = sSQL & " where " & sWhere
case "delete"
'-------------------------------
' emps Delete Event start
' emps Delete Event end
'-------------------------------
sSQL = "delete from emps where " & sWhere
end select
'-------------------------------
'-------------------------------
' emps BeforeExecute Event start
' emps BeforeExecute Event end
'-------------------------------
'-------------------------------
' Execute SQL statement
'-------------------------------
if len(sempsErr) > 0 then Exit Sub
on error resume next
if bExecSQL then
cn.execute sSQL
end if
sempsErr = ProcessError
on error goto 0
if len(sempsErr) > 0 then Exit Sub
cn.Close
Set cn = Nothing
response.redirect sActionFileName
'-------------------------------
' emps Action end
'-------------------------------
end sub
'===============================
'===============================
' Display Record Form
'-------------------------------
Sub emps_Show()
'-------------------------------
' emps Show begin
'-------------------------------
sWhere = ""
Dim sFormTitle: sFormTitle = "Profile"
bPK = true
%>
<table border="0" cellspacing="2" cellpadding="0">
<form method="POST" action="<%= sFileName %>" name="emps">
<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 (sempsErr = "") then %>
<tr><td colspan="2"><font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><%= sempsErr %></font></td></tr>
<% end if %>
<%
'-------------------------------
' Load primary key and form parameters
'-------------------------------
if sempsErr = "" then
fldemp_id = GetParam("emp_id")
pemp_id = GetParam("emp_id")
else
fldemp_id = GetParam("emp_id")
fldname = GetParam("name")
fldtitle = GetParam("title")
fldemp_login = GetParam("emp_login")
fldemp_password = GetParam("emp_password")
fldemp_level = GetParam("emp_level")
flddep_id = GetParam("dep_id")
fldaddress = GetParam("address")
fldemail = GetParam("email")
fldwork_phone = GetParam("work_phone")
fldhome_phone = GetParam("home_phone")
fldcell_phone = GetParam("cell_phone")
fldpicture = GetParam("picture")
fldpicture2 = GetParam("picture2")
fldilec = GetParam("ilec")
fldunits = GetParam("units")
fldvendor = GetParam("vendor")
flddemarc = GetParam("demarc")
fldsecurity = GetParam("security")
fldsac = GetParam("sac")
fldterminal = GetParam("terminal")
fldwire_agree = GetParam("wire_agree")
fldcomplex = GetParam("complex")
fldcustomer = GetParam("customer")
fldproperty_name = GetParam("property_name")
fldproperty_contact = GetParam("property_contact")
fldproperty_address = GetParam("property_address")
fldcity_state = GetParam("city_state")
fldagent_id = GetParam("agent_id")
fldprice_plans = GetParam("price_plans")
fldresi_plan = GetParam("resi_plan")
flddirections = GetParam("directions")
fldnote = GetParam("note")
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
'-------------------------------
'-------------------------------
' emps Open Event start
' emps 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 = "emps") and not rs.eof)
'-------------------------------
'-------------------------------
' Load all fields into variables from recordset or input parameters
'-------------------------------
if bIsUpdateMode then
fldemp_id = GetValue(rs, "emp_id")
'-------------------------------
' Load data from recordset when form displayed first time
'-------------------------------
if sempsErr = "" then
fldname = GetValue(rs, "name")
fldtitle = GetValue(rs, "title")
fldemp_login = GetValue(rs, "emp_login")
fldemp_password = GetValue(rs, "emp_password")
fldemp_level = GetValue(rs, "emp_level")
flddep_id = GetValue(rs, "dep_id")
fldaddress = GetValue(rs, "address")
fldemail = GetValue(rs, "email")
fldwork_phone = GetValue(rs, "work_phone")
fldhome_phone = GetValue(rs, "home_phone")
fldcell_phone = GetValue(rs, "cell_phone")
fldpicture = GetValue(rs, "picture")
fldpicture2 = GetValue(rs, "picture2")
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")
end if
'-------------------------------
' emps ShowEdit Event start
' emps ShowEdit Event end
'-------------------------------
else
if sempsErr = "" then
fldemp_id = ToHTML(GetParam("emp_id"))
end if
'-------------------------------
' emps ShowInsert Event start
' emps ShowInsert Event end
'-------------------------------
end if
'-------------------------------
' emps Show Event start
' emps Show Event end
'-------------------------------
'-------------------------------
' Show form fields
'-------------------------------
%>
<tr>
<td bgcolor="#0000FF">
<font color="#FFFFFF">
<font size="2">
<span style="font-family: Arial">Property
Owner Name</span></font><font face="Arial" size="2"> </font>
</font>
</td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<input type="text" name="property_name" maxlength="100" value="<%= ToHTML(fldproperty_name) %>" size="50" ></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font color="#FFFFFF" face="Arial" size="2">Property Owner Contact Info</font></td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<input type="text" name="property_contact" maxlength="100" value="<%= ToHTML(fldproperty_contact) %>" size="50" ></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font color="#FFFFFF" size="2" face="Arial">Property Owner Address</font></td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<input type="text" name="property_address" maxlength="100" value="<%= ToHTML(fldproperty_address) %>" size="50" ></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font color="#FFFFFF" size="2" face="Arial">Site Name</font></td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><input type="text" name="name" maxlength="100" value="<%= ToHTML(fldname) %>" size="50" ></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font color="#FFFFFF" face="Arial" size="2">Address</font></td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<input type="text" name="address" maxlength="50" value="<%= ToHTML(fldaddress) %>" size="50" ></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font color="#FFFFFF" face="Arial" size="2">City, State, ZipCode</font></td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<input type="text" name="city_state" maxlength="50" value="<%= ToHTML(fldcity_state) %>" size="50" ></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font style="font-size: 10pt; color: #FFFFFF; font-family: Arial">
Management</font><font color="#FFFFFF" face="Arial" size="2"> </font>
</td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><select size="1" name="dep_id">
<%
openrs rsdep_id, "select dep_id, name from deps order by 2"
while not rsdep_id.EOF
if cstr(GetValue(rsdep_id, 0)) = cstr(flddep_id) then
response.write "<option selected value=""" & GetValue(rsdep_id, 0) & """>" & GetValue(rsdep_id, 1) & "</option>"
else
response.write "<option value=""" & GetValue(rsdep_id, 0) & """>" & GetValue(rsdep_id, 1) & "</option>"
end if
rsdep_id.MoveNext
wend
set rsdep_id = nothing
%></select></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font style="font-size: 10pt; color: #FFFFFF; font-family: Arial">
Manager Contact Name</font></td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><input type="text" name="email" maxlength="50" value="<%= ToHTML(fldemail) %>" size="50" ></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font style="font-size: 10pt; color: #FFFFFF; font-family: Arial">
Main Contact Telephone</font><font color="#FFFFFF" face="Arial" size="2"> </font>
</td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><input type="text" name="work_phone" maxlength="50" value="<%= ToHTML(fldwork_phone) %>" size="50" ></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font style="font-size: 10pt; color: #FFFFFF; font-family: Arial">
Agent and their ID's</font><font color="#FFFFFF" face="Arial" size="2"> </font>
</td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<textarea name="agent_id" cols="50" rows="2"><%=ToHTML(fldagent_id)%></textarea></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font color="#FFFFFF" face="Arial" size="2">Price Plans</font></td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<textarea name="price_plans" cols="50" rows="2"><%=ToHTML(fldprice_plans)%></textarea></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font style="font-size: 10pt; color: #FFFFFF; font-family: Arial">
Residential Plan Info</font><font color="#FFFFFF" face="Arial" size="2">
</font>
</td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<textarea name="resi_plan" cols="50" rows="2"><%=ToHTML(fldresi_plan)%></textarea></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font style="font-size: 10pt; color: #FFFFFF; font-family: Arial">
ILEC</font><font color="#FFFFFF" face="Arial" size="2">
</font>
</td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<input type="text" name="ilec" maxlength="50" value="<%= ToHTML(fldilec) %>" size="50" ></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font style="color: #FFFFFF; " face="Arial" size="2">Total Units</font></td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<input type="text" name="units" maxlength="50" value="<%= ToHTML(fldunits) %>" size="50" ></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font style="font-size: 10pt; color: #FFFFFF; font-family: Arial">
Inside Wire Vendor</font><font color="#FFFFFF" face="Arial" size="2">
</font>
</td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<input type="text" name="vendor" maxlength="50" value="<%= ToHTML(fldvendor) %>" size="50" ></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font style="font-size: 10pt; color: #FFFFFF; font-family: Arial">
Central Demarc YES or NO</font><font color="#FFFFFF" face="Arial" size="2">
</font>
</td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<input type="text" name="demarc" maxlength="50" value="<%= ToHTML(flddemarc) %>" size="50" ></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<p style="margin-top: 0; margin-bottom: 0">
<font style="font-size: 10pt; color: #FFFFFF; font-family: Arial">
Security Code If Site</font></p>
<p style="margin-top: 0; margin-bottom: 0">
<font size="2" color="#FFFFFF">
<span style="font-family: Arial">Has
Central Demarc</span></font></td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<input type="text" name="security" maxlength="50" value="<%= ToHTML(fldsecurity) %>" size="50" ></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font style="font-size: 10pt; color: #FFFFFF; font-family: Arial">
SAC Box YES or NO</font><font color="#FFFFFF" face="Arial" size="2">
</font>
</td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<input type="text" name="sac" maxlength="50" value="<%= ToHTML(fldsac) %>" size="50" ></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font style="font-size: 10pt; color: #FFFFFF; font-family: Arial">
Terminal YES or NO</font><font color="#FFFFFF" face="Arial" size="2">
</font>
</td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<input type="text" name="terminal" maxlength="50" value="<%= ToHTML(fldterminal) %>" size="50" ></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font style="font-size: 10pt; color: #FFFFFF; font-family: Arial">
Inside Wire Service Agreement</font></td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<textarea name="wire_agree" cols="50" rows="2"><%=ToHTML(fldwire_agree)%></textarea></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font style="font-size: 10pt; color: #FFFFFF; font-family: Arial">
Complex is Billed If</font><font style="color: #FFFFFF; " face="Arial" size="2">:</font></td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<textarea name="complex" cols="63" rows="4"><%=ToHTML(fldcomplex)%></textarea></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font style="font-size: 10pt; color: #FFFFFF; font-family: Arial">Customer
is Billed if:</font><font color="#FFFFFF" face="Arial" size="2">
</font>
</td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<textarea name="customer" cols="63" rows="4"><%=ToHTML(fldcustomer)%></textarea></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font style="font-size: 10pt; color: #FFFFFF; font-family: Arial, Tahoma, Verdana, Helvetica">
Please Note:</font><font color="#FFFFFF">
</font>
</td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<textarea name="note" cols="63" rows="4"><%=ToHTML(fldnote)%></textarea></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font color="#FFFFFF" face="Arial" size="2">Directions:</font></td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica">
<textarea name="directions" cols="63" rows="4"><%=ToHTML(flddirections)%></textarea></font></td>
</tr>
<tr>
<td bgcolor="#0000FF">
<font face="Arial" size="2" color="#FFFFFF">Pictures (Central Demarc):</font></td>
<td >
<font style="font-size: 10pt; color: #000000; font-family: Arial, Tahoma, Verdana, Helvetica"><input type="text" name="picture" maxlength="100" value="<%= ToHTML(fldpicture) %>" size="50" ><input type="text" name="picture2" maxlength="100" value="<%= ToHTML(fldpicture2) %>" size="50" ></font></td>
</tr>
<tr><td colspan="2" align="right">
<% if not bIsUpdateMode then %>
<input type="hidden" value="insert" name="FormAction">
<input type="submit" value="Insert" onclick="document.emps.FormAction.value = 'insert';">
<% end if %>
<% if bIsUpdateMode then %>
<input type="hidden" value="update" name="FormAction"/>
<input type="submit" value="Update" onclick="document.emps.FormAction.value = 'update';">
<input type="submit" value="Delete" onclick="document.emps.FormAction.value = 'delete';">
<% end if %>
<input type="submit" value="Cancel" onclick="document.emps.FormAction.value = 'cancel';">
<input type="hidden" name="FormName" value="emps">
<input type="hidden" name="PK_emp_id" value="<%= pemp_id %>">
<input type="hidden" name="emp_id" value="<%= ToHTML(fldemp_id)%>">
</td></tr>
</form>
</table>
<%
'-------------------------------
' emps Close Event start
' emps Close Event end
'-------------------------------
Set rs = Nothing
'-------------------------------
' emps Show end
'-------------------------------
End Sub
'===============================
%>
|
|
|
|
Iso
|
| Posted: 01/23/2002, 8:46 AM |
|
Please help
|
|
|
|
megan_g
|
| Posted: 01/23/2002, 9:44 AM |
|
it is put in in codecharge like samuel said:
form events - before show: that is go to form properties, select events and then the "before show" event & paste code in there hth ~megan
|
|
|
|
|
