|
xterradane -> 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
|
|
|
|
