Memo and Text Fields Demo Writing out the data using ASP!

Contributed by aspfree
Rating:

/ 4
September 01, 1999

Rate this Article:
MEH MEH++

SEARCH ASP FREE

I currently was working an ASPproject that involved MEMO and TEXT Fields. These two types of fields are the same just called different depending on what database your using. Memo Fields is used in Access 97 and TEXT Fields (or BLOB) is used in MS-SQL 7.0. Writing out these types of field types in ASP is different. I hadn't worked with them in a while until recently and discovered they can be a pain in the butt!

I thought to myself, if I'm having problems I imagine I could share this information with my site visitors. I'm always seeing these questions in newsgroups and forums everywhere! Well here you go look no further, here is the method I used in a recent project! Might not be totally 100% certified perfect but, you know what it worked for me! Enjoy its FREE

<%
' create conn as adodb.connection and open it
dim strconn
dim conn
dim rs
dim memofield
dim memofield2

'strconn = "Driver={SQL Server};SERVER=127.0.0.1;UID=loginid;PWD=password;DATABASE=yourdbname"
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("text.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
sql = "select tblMemoFields.id, tblMemoFields.FavoriteSeason, tblMemoFields.FavoriteTree, tblMemoFields.MemoField, tblMemoFields.MemoField2 from tblMemoFields"
set rs = conn.execute(sql)

%>
<html>
<head><title></title>
</head>
<body>
<table border="1" cellpadding="1">
<%
do while not rs.eof
 memofield = rs("MemoField")
 memofield2 = rs("MemoField2")
 response.write "<tr><td>" & rs("ID").name & "</td><td>" & rs("id") & "</td><td>" & rs("FavoriteSeason").name & "</td><td>" & rs("FavoriteSeason") & "</td><td>" & rs("FavoriteTree").name & "</td><td>" & rs("FavoriteTree") & "</td><td>MemoField #1:</td><td>" & memofield & "</td><td>MemoField #2</td><td>" & memofield2 & "</td></tr>"
 rs.movenext
loop
%>
</table>
</body>
</html>