<%
response.buffer = true
' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
Conn.open application("dsn")
strsql = "SELECT * FROM [Intro]"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn
rs.MoveFirst
If rs.EOF Then
Response.Clear
Response.Redirect "Rochelist.asp"
End If
' Get the field contents
x_Id = rs("Id")
x_Description = rs("Description")
rs.Close
Set rs = Nothing
Function FormatStr(String)
on Error resume next
String = Replace(String, CHR(13), "")
String = Replace(String, CHR(10) & CHR(10), "")
String = Replace(String, CHR(10), "
")
FormatStr = String
End Function
%>
<%=FormatStr(x_Description) %>
|
