|
| |
|
|
xterradane
Posts: 143
From: Mobile, AL USA
Status: offline
 |
Memo Field Formatting - 1/2/2002 17:17:16
I am having problems getting the memo field to look right. If I don't try to format the memo field it all works fine. When I do it won't display anything but the field headers and the word True or False appears at the top before the headers. I don't know what that is from!?!
Here's the code:
Dim rsResume
Set rsResume= Server.CreateObject("ADODB.Recordset")
strSQL= "SELECT * FROM Resume WHERE EMail='" & Session("EMail") & "';"
rsResume.Open strSQL, objConn, adOpenForwardOnly, adLockOptimistic, adCmdText
If Not rsResume.EOF Then
Response.Write "<TABLE ALIGN=""CENTER"" BORDER=""1"" CELLSPACING=""1"" CELLPADDING=""4"">" &_
"<TR><TH>EMail:</TH>" &_
" <TH>Desired Job:</TH>" &_
" <TH>Certifications:</TH>" &_
" <TH>Desired Location</TH>" &_
" <TH>Degree:</TH>" &_
" <TH>Years Experience:</TH></TR>"
Do While Not rsResume.EOF
Response.Write "<TR ALIGN=CENTER>" &_
"<TD> " & rsResume("EMail") &"</TD>" &_
"<TD> " & rsResume("JobTitle") &"</TD>" &_
"<TD> " & rsResume("Certifications") &"</TD>" &_
"<TD> " & rsResume("City") &", "&rsResume("State") &"</TD>" &_
"<TD> " & rsResume("Degree") &"</TD>" &_
"<TD> " & rsResume("CareerLevel") &"</TD></TR>" &_
"<TD COLSPAN=6 CELLPADDING=4> " =replace(rsResume("Resume"), chr(10),"<br>")>"</TD></TR>"
rsResume.MoveNext
Loop
Response.Write "</TABLE>"
Else
Response.Write "No resume was found matching your EMail Address. Please resubmit your resume."
End If
rsResume.Close
Set rsResume = Nothing
Thanks in advanced,
Gail
|
|
|
|
Spooky
Posts: 26599
Joined: 11/11/1998
From: Middle Earth
Status: offline
|
RE: Memo Field Formatting - 1/2/2002 17:52:20
Try this line :
"<TD COLSPAN=6 CELLPADDING=4> "& replace(rsResume("Resume"), chr(10)) &"<br>")>"</TD></TR>"
§þððk¥
Database / DRW Q & A
VP-ASP Shopping cart
Spooky Login
| |
|
|
|
xterradane
Posts: 143
From: Mobile, AL USA
Status: offline
|
RE: Memo Field Formatting - 1/2/2002 18:11:47
I didn't get that to work, but after a few looks this worked:
"<TD COLSPAN=6 CELLPADDING=4> "& replace(rsResume("Resume"),chr(10),"<br>")&"</TD></TR>" &_
Thanks for the help! You are wonderful..
| |
|
 New Messages |
 No New Messages |
 Hot Topic w/ New Messages |
 Hot Topic w/o New Messages |
 Locked w/ New Messages |
 Locked w/o New Messages |
|
Post New Thread
Reply to Message
Post New Poll
Submit Vote
Delete My Own Post
Delete My Own Thread
Rate Posts
|
|
|
Printable Version 
