how to store asp code in access and call back as text

06-02-2004

I'm trying to make a sort of source code libary for some customers of
commonly used code to save them a bit of time [and cut down on my tech
support]
the problem I have is that although I can get the asp [and php etc...] code
into a field of an access database it will not be called back as text....
an example of what I am using is below...
all I am after is basically what lots of other major source code sites do
and that is diplay the code as text so the user can cut and paste it into
their projects.
this has got me beat.... I wasn't sure wether I needed to encode the source
somehow before putting into access or not [some of the html based stuff
trys to render itself on the page!]
Sorry for the untidy code BTW.
lots of thanks in advance if anyone can point me in the right direction
about this....

Wayne...

PS the field's code, code2 and code3 are the actual code fields
CODE:
============
<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsCodevault 'Holds the recordset for the records in the database
Dim strSQL 'Holds the SQL query to query the database
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("codevault.mdb")
Set rsCodevault = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM asp;"
rsCodevault.Open strSQL, adoCon
%>

<HTML>

<HEAD>
<TITLE>Codevault </TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
</HEAD>
<BODY BGCOLOR = "#FFFFFF">
<CENTER><H2>ASP Code</H2></CENTER>

<% if sCaption <> "" then
response.write "" & sCaption & ""
end if
%>

Title: 
<% Response.write (rsCodevault("title"))%>
 
Posted by: 
<%
Response.write (rsCodevault("author")) 'displays ok
Response.write (" ")
Response.write ("")
Response.write ("Code 1")
Response.write (" ")
TempString = rsCodevault("code") 'doesn't work
Response.write ("")
Response.write (" ")
Response.write ("")
Response.write ("Code 2")
Response.write (" ")
Response.write (rsCodevault("code2")) 'doesn't work
Response.write ("")
Response.write ("")
Response.write ("Code 3")
Response.write (" ")
Response.write (rsCodevault("code3")) 'doesn't work
Response.write ("")
Response.write ("About")
Response.write (" ")
Response.write (rsCodevault("explaination")) 'works
Response.write (" ")
%>
<%
rsCodevault.Close
Set rsCodevault = Nothing
Set adoCon = Nothing
%>
</body>
</html>

06-02-2004

sSource = Replace(rst("Source"), "<", "<")
sSource = Replace(rst("Source"), ">", ">")

or

sSource = Replace(Replace(rst("Source"), "<", "<"), ">", ">")

_Should_ work.........

--

Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Wayne..." <> wrote in message
news:40bdfa41@212.67.96.135...
> I'm trying to make a sort of source code libary for some customers of
> commonly used code to save them a bit of time [and cut down on my tech
> support]
> the problem I have is that although I can get the asp [and php etc...]
code
> into a field of an access database it will not be called back as text....
> an example of what I am using is below...
> all I am after is basically what lots of other major source code sites do
> and that is diplay the code as text so the user can cut and paste it into
> their projects.
> this has got me beat.... I wasn't sure wether I needed to encode the
source
> somehow before putting into access or not [some of the html based stuff
> trys to render itself on the page!]
> Sorry for the untidy code BTW.
> lots of thanks in advance if anyone can point me in the right direction
> about this....
>
> Wayne...
>
> PS the field's code, code2 and code3 are the actual code fields
> CODE:
> ============
> <%
> 'Dimension variables
> Dim adoCon 'Holds the Database Connection Object
> Dim rsCodevault 'Holds the recordset for the records in the database
> Dim strSQL 'Holds the SQL query to query the database
> Set adoCon = Server.CreateObject("ADODB.Connection")
> adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> Server.MapPath("codevault.mdb")
> Set rsCodevault = Server.CreateObject("ADODB.Recordset")
> strSQL = "SELECT * FROM asp;"
> rsCodevault.Open strSQL, adoCon
> %>
>
> <HTML>
>
> <HEAD>
> <TITLE>Codevault </TITLE>
> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
> </HEAD>
> <BODY BGCOLOR = "#FFFFFF">
> <CENTER><H2>ASP Code</H2></CENTER>
>
> <% if sCaption <> "" then
> response.write "" & sCaption & ""
> end if
> %>
>
>
> Title: 
> <% Response.write (rsCodevault("title"))%>
> 
> Posted by: 
> <%
> Response.write (rsCodevault("author")) 'displays ok
> Response.write (" ")
> Response.write ("")
> Response.write ("Code 1")
> Response.write (" ")
> TempString = rsCodevault("code") 'doesn't work
> Response.write ("")
> Response.write (" ")
> Response.write ("")
> Response.write ("Code 2")
> Response.write (" ")
> Response.write (rsCodevault("code2")) 'doesn't work
> Response.write ("")
> Response.write ("")
> Response.write ("Code 3")
> Response.write (" ")
> Response.write (rsCodevault("code3")) 'doesn't work
> Response.write ("")
> Response.write ("About")
> Response.write (" ")
> Response.write (rsCodevault("explaination")) 'works
> Response.write (" ")
> %>
> <%
> rsCodevault.Close
> Set rsCodevault = Nothing
> Set adoCon = Nothing
> %>
> </body>
> </html>
>
>
>
>

06-02-2004

Try to enclose the code within a PRE tag.

You could also display the code and have a separate link to copy/paste or
download the code (it would allow to use HTML let's sya to have comments in
green or somethuing similar).

Patrice

"Wayne..." <> a écrit dans le message de
news:40bdfa41@212.67.96.135...
> I'm trying to make a sort of source code libary for some customers of
> commonly used code to save them a bit of time [and cut down on my tech
> support]
> the problem I have is that although I can get the asp [and php etc...]
code
> into a field of an access database it will not be called back as text....
> an example of what I am using is below...
> all I am after is basically what lots of other major source code sites do
> and that is diplay the code as text so the user can cut and paste it into
> their projects.
> this has got me beat.... I wasn't sure wether I needed to encode the
source
> somehow before putting into access or not [some of the html based stuff
> trys to render itself on the page!]
> Sorry for the untidy code BTW.
> lots of thanks in advance if anyone can point me in the right direction
> about this....
>
> Wayne...
>
> PS the field's code, code2 and code3 are the actual code fields
> CODE:
> ============
> <%
> 'Dimension variables
> Dim adoCon 'Holds the Database Connection Object
> Dim rsCodevault 'Holds the recordset for the records in the database
> Dim strSQL 'Holds the SQL query to query the database
> Set adoCon = Server.CreateObject("ADODB.Connection")
> adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> Server.MapPath("codevault.mdb")
> Set rsCodevault = Server.CreateObject("ADODB.Recordset")
> strSQL = "SELECT * FROM asp;"
> rsCodevault.Open strSQL, adoCon
> %>
>
> <HTML>
>
> <HEAD>
> <TITLE>Codevault </TITLE>
> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
> </HEAD>
> <BODY BGCOLOR = "#FFFFFF">
> <CENTER><H2>ASP Code</H2></CENTER>
>
> <% if sCaption <> "" then
> response.write "" & sCaption & ""
> end if
> %>
>
>
> Title: 
> <% Response.write (rsCodevault("title"))%>
> 
> Posted by: 
> <%
> Response.write (rsCodevault("author")) 'displays ok
> Response.write (" ")
> Response.write ("")
> Response.write ("Code 1")
> Response.write (" ")
> TempString = rsCodevault("code") 'doesn't work
> Response.write ("")
> Response.write (" ")
> Response.write ("")
> Response.write ("Code 2")
> Response.write (" ")
> Response.write (rsCodevault("code2")) 'doesn't work
> Response.write ("")
> Response.write ("")
> Response.write ("Code 3")
> Response.write (" ")
> Response.write (rsCodevault("code3")) 'doesn't work
> Response.write ("")
> Response.write ("About")
> Response.write (" ")
> Response.write (rsCodevault("explaination")) 'works
> Response.write (" ")
> %>
> <%
> rsCodevault.Close
> Set rsCodevault = Nothing
> Set adoCon = Nothing
> %>
> </body>
> </html>
>
>
>
>

06-02-2004

On Wed, 2 Jun 2004 17:03:05 +0100, "Wayne..."
<> wrote:

try "server.htmlencode()" ... I just lightly skimmed the article but
it seems you want to put the text to the browser... try that
function.

>I'm trying to make a sort of source code libary for some customers of
>commonly used code to save them a bit of time [and cut down on my tech
>support]
>the problem I have is that although I can get the asp [and php etc...] code
>into a field of an access database it will not be called back as text....
>an example of what I am using is below...
>all I am after is basically what lots of other major source code sites do
>and that is diplay the code as text so the user can cut and paste it into
>their projects.
>this has got me beat.... I wasn't sure wether I needed to encode the source
>somehow before putting into access or not [some of the html based stuff
>trys to render itself on the page!]
>Sorry for the untidy code BTW.
>lots of thanks in advance if anyone can point me in the right direction
>about this....
>
>Wayne...
>
>PS the field's code, code2 and code3 are the actual code fields
>CODE:
>============
><%
>'Dimension variables
>Dim adoCon 'Holds the Database Connection Object
>Dim rsCodevault 'Holds the recordset for the records in the database
>Dim strSQL 'Holds the SQL query to query the database
>Set adoCon = Server.CreateObject("ADODB.Connection")
>adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
>Server.MapPath("codevault.mdb")
>Set rsCodevault = Server.CreateObject("ADODB.Recordset")
>strSQL = "SELECT * FROM asp;"
>rsCodevault.Open strSQL, adoCon
>%>
>
><HTML>
>
><HEAD>
> <TITLE>Codevault </TITLE>
> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
></HEAD>
><BODY BGCOLOR = "#FFFFFF">
><CENTER><H2>ASP Code</H2></CENTER>
>
><% if sCaption <> "" then
>response.write "" & sCaption & ""
>end if
>%>
>
>
>Title: 
><% Response.write (rsCodevault("title"))%>
> 
>Posted by: 
><%
>Response.write (rsCodevault("author")) 'displays ok
>Response.write (" ")
>Response.write ("")
>Response.write ("Code 1")
>Response.write (" ")
>TempString = rsCodevault("code") 'doesn't work
>Response.write ("")
>Response.write (" ")
>Response.write ("")
>Response.write ("Code 2")
>Response.write (" ")
>Response.write (rsCodevault("code2")) 'doesn't work
>Response.write ("")
>Response.write ("")
>Response.write ("Code 3")
>Response.write (" ")
>Response.write (rsCodevault("code3")) 'doesn't work
>Response.write ("")
>Response.write ("About")
>Response.write (" ")
>Response.write (rsCodevault("explaination")) 'works
>Response.write (" ")
>%>
><%
>rsCodevault.Close
>Set rsCodevault = Nothing
>Set adoCon = Nothing
>%>
></body>
></html>
>
>
>
>

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Re: How include a large array?	Edward A. Falk	C Programming	1	04-04-2013 08:07 PM
how to store/ retrieve display rich text using access memo field	rajpsmohan@googlemail.com	ASP General	4	04-06-2009 10:55 AM
how can i store punjabi text in database. this text must be displayed in punjabi in the browser.	sandhu	ASP .Net Datagrid Control	1	05-17-2007 11:50 AM
to store or not to store an image	=?Utf-8?B?UnVkeQ==?=	ASP .Net	6	03-30-2005 05:51 AM
server side code access the text of <asp:label> changed by client-side javascript code?	nick	ASP .Net	3	12-15-2004 06:26 PM